Changeset 1920 for LMDZ5/trunk/libf

Timestamp:

Dec 19, 2013, 11:31:02 AM (11 years ago)

Author:

idelkadi

Message:

Correction de bug sur les sorties NMC en cas de simulaion en mode parallel

Location:

LMDZ5/trunk/libf/phylmd

Files:

• phys_output_mod.F90 (modified) (3 diffs)
• physiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -7 +7 @@
   USE aero_mod, only : naero_spc,name_aero
   USE phys_output_write_mod, ONLY : phys_output_write
+  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
 
 ! Abderrahmane 12 2007
@@ -106 +107 @@
     CHARACTER(LEN=6)                      :: type_ocean
     CHARACTER(LEN=3)                      :: ctetaSTD(nbteta)
-    REAL, DIMENSION(nfiles)               :: ecrit_files
     INTEGER, DIMENSION(iim*jjmp1)         ::  ndex2d
     INTEGER, DIMENSION(iim*jjmp1*klev)    :: ndex3d
@@ -488 +488 @@
     ecrit_LES = ecrit_files(5)
     ecrit_ins = ecrit_files(6)
-    freq_outNMC(1) = ecrit_files(7)
-    freq_outNMC(2) = ecrit_files(8)
-    freq_outNMC(3) = ecrit_files(9)
-
-    WRITE(lunout,*)'freq_outNMC(1)=',freq_outNMC(1)
-    WRITE(lunout,*)'freq_outNMC(2)=',freq_outNMC(2)
-    WRITE(lunout,*)'freq_outNMC(3)=',freq_outNMC(3)
+
     WRITE(lunout,*)'swaero_diag=',swaero_diag
     WRITE(lunout,*)'Fin phys_output_mod.F90'
+
   end SUBROUTINE phys_output_open
 

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -1257 +1257 @@
      !$OMP BARRIER
 
+    freq_outNMC(1) = ecrit_files(7)
+    freq_outNMC(2) = ecrit_files(8)
+    freq_outNMC(3) = ecrit_files(9)
+    WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
+    WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
+    WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
 
      include "ini_histday_seri.h"