Changeset 467 for LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h

Timestamp:

Aug 6, 2003, 4:50:49 PM (21 years ago)

Author:

lmdzadmin

Message:

Modifs sur les seuils (cdrag etc...), inclusion des diagnostics ISCCP par Ionela
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h

@@ -459 +459 @@
 c
 cccIM
-      zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, klevp1)
+c      zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, klevp1)
+      zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 2 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWupTOA",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
-      zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1)
+c      zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1)
+      zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWupSFC",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
-      zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, klevp1)
+c      zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, klevp1)
+      zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 2 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWdnTOA",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
-      zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1)
+c      zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1)
+      zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWdnSFC",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
+      CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
+      CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d,
+     .               iim*jjmp1,ndex2d)
+
 cccIM clear sky
-      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, klevp1)
+c      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, klevp1)
+      zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 2 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWupTOAclr",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
-      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1)
+c      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1)
+      zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWupSFCclr",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
-      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1)
+c      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1)
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 c
-      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1)
+c      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1)
+      zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 )
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_2d,