Changeset 830 for codes/icosagcm/devel/src/base

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/src/base

Files:

• grid_param.f90 (modified) (2 diffs)
• init_grid_param.f90 (added)

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
-