Changeset 888 for LMDZ4/trunk/libf/phylmd/write_histins.h

Timestamp:

Feb 4, 2008, 5:24:28 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Modifications sur l'albedo JG
LF

File:

• LMDZ4/trunk/libf/phylmd/write_histins.h (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/write_histins.h

@@ -145 +145 @@
      $      zx_tmp_fi2d) 
 C
-        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
+        zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf)
 cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
         CALL histwrite_phy(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
@@ -151 +151 @@
 C 
       END DO  
-cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
-      CALL histwrite_phy(nid_ins,"albs",itau_w,albsol)
+cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol1,zx_tmp_2d)
+      CALL histwrite_phy(nid_ins,"albs",itau_w,albsol1)
       
-cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
-      CALL histwrite_phy(nid_ins,"albslw",itau_w,albsollw)
+cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol2,zx_tmp_2d)
+      CALL histwrite_phy(nid_ins,"albslw",itau_w,albsol2)
 
 c