Changeset 1633 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jun 25, 2012, 5:02:50 PM (12 years ago)

Author:

lguez

Message:

"prw" can now be output even if "iflag_con < 3".

Location:

LMDZ5/trunk/libf/phylmd

Files:

• phys_output_mod.F90 (modified) (2 diffs)
• phys_output_write.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -1216 +1216 @@
                      o_wbeff%flag,o_wbeff%name, "Conv. updraft velocity at LFC (<100)", "m/s")
              end if
-             CALL histdef2d(iff,clef_stations(iff), &
-                  o_prw%flag,o_prw%name, "Precipitable water", "kg/m2")
              IF (.NOT.clef_stations(iff)) THEN 
                 !
@@ -1253 +1251 @@
           ENDIF !iflag_con .GE. 3
 
+          CALL histdef2d(iff,clef_stations(iff), &
+               o_prw%flag,o_prw%name, "Precipitable water", "kg/m2")
           CALL histdef2d(iff,clef_stations(iff), &
                o_s_pblh%flag,o_s_pblh%name, "Boundary Layer Height", "m")

LMDZ5/trunk/libf/phylmd/phys_output_write.h

@@ -631 +631 @@
         end if
 
-        IF (o_prw%flag(iff)<=lev_files(iff)) THEN
-      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
-     $o_prw%name,itau_w,prw)
-        ENDIF
-
       IF (.NOT.clef_stations(iff)) THEN
       IF (o_cape_max%flag(iff)<=lev_files(iff)) THEN
@@ -681 +676 @@
       
       ENDIF !iflag_con .GE. 3
+
+      IF (o_prw%flag(iff) <= lev_files(iff))
+     $     CALL histwrite_phy(nid_files(iff), clef_stations(iff),
+     $     o_prw%name, itau_w, prw)
 
         IF (o_s_pblh%flag(iff)<=lev_files(iff)) THEN