Changeset 913 for codes/icosagcm/devel/src/base/init_grid_param.f90

Timestamp:

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

Author:

dubos

Message:

devel : compute_pression for unstructured mesh

File:

• codes/icosagcm/devel/src/base/init_grid_param.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/base/init_grid_param.f90

@@ -3 +3 @@
   USE compute_diagnostics_mod
   USE compute_rhodz_mod
+  USE compute_pression_mod
 
   USE compute_caldyn_mod
@@ -57 +58 @@
 
   SUBROUTINE select_compute_hex
-    compute_rhodz      => compute_rhodz_hex
-    compute_pvort_only => compute_pvort_only_hex
+    ! diagnostics
+    compute_rhodz        => compute_rhodz_hex
+    compute_pression     => compute_pression_hex
+    compute_pression_mid => compute_pression_mid_hex
+    ! dynamics
+    compute_pvort_only   => compute_pvort_only_hex
   END SUBROUTINE select_compute_hex
 
   SUBROUTINE select_compute_unst
-    compute_rhodz      => compute_rhodz_unst
-    compute_pvort_only => compute_pvort_only_unst
+    ! diagnostics
+    compute_rhodz        => compute_rhodz_unst
+    compute_pression     => compute_pression_unst
+    compute_pression_mid => compute_pression_mid_unst
+    ! dynamics
+    compute_pvort_only   => compute_pvort_only_unst
   END SUBROUTINE select_compute_unst