Changeset 832 for codes


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

devel : fix pure-MPI build

Location:
codes/icosagcm/devel/src/unstructured
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r813 r832  
    11MODULE data_unstructured_mod 
    22  USE ISO_C_BINDING 
    3   USE OMP_LIB 
    43  USE mpipara, ONLY : is_mpi_master 
    54  USE grid_param, ONLY : llm, nqdyn 
     5#ifdef CPP_USING_OMP 
     6  USE OMP_LIB 
     7#endif 
    68  IMPLICIT NONE 
    79  SAVE 
    … …  
    7274 
    7375  !----------------------------      PROFILING      -------------------------- 
    74    
     76 
     77#ifndef CPP_USING_OMP 
     78  FUNCTION omp_get_wtime() 
     79    TIME :: omp_get_wtime 
     80    CALL CPU_TIME(omp_get_wtime) 
     81  END FUNCTION omp_get_wtime 
     82 
     83  FUNCTION omp_get_num_procs() 
     84    INTEGER :: omp_get_num_procs 
     85    omp_get_num_procs=1 
     86  END FUNCTION omp_get_num_procs 
     87 
     88  FUNCTION omp_get_max_threads() 
     89    INTEGER :: omp_get_max_threads 
     90    omp_get_max_threads=1 
     91  END FUNCTION omp_get_max_threads 
     92#endif 
     93 
    7594  SUBROUTINE init_trace() 
    7695    !$OMP MASTER 

  • 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 

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

    r688 r832  
    11MODULE transport_unstructured_mod 
    22  USE ISO_C_BINDING 
    3   USE OMP_LIB 
    43  USE data_unstructured_mod 
    54  IMPLICIT NONE 
    … …  
    3433     
    3534    time2=OMP_GET_WTIME() 
    36     !  CALL CPU_TIME(time2) 
    3735    IF(time2>time1) elapsed = elapsed + time2-time1 
    3836 
Note: See TracChangeset for help on using the changeset viewer.