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

Timestamp:

06/14/19 01:17:50 (5 years ago)

Author:

dubos

Message:

devel : compute_rhodz for unstructured mesh

File:

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

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

@@ -1 +1 @@
 MODULE init_grid_param_mod
+
+  USE compute_diagnostics_mod
+  USE compute_rhodz_mod
+
+  USE compute_caldyn_mod
+  USE compute_pvort_only_mod
+
   IMPLICIT NONE
+  PRIVATE
+  SAVE
+  
+  PUBLIC :: init_grid_param
 
 CONTAINS
@@ -20 +31 @@
        jjm_glo=iim_glo
        IF(is_mpi_root) PRINT *, 'GETIN nbp = ',iim_glo
+       CALL select_compute_hex
     CASE('unstructured')
        grid_type = grid_unst
@@ -26 +38 @@
        CALL open_local_mesh_file
        IF (is_mpi_root) PRINT *,'DYNAMICO mesh is unstructured/LAM.'
+       CALL select_compute_unst
     CASE DEFAULT
        PRINT *, 'Invalid value of grid_type :',TRIM(grid_type_var)
@@ -41 +54 @@
     
   END SUBROUTINE  init_grid_param
+
+
+  SUBROUTINE select_compute_hex
+    compute_rhodz      => compute_rhodz_hex
+    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
+  END SUBROUTINE select_compute_unst
+
   
 END MODULE init_grid_param_mod
-