Changeset 832 for LMDZ4/trunk/libf/phytherm/write_histISCCP.h

Timestamp:

Aug 28, 2007, 5:10:14 PM (17 years ago)

Author:

lmdzadmin

Message:

Correction bug sorties ISCCP (7pres X 7tau) + ENSEMBLES + ajout freq_ISCCP/ecrit_ISCCP
IM

File:

• LMDZ4/trunk/libf/phytherm/write_histISCCP.h (modified) (3 diffs)

LMDZ4/trunk/libf/phytherm/write_histISCCP.h

@@ -20 +20 @@
 cIM: champ 3d : (lon,lat,pres) pour un tau fixe
 c
-       CALL histwrite_phy(nid_isccp,"cldISCCP_"//taulev(k)//typinout(n),
+       CALL histwrite_phy(nid_isccp,"cldISCCP_"//taulev(k)//verticaxe(n),
      .                  itau_w,zx_tmp_fi3d)
         ENDDO !k
 c
 cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:,n),zx_tmp_2d)
-        CALL histwrite_phy(nid_isccp,"nsunlit"//typinout(n),itau_w,
+        CALL histwrite_phy(nid_isccp,"nsunlit"//verticaxe(n),itau_w,
      .                 nbsunlit(1,:,n))
 c
@@ -55 +55 @@
 cIM: champ 2d : (lon,lat) pour un tau et une pc fixes
 c
-         CALL histwrite_phy(nid_isccp,pclev(l)//taulev(k)//typinout(n),
-     .                  itau_w,fq_is_true(:,:,l,n))
+         CALL histwrite_phy(nid_isccp,pclev(l)//taulev(k)//verticaxe(n),
+     .                  itau_w,fq_is_true(:,k,l,n))
          ENDDO !l
         ENDDO !k
@@ -62 +62 @@
 c       print*,'n=',n,' write_ISCCP avant nbsunlit'
 cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:,n),zx_tmp_2d)
-        CALL histwrite_phy(nid_isccp,"nsunlit"//typinout(n),
+        CALL histwrite_phy(nid_isccp,"nsunlit"//verticaxe(n),
      .                 itau_w,nbsunlit(1,:,n))
 c