source: codes/icosagcm/trunk/src/grid_param.f90 @ 382

Last change on this file since 382 was 280, checked in by dubos, 10 years ago

PRINT values read by getin for nbp, llm, nqtot
File size: 588 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
[17]6  INTEGER  :: nqtot
[15]7
8CONTAINS
9
[280]10  SUBROUTINE init_grid_param(is_mpi_root)
11    USE IOIPSL
12    IMPLICIT NONE
13    LOGICAL :: is_mpi_root
[15]14    CALL getin('nbp',iim_glo)
[17]15    jjm_glo=iim_glo
[15]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
[17]24   
[15]25  END SUBROUTINE  init_grid_param
26
[12]27END MODULE grid_param
28   
Note: See TracBrowser for help on using the repository browser.