Changeset 2090 for LMDZ5/trunk/libf

Timestamp:

Jul 12, 2014, 11:24:09 AM (10 years ago)

Author:

fhourdin

Message:

Ajout de la lecture de la clef ok_sync par getin dans physiq.F90
Adding ok_sync reading in physiq.F90

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -11 +11 @@
 
   USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
-       histwrite, ju2ymds, ymds2ju, ioget_year_len
+       histwrite, ju2ymds, ymds2ju, ioget_year_len, getin
   USE comgeomphy
   USE phys_cal_mod
@@ -710 +710 @@
   character*20 modname
   character*80 abort_message
-  logical ok_sync
+  logical, save ::  ok_sync, ok_sync_omp
+  !$OMP THREADPRIVATE(ok_sync)
   real date0
   integer idayref
@@ -946 +947 @@
      END DO
   END IF
-  ok_sync=.false.
 
   IF (debut) THEN
@@ -1230 +1230 @@
 
      !$OMP MASTER
+! FH : if ok_sync=.true. , the time axis is written at each time step
+! in the output files. Only at the end in the opposite case
+     ok_sync_omp=.false.
+     CALL getin('ok_sync',ok_sync_omp)
      call phys_output_open(rlon,rlat,nCFMIP,tabijGCM, &
           iGCM,jGCM,lonGCM,latGCM, &
@@ -1239 +1243 @@
           flag_aerosol_strat, pdtphys, paprs, pphis,  &
           pplay, lmax_th, ptconv, ptconvth, ivap,  &
-          d_t, qx, d_qx, zmasse, ok_sync)
+          d_t, qx, d_qx, zmasse, ok_sync_omp)
      !$OMP END MASTER
      !$OMP BARRIER
+     ok_sync=ok_sync_omp
 
      freq_outNMC(1) = ecrit_files(7)