Changeset 582

Timestamp:

Jan 28, 2005, 4:31:03 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Sauvegarde des rayonnements solaires net et incident pour Orchidee
LF

File:

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

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

@@ -95 +95 @@
       zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
+      CALL histwrite(nid_hf,"SWnetOR",itau_w,
+     $     zx_tmp_2d,iim*jjmp1,ndex2d)
+c
+      zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol(1:klon))
+      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
       CALL histwrite(nid_hf,"SWdownOR",itau_w,
      $     zx_tmp_2d,iim*jjmp1,ndex2d)