Changeset 830 for codes/icosagcm/devel/src/base
- Timestamp:
- 05/02/19 09:44:14 (5 years ago)
- Location:
- codes/icosagcm/devel/src/base
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/base/grid_param.f90
r813 r830 1 1 MODULE grid_param 2 IMPLICIT NONE 3 SAVE 2 4 INTEGER :: iim_glo=40 3 5 INTEGER :: jjm_glo … … 8 10 INTEGER :: nqtot ! number of tracers handled by advection scheme 9 11 INTEGER, BIND(C) :: nqdyn ! number of dynamical tracers : 1 if dry, more if moist 10 11 CONTAINS12 13 SUBROUTINE init_grid_param(is_mpi_root)14 USE ioipsl15 IMPLICIT NONE16 LOGICAL :: is_mpi_root17 CALL getin('nbp',iim_glo)18 jjm_glo=iim_glo19 CALL getin('llm',llm)20 nqtot=121 CALL getin('nqtot',nqtot)22 IF(is_mpi_root) THEN23 PRINT *, 'GETIN nbp = ',iim_glo24 PRINT *, 'GETIN llm = ',llm25 PRINT *, 'GETIN nqtot = ',nqtot26 END IF27 28 END SUBROUTINE init_grid_param29 30 12 END MODULE grid_param 31
Note: See TracChangeset
for help on using the changeset viewer.