Ignore:
Timestamp:
05/02/19 13:56:48 (5 years ago)
Author:
dubos
Message:

devel : fix pure-MPI build

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

    r802 r832  
    11MODULE timestep_unstructured_mod 
    22  USE ISO_C_BINDING 
    3   USE OMP_LIB 
    43#ifdef CPP_USING_XIOS 
    54  USE xios 
    … …  
    6059    INTEGER :: ij 
    6160     
    62     !  CALL CPU_TIME(time1) 
    6361    time1=OMP_GET_WTIME() 
    6462     
    … …  
    107105     
    108106    time2=OMP_GET_WTIME() 
    109     !  CALL CPU_TIME(time2) 
    110107    IF(time2>time1) elapsed = elapsed + time2-time1 
    111108 
    … …  
    140137    INTEGER :: step, stage, iq, ij 
    141138     
    142     !CALL CPU_TIME(time1) 
    143139    time1=OMP_GET_WTIME() 
    144140     
    … …  
    234230     
    235231    time2=OMP_GET_WTIME() 
    236     !  CALL CPU_TIME(time2) 
    237232    IF(time2>time1) elapsed = elapsed + time2-time1 
    238233 
Note: See TracChangeset for help on using the changeset viewer.