Changeset 913 for codes/icosagcm/devel/src/kernels_unst
- Timestamp:
- 06/17/19 17:38:58 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/kernels_unst/theta.k90
r878 r913 17 17 !DIR$ SIMD 18 18 DO l = 1, llm 19 ! FIXME : formula below (used in DYNAMICO) is for dak, dbk based on pressure rather than mass 19 ! FIXME : formula below (used in DYNAMICO) is for dak, dbk based on 20 ! pressure rather than mass 20 21 ! m = mass_dak(l,ij)+(mass_col(ij)*g+ptop)*mass_dbk(l,ij) 21 22 ! rhodz(l,ij) = m/g
Note: See TracChangeset
for help on using the changeset viewer.