Changeset 2380 for LMDZ5/trunk/libf/phylmd/moy_undefSTD.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/moy_undefSTD.F90 (modified) (1 diff)

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