Changeset 1633 for LMDZ5/trunk/libf/phylmd/phys_output_write.h

Timestamp:

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

Author:

lguez

Message:

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

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write.h (modified) (2 diffs)

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