Changeset 1036 for LMDZ4/trunk/libf/phylmd/phys_output_write.h

Timestamp:

Oct 28, 2008, 3:49:05 PM (16 years ago)

Author:

lmdzadmin

Message:

Correction AI: aire et contfracATM : ecriture une fois (once)
Correction IM: ecriture meantaucld a la frequence d'appel du simulateur ISCCP
AI/IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -665 +665 @@
 #ifdef histISCCP
       IF(ok_isccp) THEN
-       IF (flag_meantaucld(iff)<=lev_files(iff)) THEN
+       IF (MOD(itap,NINT(freq_ISCCP/dtime)).EQ.0) THEN
+        IF (flag_meantaucld(iff)<=lev_files(iff)) THEN
        CALL histwrite_phy(nid_files(iff),"meantaucld",itau_w,meantaucld)
+        ENDIF
        ENDIF
       ENDIF !(ok_isccp)
@@ -994 +996 @@
        ENDIF
 
-       IF (iflag_thermals.ge.1) THEN
+       IF (iflag_thermals.gt.1) THEN
         IF (flag_f_th(iff)<=lev_files(iff)) THEN
         CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm)