Changeset 467 for LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histday.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_histday.h (modified) (2 diffs)

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

@@ -160 +160 @@
 c    .              'Cloud liquid water path','-')
 c
-      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_day, "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_day, "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_day, "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_day, "SWdnSFC",itau_w,zx_tmp_2d,
      .                               iim*jjmp1,ndex2d)
 
+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_day, "SWupTOAclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+
+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_day, "SWupSFCclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+ 
+c      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1)
+      zx_tmp_fi2d(1 : klon) = swdn0( 1 : klon, 2 )
+
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day, "SWdnTOAclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+ 
+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_day, "SWdnSFCclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+cIM
+      CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
+      CALL histwrite(nid_day,"prw",itau_w,zx_tmp_2d,
+     .               iim*jjmp1,ndex2d)
 
 c   Ecriture de champs dynamiques sur des niveaux de pression
@@ -211 +250 @@
      .               iim*jjmp1,ndex2d)
 
-      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, klevp1)
-      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
-      CALL histwrite(nid_day, "SWupTOAclr",itau_w,zx_tmp_2d,
-     .                               iim*jjmp1,ndex2d)
-
-      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1)
-      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
-      CALL histwrite(nid_day, "SWupSFCclr",itau_w,zx_tmp_2d,
-     .                               iim*jjmp1,ndex2d)
- 
-      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_day, "SWdnTOAclr",itau_w,zx_tmp_2d,
-     .                               iim*jjmp1,ndex2d)
- 
-      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1)
-      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
-      CALL histwrite(nid_day, "SWdnSFCclr",itau_w,zx_tmp_2d,
-     .                               iim*jjmp1,ndex2d)
 
 c