Changeset 913 for codes/icosagcm/devel/src/kernels_unst/theta.k90

Timestamp:

06/17/19 17:38:58 (5 years ago)

Author:

dubos

Message:

devel : compute_pression for unstructured mesh

File:

• codes/icosagcm/devel/src/kernels_unst/theta.k90 (modified) (1 diff)

codes/icosagcm/devel/src/kernels_unst/theta.k90

@@ -17 +17 @@
          !DIR$ SIMD
          DO l = 1, llm
-            ! FIXME : formula below (used in DYNAMICO) is for dak, dbk based on pressure rather than mass
+            ! FIXME : formula below (used in DYNAMICO) is for dak, dbk based on
+            ! pressure rather than mass
             ! m = mass_dak(l,ij)+(mass_col(ij)*g+ptop)*mass_dbk(l,ij)
             ! rhodz(l,ij) = m/g