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

Last change on this file since 78 was 17, checked in by ymipsl, 12 years ago

Merge advection scheme from sarvesh in standard version

YM
File size: 400 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
10  SUBROUTINE init_grid_param
11  USE IOIPSL
12  IMPLICIT NONE
13    CALL getin('nbp',iim_glo)
[17]14    jjm_glo=iim_glo
[15]15    CALL getin('llm',llm)
16   
[17]17    nqtot=1
18    CALL getin('nqtot',nqtot)
19   
[15]20  END SUBROUTINE  init_grid_param
21
[12]22END MODULE grid_param
23   
Note: See TracBrowser for help on using the repository browser.