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

Timestamp:

Mar 7, 2003, 5:46:19 PM (22 years ago)

Author:

lmdzadmin

Message:

Ajout slp, ffonte, fqcalving IM/FH/JLD

Location:

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

Files:

• ini_histmth.h (modified) (2 diffs)
• write_histmth.h (modified) (2 diffs)

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

@@ -35 +35 @@
 c Champs 2D:
 c
+         CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zsto,zout)
+c
          CALL histdef(nid_mth, "tsol", "Surface Temperature", "K",
      .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
@@ -151 +155 @@
          CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
      .                iim,jjmp1,nhori, 1,1,1, -99, 32, 
+     .                "ave(X)", zsto,zout)
+cIM cf JLD
+         CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
+     .                "W/m2",iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zsto,zout)
+c
+         CALL histdef(nid_mth, "fqcalving","Ice Calving",
+     .                "kg/m2/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
      .                "ave(X)", zsto,zout)
 c

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

@@ -17 +17 @@
       CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d)
       CALL histwrite(nid_mth,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
+
+      CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
+      CALL histwrite(nid_mth,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
 
       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
@@ -127 +130 @@
 c      CALL histwrite(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
 c
+cIM cf JLD
+       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d)
+       CALL histwrite(nid_mth,"ffonte",itau_w,zx_tmp_2d,iim*jjmp1,
+     $                ndex2d)
+c
+       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d)
+       CALL histwrite(nid_mth,"fqcalving",itau_w,zx_tmp_2d,iim*jjmp1,
+     $                ndex2d)
+c
+
       DO nsrf = 1, nbsrf
 CYYY