Changeset 926 for codes/icosagcm/trunk/src/base
- Timestamp:
- 06/21/19 00:42:30 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/base/grid_param.f90
r548 r926 14 14 LOGICAL :: is_mpi_root 15 15 CALL getin('nbp',iim_glo) 16 jjm_glo=iim_glo17 16 CALL getin('llm',llm) 18 17 nqtot=1 … … 23 22 PRINT *, 'GETIN nqtot = ',nqtot 24 23 END IF 24 iim_glo=iim_glo+1 25 jjm_glo=iim_glo 25 26 26 27 END SUBROUTINE init_grid_param
Note: See TracChangeset
for help on using the changeset viewer.