Changeset 838 for LMDZ4/trunk/libf/phytherm

Timestamp:

Aug 30, 2007, 12:17:05 PM (17 years ago)

Author:

lmdzadmin

Message:

Oubli ajout frequence calcul "freq_ISCCP" et sortie "ecrit_ISCCP" ISCCP
JG/IM

Location:

LMDZ4/trunk/libf/phytherm

Files:

• ini_paramLMDZ_phy.h (modified) (1 diff)
• write_paramLMDZ_phy.h (modified) (1 diff)

LMDZ4/trunk/libf/phytherm/ini_paramLMDZ_phy.h

@@ -347 +347 @@
      .                "once", zstophy,zout)
 c
-       CALL histdef(nid_ctesGCM, "freqin_isccp",
-     .                "freqin_isccp", "-",
-     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
-     .                "once", zstophy,zout)
-c
-       CALL histdef(nid_ctesGCM, "freqout_isccp",
-     .                "freqout_isccp", "-",
+       CALL histdef(nid_ctesGCM, "freq_ISCCP",
+     .                "freq_ISCCP", "-",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "once", zstophy,zout)
+c
+       CALL histdef(nid_ctesGCM, "ecrit_ISCCP",
+     .                "ecrit_ISCCP", "-",
      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
      .                "once", zstophy,zout)

LMDZ4/trunk/libf/phytherm/write_paramLMDZ_phy.h

@@ -327 +327 @@
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=freqin_isccp
-      CALL histwrite(nid_ctesGCM,"freqin_isccp",itau_w,
-     .               zx_tmp_2d,iim*jjmp1,ndex2d)
-c
-      zx_tmp_2d(1:iim,1:jjmp1)=freqout_isccp
-      CALL histwrite(nid_ctesGCM,"freqout_isccp",itau_w,
+      zx_tmp_2d(1:iim,1:jjmp1)=freq_ISCCP
+      CALL histwrite(nid_ctesGCM,"freq_ISCCP",itau_w,
+     .               zx_tmp_2d,iim*jjmp1,ndex2d)
+c
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_ISCCP
+      CALL histwrite(nid_ctesGCM,"ecrit_ISCCP",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c