Changeset 958 for LMDZ4/trunk/libf/phylmd/phys_output_write.h

Timestamp:

May 27, 2008, 4:46:54 PM (16 years ago)

Author:

lsce

Message:

Correction de bug diagnonstique :

• initilisation de sollwdownclr
• ecriture de pourc_lic et fract_lic

JG

File:

• LMDZ4/trunk/libf/phylmd/phys_output_write.h (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -15 +15 @@
        IF (flag_aire(iff)<=lev_files(iff)) THEN
        CALL histwrite_phy(nid_files(iff),"aire",itau_w,airephy)
-       ENDIF
-
-       IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
-      zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100.
-      CALL histwrite_phy(nid_files(iff),
-     $                   "pourc_"//clnsurf(is_ter),itau_w,
-     $                   zx_tmp_fi2d)
-       ENDIF
-
-       IF (flag_fract_sol(iff)<=lev_files(iff)) THEN
-      zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)
-      CALL histwrite_phy(nid_files(iff),
-     $               "fract_"//clnsurf(is_ter),itau_w,
-     $               zx_tmp_fi2d)
        ENDIF
 
@@ -283 +269 @@
        ENDIF
 
+       sollwdownclr(1:klon) = -1.*lwdn0(1:klon,1)
        IF (flag_LWupSFCclr(iff)<=lev_files(iff)) THEN
       zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon)
@@ -322 +309 @@
 
          DO nsrf = 1, nbsrf
-           IF(nsrf.GT.2) THEN
             IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
             zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
@@ -336 +322 @@
      $      zx_tmp_fi2d)
           ENDIF
-         ENDIF !nsrf.GT.2
 
         IF (flag_taux_sol(iff)<=lev_files(iff)) THEN