Changeset 1921 for LMDZ5/branches/testing/libf/phylmd/calcul_STDlev.h

Timestamp:

Dec 20, 2013, 10:04:40 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1909:1920 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/calcul_STDlev.h (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/calcul_STDlev.h

@@ -6 +6 @@
         missing_val=nf90_fill_real
 !
-!IM freq_moyNMC = frequences auxquelles on moyenne les champs accumules 
-!IM               sur les niveaux de pression standard du NMC
-      DO n=1, nout
-       freq_moyNMC(n)=freq_outNMC(n)/freq_calNMC(n)
-      ENDDO
-!
-        CALL ini_undefSTD(itap,freq_outNMC)
+        CALL ini_undefSTD(itap,itapm1)
 !
 !IM on interpole les champs sur les niveaux STD de pression 
@@ -135 +129 @@
 !IM on somme les valeurs toutes les freq_calNMC secondes
 !
-       CALL undefSTD(itap,freq_calNMC, read_climoz)
-!
-!IM on moyenne a la fin du mois ou du jour (toutes les freq_outNMC secondes)
-!
-       CALL moy_undefSTD(itap,freq_outNMC,freq_moyNMC)
+       CALL undefSTD(itap, read_climoz)
+!
+!IM on moyenne a la fin du mois, du jour ou toutes les 6h
+!
+       CALL moy_undefSTD(itap,itapm1)
 !
        CALL plevel(klon,klev,.true.,pplay,50000., &