Changeset 2380 for LMDZ5/trunk/libf

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

Location:

LMDZ5/trunk/libf/phylmd

Files:

• moy_undefSTD.F90 (modified) (1 diff)
• phys_output_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/moy_undefSTD.F90

@@ -74 +74 @@
     ! calcul 1 fois pas mois, 1 fois par jour ou toutes les 6h
 
-    IF (mod(itap,nint(freq_outnmc(n)/dtime))==0) THEN
+    IF (n==1 .AND. itap==itapm1 .OR. n>1 .AND. mod(itap,nint(freq_outnmc(n)/ & 
+        dtime))==0) THEN
 
       ! print*,'moy_undefSTD n itap itapm1',n,itap,itapm1

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)