Ignore:
Timestamp:
Jul 4, 2023, 7:30:42 PM (17 months ago)
Author:
fhourdin
Message:

Synchronisation des dynzon.nc a chaque ecriture

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/bilan_dyn_loc.F

    r4469 r4605  
    141141      character*10 infile
    142142
    143       integer fileid
     143      integer, save :: fileid
    144144      integer thoriid, zvertiid
    145       save fileid
    146145
    147146      INTEGER,SAVE,ALLOCATABLE :: ndex3d(:)
    … …  
    838837c/////////////////////////////////////////////////////////////////////
    839838c=====================================================================
     839!$OMP MASTER
     840      call histsync(fileid)
     841!$OMP END MASTER
     842
    840843
    841844      return
Note: See TracChangeset for help on using the changeset viewer.