Changeset 2380 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Oct 27, 2015, 4:59:53 PM (9 years ago)

Author:

musat

Message:

Bug fix for 1D cases concerning outputs on NMC levels when running with
instal1D.sh
IM

File:

• LMDZ5/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -288 +288 @@
     WRITE(lunout,*)'Alt approx des couches pour une haut d echelle de 8km = ',Alt(1:klev)
     !          endif
+
+  ecrit_files(7) = ecrit_files(1)
+  ecrit_files(8) = ecrit_files(2)
+  ecrit_files(9) = ecrit_files(3)
+
   DO iff=1,nfiles
 
@@ -302 +307 @@
        CALL convers_timesteps(chtimestep(iff),dtime,ecrit_files(iff)) 
       ENDIF
-
-      ecrit_files(7) = ecrit_files(1)
-      ecrit_files(8) = ecrit_files(2)
-      ecrit_files(9) = ecrit_files(3)
 
        WRITE(lunout,*)'ecrit_files(',iff,')= ',ecrit_files(iff)