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

Timestamp:

Jan 27, 2003, 12:06:01 PM (22 years ago)

Author:

lmdzadmin

Message:

Rajout qsol JLD
IM

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

@@ -40 +40 @@
       CALL histwrite(nid_mth,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsol,zx_tmp_2d)
-      CALL histwrite(nid_mth,"qsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
+      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d)
+      CALL histwrite(nid_mth,"qsurf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
+c
+      if (.not. ok_veget) then
+          CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d)
+          CALL histwrite(nid_mth,"qsol",itau_w,zx_tmp_2d,iim*jjmp1
+     $        ,ndex2d)
+      endif
 c
       DO i = 1, klon
@@ -481 +487 @@
      .                               iim*jjmp1,ndex2d)
 c
+      ENDIF
+c
 c  Champs interpolles sur des niveaux de pression