Changeset 506 for LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histins.h

Timestamp:

Mar 24, 2004, 9:43:54 AM (20 years ago)

Author:

lmdzadmin

Message:

IM: ajout lev_hist(hf,day,mth) niveaux output definis dans physiq.def et

variables ENSEMBLES + rearrangement

File:

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

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

@@ -85 +85 @@
       CALL histwrite(nid_ins,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
+      zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
+c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
+      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_ins,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
 c