source: codes/icosagcm/trunk/src/base/grid_param.f90

Last change on this file was 926, checked in by dubos, 5 years ago

devel and trunk : let iim_glo=nbp+1 so that MOD(nbp,npslit_X)==0 implies equal-sized domains and good load balancing
File size: 734 bytes
RevLine 
[12]1MODULE grid_param
[15]2  INTEGER  :: iim_glo=40
3  INTEGER  :: jjm_glo
[12]4  INTEGER,PARAMETER  :: nb_face=10
[15]5  INTEGER  :: llm=19
[387]6  INTEGER  :: nqtot ! number of tracers handled by advection scheme
7  INTEGER  :: nqdyn ! number of dynamical tracers : 1 if dry, more if moist
[15]8
9CONTAINS
10
[280]11  SUBROUTINE init_grid_param(is_mpi_root)
[491]12    USE ioipsl
[280]13    IMPLICIT NONE
14    LOGICAL :: is_mpi_root
[15]15    CALL getin('nbp',iim_glo)
16    CALL getin('llm',llm)
[17]17    nqtot=1
18    CALL getin('nqtot',nqtot)
[280]19    IF(is_mpi_root) THEN
20       PRINT *, 'GETIN nbp = ',iim_glo
21       PRINT *, 'GETIN llm = ',llm
22       PRINT *, 'GETIN nqtot = ',nqtot
23    END IF
[926]24    iim_glo=iim_glo+1
25    jjm_glo=iim_glo
[17]26   
[15]27  END SUBROUTINE  init_grid_param
28
[12]29END MODULE grid_param
30   
Note: See TracBrowser for help on using the repository browser.