Changeset 594 for LMDZ4/trunk/libf/phylmd/write_histhf.h

Timestamp:

Feb 24, 2005, 10:58:18 AM (19 years ago)

Author:

Laurent Fairhead

Message:

Bugs introduit par la synchro avec LOOP je sais pas comment GG
LF

File:

• LMDZ4/trunk/libf/phylmd/write_histhf.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_histhf.h

@@ -274 +274 @@
      $     zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      CALL gr_fi_ecrit(1, klon,iim,jjmp1, swdownor , zx_tmp_2d)
+      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)