Changeset 1724 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

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_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -189 +189 @@
        ctrl_out((/ 1, 6, 10, 10, 10, 10 /),'tsol_oce'), &
        ctrl_out((/ 1, 6, 10, 10, 10, 10 /),'tsol_sic') /)
+
+  type(ctrl_out),save,dimension(4) :: o_evappot_srf     = (/ ctrl_out((/ 1, 6, 10, 10, 10, 10 /),'evappot_ter'), &
+       ctrl_out((/ 4, 6, 10, 10, 10, 10 /),'evappot_lic'), &
+       ctrl_out((/ 4, 6, 10, 10, 10, 10 /),'evappot_oce'), &
+       ctrl_out((/ 4, 6, 10, 10, 10, 10 /),'evappot_sic') /)
 
   type(ctrl_out),save,dimension(4) :: o_sens_srf     = (/ ctrl_out((/ 1, 6, 10, 7, 10, 10 /),'sens_ter'), &
@@ -1042 +1047 @@
                   o_tsol_srf(nsrf)%flag,o_tsol_srf(nsrf)%name,"Temperature "//clnsurf(nsrf),"K")
              CALL histdef2d(iff,clef_stations(iff), &
+                  o_evappot_srf(nsrf)%flag,o_evappot_srf(nsrf)%name,"Temperature "//clnsurf(nsrf),"K")
+             CALL histdef2d(iff,clef_stations(iff), &
                   o_ustar_srf(nsrf)%flag,o_ustar_srf(nsrf)%name,"Friction velocity "//clnsurf(nsrf),"m/s")
              CALL histdef2d(iff,clef_stations(iff), &