Changeset 1724 for LMDZ5/trunk/libf/phylmd/phys_output_write.h

Timestamp:

Feb 7, 2013, 3:56:38 PM (11 years ago)

Author:

musat

Message:

Ajout coefficient beta (=Evap/Evap? potentielle) fonction de la latitude
et de la saison (voir these AbdulKhadre? Traore).

Frederic Hourdin
IM

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_write.h

@@ -440 +440 @@
         CALL histwrite_phy(nid_files(iff),clef_stations(iff),
      $                   o_tsol_srf(nsrf)%name,itau_w,
+     $      zx_tmp_fi2d)
+        ENDIF
+
+        IF (o_evappot_srf(nsrf)%flag(iff)<=lev_files(iff)) THEN
+        zx_tmp_fi2d(1 : klon) = evap_pot( 1 : klon, nsrf)
+        CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $                   o_evappot_srf(nsrf)%name,itau_w,
      $      zx_tmp_fi2d)
         ENDIF