Changeset 888


Ignore:
Timestamp:
06/13/19 10:10:37 (5 years ago)
Author:
ymipsl
Message:

OpenMP fix when reading metric.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/output/xios_mod.F90

    r882 r888  
    358358   dtime%second=1 
    359359   CALL xios_set_timestep(dtime) 
     360!$OMP END MASTER 
    360361 
    361362   CALL getin('etat0',etat0_type) 
    362363   CALL getin('read_metric', read_metric_)  
    363     
     364 
     365!$OMP MASTER 
     366   
    364367   CALL xios_set_file_attr('start', enabled=.FALSE.) 
    365368   IF (TRIM(etat0_type)=='start_file' .AND. read_metric_) THEN 
Note: See TracChangeset for help on using the changeset viewer.