Changeset 1182

Timestamp:

Jun 16, 2009, 1:59:42 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Les variables lwdn200 et lwdn200clr n'etaient pas correctement calculees
pour les sorties ACo
LF

File:

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

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

@@ -219 +219 @@
        IF (o_LWdn200%flag(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),
-     s                   o_LWdn200%name,itau_w,zx_tmp_fi2d)
+     s                   o_LWdn200%name,itau_w,LWdn200)
        ENDIF
 
        IF (o_LWdn200clr%flag(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),
-     s                  o_LWdn200clr%name,itau_w,zx_tmp_fi2d)
+     s                  o_LWdn200clr%name,itau_w,LWdn200clr)
        ENDIF