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

Timestamp:

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

Author:

lmdzadmin

Message:

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

Location:

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

Files:

• ini_histday.h (modified) (1 diff)
• write_histday.h (modified) (1 diff)

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

@@ -206 +206 @@
      .                "ave(X)", zsto,zout)
 
+         CALL histdef(nid_day, "cape_max", "CAPE max.",
+     .                "J/Kg",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                capemaxcels, zsto,zout)
+
+         CALL histdef(nid_day, "SWupTOAclr",
+     .                "SWup clear sky at TOA","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
+
+         CALL histdef(nid_day, "SWupSFCclr",
+     .                "SWup clear sky at surface","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
+
+         CALL histdef(nid_day, "SWdnTOAclr",
+     .                "SWdn clear sky at TOA","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
+
+         CALL histdef(nid_day, "SWdnSFCclr",
+     .                "SWdn clear sky at surface","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
 
 c=================================================================

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