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

Timestamp:

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

Author:

lmdzadmin

Message:

Ajout slp, ffonte, fqcalving IM/FH/JLD

File:

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

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