Changeset 1213 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

Timestamp:

Jul 21, 2009, 4:43:43 PM (15 years ago)

Author:

idelkadi

Message:

Rajout de la possibilite de lire dans *.def les frequences de sorties pour les different fichiers de sortie, sous format :
phys_out_filetimesteps= Xmth, Yday, Zhor, Ahor, Bmth (X, Y, Z, A et B entiers)
Corrections dans phys_output_mod.F90

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

@@ -575 +575 @@
 
 ! Champs interpolles sur des niveaux de pression
-! if=1 on ecrit u v w phi sur 850 700 500 200 au niv 1
-! if=2 on ecrit w et ph 500 seulement au niv 1
-!        et u v sur 850 700 500 200
-! if=3 on ecrit ph a 500 seulement au niv 1
-!      on ecrit u v t q a 850 700 500 200 au niv 3
 
         ll=0
         DO k=1, nlevSTD
-         IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
-         IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
+!         IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
+!         IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
+         bb2=clevSTD(k) 
          IF(bb2.EQ."850".OR.bb2.EQ."700".OR.
-     $      bb2.EQ."500".OR.bb2.EQ."200") THEN
+     $      bb2.EQ."500".OR.bb2.EQ."200".OR.
+     $      bb2.EQ."50".OR.bb2.EQ."10") THEN
 
 ! a refaire correctement !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!