Changeset 2385 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Nov 6, 2015, 6:30:34 PM (9 years ago)

Author:

musat

Message:

Correction calcul sea level pressure (slp) cf. Arpege-IFS
Ajout initialisation cldfrarad

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -29 +29 @@
     USE phys_output_ctrlout_mod, only: o_phis, o_aire, is_ter, is_lic, is_oce, &
          is_ave, is_sic, o_contfracATM, o_contfracOR, &
-         o_aireTER, o_flat, o_slp, o_tsol, &
+         o_aireTER, o_flat, o_slp, o_ptstar, o_pt0, o_tsol, &
          o_t2m, o_t2m_min, o_t2m_max, &
          o_t2m_min_mon, o_t2m_max_mon, &
@@ -183 +183 @@
          vphiSTD, wTSTD, u2STD, v2STD, T2STD, missing_val_nf90
 
-    USE phys_local_var_mod, only: zxfluxlat, slp, zxtsol, zt2m, &
+    USE phys_local_var_mod, only: zxfluxlat, slp, ptstar, pt0, zxtsol, zt2m, &
          t2m_min_mon, t2m_max_mon, evap, &
          zu10m, zv10m, zq2m, zustar, zxqsurf, &
@@ -350 +350 @@
 !!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        CALL histwrite_phy(o_flat, zxfluxlat)
+       CALL histwrite_phy(o_ptstar, ptstar)
+       CALL histwrite_phy(o_pt0, pt0)
        CALL histwrite_phy(o_slp, slp)
        CALL histwrite_phy(o_tsol, zxtsol)