Changeset 4137

Timestamp:

Apr 22, 2022, 6:01:52 PM (3 years ago)

Author:

Ehouarn Millour

Message:

Minor follow-up to r4135.
EM

File:

• LMDZ6/branches/Portage_acc/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Portage_acc/libf/phylmd/physiq_mod.F90

@@ -168 +168 @@
 
 
- #ifdef CPP_StratAer
+#ifdef CPP_StratAer
     USE strataer_mod, ONLY: strataer_init
 #endif
@@ -1100 +1100 @@
     CHARACTER (LEN=20) :: modname='physiq_mod'
     CHARACTER*80 abort_message
-    LOGICAL, SAVE ::  ok_sync, ok_sync_omp
+    LOGICAL, SAVE ::  ok_sync
     !$OMP THREADPRIVATE(ok_sync)
     REAL date0
@@ -1672 +1672 @@
 #ifdef CPP_IOIPSL
 
-       !$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_p('ok_sync',ok_sync_omp)
+       ok_sync=.FALSE.
+       CALL getin_p('ok_sync',ok_sync)
+       !$OMP MASTER
        CALL phys_output_open(longitude_deg,latitude_deg,nCFMIP,tabijGCM, &
             iGCM,jGCM,lonGCM,latGCM, &
@@ -1686 +1686 @@
             flag_aerosol_strat, pdtphys, paprs, pphis,  &
             pplay, lmax_th, ptconv, ptconvth, ivap,  &
-            d_u, d_t, qx, d_qx, zmasse, ok_sync_omp)
+            d_u, d_t, qx, d_qx, zmasse, ok_sync)
        !$OMP END MASTER
        !$OMP BARRIER
-       ok_sync=ok_sync_omp
 
        freq_outNMC(1) = ecrit_files(7)