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

Timestamp:

Jan 27, 2003, 3:27:20 PM (21 years ago)

Author:

lmdzadmin

Message:

Ajout cape_max, SWup, SWdn au TOA et SFC ciel clair IM

File:

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

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

@@ -207 +207 @@
       CALL histwrite(nid_day,"slp",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
 
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d)
+      CALL histwrite(nid_day,"cape_max",itau_w,zx_tmp_2d,
+     .               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