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

Timestamp:

Jun 29, 2016, 2:23:19 PM (8 years ago)

Author:

idelkadi

Message:

Implementation du simulateur AIRS:
Le but du simulateur est de permettre la comparaison de proprietes macro-et microphysiques des nuages hauts de LMDZ avec celles restituees par les observations du satellite AIRS (Atmospheric IR Sounder). La methode est decrite dans Hendricks et al. Meteorol. Z., 2010

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -168 +168 @@
          o_sens_prec_sol_oce, o_sens_prec_sol_sic, &
          o_lat_prec_liq_oce, o_lat_prec_liq_sic, &
-         o_lat_prec_sol_oce, o_lat_prec_sol_sic
+         o_lat_prec_sol_oce, o_lat_prec_sol_sic, &
+! Marine
+         o_map_prop_hc, o_map_prop_hist, o_map_emis_hc, o_map_iwp_hc, &
+         o_map_deltaz_hc, o_map_pcld_hc, o_map_tcld_hc, &
+         o_map_emis_hist, o_map_iwp_hist, o_map_deltaz_hist, &
+         o_map_rad_hist, &
+         o_map_emis_Cb, o_map_pcld_Cb, o_map_tcld_Cb, &
+         o_map_emis_ThCi, o_map_pcld_ThCi, o_map_tcld_ThCi, &
+         o_map_emis_Anv, o_map_pcld_Anv, o_map_tcld_Anv, &
+         o_map_ntot, o_map_hc,o_map_hist,o_map_Cb,o_map_ThCi,o_map_Anv, &
+         o_alt_tropo
+
 
     USE phys_state_var_mod, only: pctsrf, paire_ter, rain_fall, snow_fall, &
@@ -264 +275 @@
          zustr_gwd_hines, zvstr_gwd_hines,zustr_gwd_rando, zvstr_gwd_rando, &
          zustr_gwd_front, zvstr_gwd_front,     &
-         sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+         sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o, &
+! Marine
+         map_prop_hc, map_prop_hist, &
+         map_emis_hc,map_iwp_hc,map_deltaz_hc,&
+         map_pcld_hc,map_tcld_hc,&
+         map_emis_hist,map_iwp_hist,map_deltaz_hist,&
+         map_rad_hist,&
+         map_ntot,map_hc,map_hist,&
+         map_Cb,map_ThCi,map_Anv,&
+         map_emis_Cb,map_pcld_Cb,map_tcld_Cb,&
+         map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi,&
+         map_emis_Anv,map_pcld_Anv,map_tcld_Anv, &
+         alt_tropo
+
   
 
@@ -380 +404 @@
        CALL histwrite_phy(o_aireTER, paire_ter)
 !!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Simulateur AIRS
+     IF (ok_airs) then
+      CALL histwrite_phy(o_alt_tropo,alt_tropo)
+ 
+      CALL histwrite_phy(o_map_prop_hc,map_prop_hc)
+      CALL histwrite_phy(o_map_prop_hist,map_prop_hist)
+
+      CALL histwrite_phy(o_map_emis_hc,map_emis_hc)
+      CALL histwrite_phy(o_map_iwp_hc,map_iwp_hc)
+      CALL histwrite_phy(o_map_deltaz_hc,map_deltaz_hc)
+      CALL histwrite_phy(o_map_pcld_hc,map_pcld_hc)
+      CALL histwrite_phy(o_map_tcld_hc,map_tcld_hc)
+
+      CALL histwrite_phy(o_map_emis_hist,map_emis_hist)
+      CALL histwrite_phy(o_map_iwp_hist,map_iwp_hist)
+      CALL histwrite_phy(o_map_deltaz_hist,map_deltaz_hist)
+
+      CALL histwrite_phy(o_map_ntot,map_ntot)
+      CALL histwrite_phy(o_map_hc,map_hc)
+      CALL histwrite_phy(o_map_hist,map_hist)
+
+      CALL histwrite_phy(o_map_Cb,map_Cb)
+      CALL histwrite_phy(o_map_ThCi,map_ThCi)
+      CALL histwrite_phy(o_map_Anv,map_Anv)
+
+      CALL histwrite_phy(o_map_emis_Cb,map_emis_Cb)
+      CALL histwrite_phy(o_map_pcld_Cb,map_pcld_Cb)
+      CALL histwrite_phy(o_map_tcld_Cb,map_tcld_Cb)
+
+      CALL histwrite_phy(o_map_emis_ThCi,map_emis_ThCi)
+      CALL histwrite_phy(o_map_pcld_ThCi,map_pcld_ThCi)
+      CALL histwrite_phy(o_map_tcld_ThCi,map_tcld_ThCi)
+
+      CALL histwrite_phy(o_map_emis_Anv,map_emis_Anv)
+      CALL histwrite_phy(o_map_pcld_Anv,map_pcld_Anv)
+      CALL histwrite_phy(o_map_tcld_Anv,map_tcld_Anv)
+     ENDIF
+
        CALL histwrite_phy(o_flat, zxfluxlat)
        CALL histwrite_phy(o_ptstar, ptstar)