Changeset 830 for codes/icosagcm/devel

Timestamp:

05/02/19 09:44:14 (5 years ago)

Author:

dubos

Message:

devel : merged init_grid_param and init_grid_type

Location:

codes/icosagcm/devel

Files:

• rebuild_full (added)
• src/base/grid_param.f90 (modified) (2 diffs)
• src/base/init_grid_param.f90 (added)
• src/icosa_init.f90 (modified) (1 diff)
• src/unstructured/init_unstructured.f90 (modified) (2 diffs)

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

@@ -1 +1 @@
 MODULE grid_param
+  IMPLICIT NONE
+  SAVE
   INTEGER  :: iim_glo=40
   INTEGER  :: jjm_glo
@@ -8 +10 @@
   INTEGER  :: nqtot ! number of tracers handled by advection scheme
   INTEGER, BIND(C) :: nqdyn ! number of dynamical tracers : 1 if dry, more if moist
-
-CONTAINS
-
-  SUBROUTINE init_grid_param(is_mpi_root)
-    USE ioipsl
-    IMPLICIT NONE
-    LOGICAL :: is_mpi_root
-    CALL getin('nbp',iim_glo)
-    jjm_glo=iim_glo
-    CALL getin('llm',llm)
-    nqtot=1
-    CALL getin('nqtot',nqtot)
-    IF(is_mpi_root) THEN
-       PRINT *, 'GETIN nbp = ',iim_glo
-       PRINT *, 'GETIN llm = ',llm
-       PRINT *, 'GETIN nqtot = ',nqtot
-    END IF
-    
-  END SUBROUTINE  init_grid_param
-
 END MODULE grid_param
-    

codes/icosagcm/devel/src/icosa_init.f90

@@ -22 +22 @@
   USE diagflux_mod
   USE profiling_mod
-  USE init_unstructured_mod, ONLY: init_grid_type
+  USE init_grid_param_mod
   IMPLICIT NONE
   
     CALL init_profiling
     CALL init_mpipara
-    CALL init_grid_type
     CALL trace_off
     CALL xios_init

codes/icosagcm/devel/src/unstructured/init_unstructured.f90

@@ -1 +1 @@
 MODULE init_unstructured_mod
   USE mpipara, ONLY : is_mpi_master
-  USE grid_param, ONLY : llm, nqdyn
   USE data_unstructured_mod
   IMPLICIT NONE
@@ -11 +10 @@
   INTEGER, ALLOCATABLE :: Idata_read1(:),Idata_read2(:,:),Idata_read3(:,:,:)
 
-  PUBLIC :: init_grid_type
+  PUBLIC :: read_dump_partition
 
 CONTAINS