Changeset 1051

Timestamp:

09/17/20 14:53:53 (4 years ago)

Author:

dubos

Message:

devel : generate repetitive code with jinja2 macros

Location:

codes/icosagcm/devel

Files:

• scripts (added)
• scripts/expand (added)
• scripts/jinja2 (added)
• src/base/init_grid_param.f90 (modified) (3 diffs)
• src/base/init_grid_param.j90 (added)

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

@@ -50 +50 @@
   END SUBROUTINE  init_grid_param
 
-
   SUBROUTINE select_compute_hex
     USE compute_diagnostics_mod
@@ -65 +64 @@
     USE compute_caldyn_slow_hydro_mod
     USE compute_caldyn_coriolis_mod
-
-    ! diagnostics
-    compute_rhodz        => compute_rhodz_hex
-    compute_pression     => compute_pression_hex
+    compute_rhodz => compute_rhodz_hex
+    compute_pression => compute_pression_hex
     compute_pression_mid => compute_pression_mid_hex
-    compute_temperature  => compute_temperature_hex
+    compute_temperature => compute_temperature_hex
     compute_hydrostatic_pressure => compute_hydrostatic_pressure_hex
     compute_vertical_interp => compute_vertical_interp_hex
-    ! dynamics
-    compute_pvort_only        => compute_pvort_only_hex
-    compute_theta             => compute_theta_hex
-    compute_geopot            => compute_geopot_hex
-    compute_caldyn_fast       => compute_caldyn_fast_hex
+    compute_pvort_only => compute_pvort_only_hex
+    compute_theta => compute_theta_hex
+    compute_geopot => compute_geopot_hex
+    compute_caldyn_fast => compute_caldyn_fast_hex
     compute_caldyn_slow_hydro => compute_caldyn_slow_hydro_hex
-    compute_caldyn_coriolis   => compute_caldyn_coriolis_hex
+    compute_caldyn_coriolis => compute_caldyn_coriolis_hex
   END SUBROUTINE select_compute_hex
 
@@ -96 +92 @@
     USE compute_caldyn_slow_hydro_mod
     USE compute_caldyn_coriolis_mod
-    
-    ! diagnostics
-    compute_rhodz        => compute_rhodz_unst
-    compute_pression     => compute_pression_unst
+    compute_rhodz => compute_rhodz_unst
+    compute_pression => compute_pression_unst
     compute_pression_mid => compute_pression_mid_unst
-    compute_temperature  => compute_temperature_unst
+    compute_temperature => compute_temperature_unst
     compute_hydrostatic_pressure => compute_hydrostatic_pressure_unst
     compute_vertical_interp => compute_vertical_interp_unst
-    ! dynamics
-    compute_pvort_only         => compute_pvort_only_unst
-    compute_theta              => compute_theta_unst
-    compute_geopot             => compute_geopot_unst
-    compute_caldyn_fast        => compute_caldyn_fast_unst
-    compute_caldyn_slow_hydro  => compute_caldyn_slow_hydro_unst
-    compute_caldyn_coriolis    => compute_caldyn_coriolis_unst
+    compute_pvort_only => compute_pvort_only_unst
+    compute_theta => compute_theta_unst
+    compute_geopot => compute_geopot_unst
+    compute_caldyn_fast => compute_caldyn_fast_unst
+    compute_caldyn_slow_hydro => compute_caldyn_slow_hydro_unst
+    compute_caldyn_coriolis => compute_caldyn_coriolis_unst
   END SUBROUTINE select_compute_unst
-  
+
+
 END MODULE init_grid_param_mod