Changeset 1045 for LMDZ4/trunk/libf/phylmd/write_histISCCP.h

Timestamp:

Nov 6, 2008, 5:31:39 PM (16 years ago)

Author:

lmdzadmin

Message:

On sort meantaucld dans histISCCP, car sortie simulateur (enleve du histday)
Lecture fichiers input ISCCP "debut" physiq
IM

File:

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

LMDZ4/trunk/libf/phylmd/write_histISCCP.h

@@ -29 +29 @@
         CALL histwrite_phy(nid_isccp,"nsunlit"//verticaxe(n),itau_w,
      .                 nbsunlit(1,:,n))
+c
+       CALL histwrite_phy(nid_isccp,"meantaucld"//verticaxe(n),itau_w,
+     .                 meantaucld(:,n))
 c
         ENDDO ! n=1, napisccp
@@ -71 +74 @@
      .                 itau_w,nbsunlit(1,:,n))
 c
+       CALL histwrite_phy(nid_isccp,"meantaucld"//verticaxe(n),itau_w,
+     .                 meantaucld(:,n))
+c
         zx_tmp_fi2d(1:klon)=float(seed(1:klon,n))
 c