- Timestamp:
- 10/11/14 23:34:11 (10 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/grid_param.f90
r17 r280 8 8 CONTAINS 9 9 10 SUBROUTINE init_grid_param 11 USE IOIPSL 12 IMPLICIT NONE 10 SUBROUTINE init_grid_param(is_mpi_root) 11 USE IOIPSL 12 IMPLICIT NONE 13 LOGICAL :: is_mpi_root 13 14 CALL getin('nbp',iim_glo) 14 15 jjm_glo=iim_glo 15 16 CALL getin('llm',llm) 16 17 17 nqtot=1 18 18 CALL getin('nqtot',nqtot) 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 19 24 20 25 END SUBROUTINE init_grid_param -
codes/icosagcm/trunk/src/icosa_gcm.f90
r202 r280 19 19 CALL xios_init 20 20 CALL init_earth_const 21 CALL init_grid_param 21 CALL init_grid_param(is_mpi_root) 22 22 CALL init_omp_para 23 23 CALL compute_metric
Note: See TracChangeset
for help on using the changeset viewer.