Changeset 280


Ignore:
Timestamp:
10/11/14 23:34:11 (10 years ago)
Author:
dubos
Message:

PRINT values read by getin for nbp, llm, nqtot

Location:
codes/icosagcm/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/grid_param.f90

    r17 r280  
    88CONTAINS 
    99 
    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 
    1314    CALL getin('nbp',iim_glo) 
    1415    jjm_glo=iim_glo 
    1516    CALL getin('llm',llm) 
    16      
    1717    nqtot=1 
    1818    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 
    1924     
    2025  END SUBROUTINE  init_grid_param 

  • codes/icosagcm/trunk/src/icosa_gcm.f90

    r202 r280  
    1919  CALL xios_init 
    2020  CALL init_earth_const  
    21   CALL init_grid_param 
     21  CALL init_grid_param(is_mpi_root) 
    2222  CALL init_omp_para 
    2323  CALL compute_metric 
Note: See TracChangeset for help on using the changeset viewer.