Changeset 2580 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Jun 29, 2016, 2:23:19 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r2561 r2580 168 168 o_sens_prec_sol_oce, o_sens_prec_sol_sic, & 169 169 o_lat_prec_liq_oce, o_lat_prec_liq_sic, & 170 o_lat_prec_sol_oce, o_lat_prec_sol_sic 170 o_lat_prec_sol_oce, o_lat_prec_sol_sic, & 171 ! Marine 172 o_map_prop_hc, o_map_prop_hist, o_map_emis_hc, o_map_iwp_hc, & 173 o_map_deltaz_hc, o_map_pcld_hc, o_map_tcld_hc, & 174 o_map_emis_hist, o_map_iwp_hist, o_map_deltaz_hist, & 175 o_map_rad_hist, & 176 o_map_emis_Cb, o_map_pcld_Cb, o_map_tcld_Cb, & 177 o_map_emis_ThCi, o_map_pcld_ThCi, o_map_tcld_ThCi, & 178 o_map_emis_Anv, o_map_pcld_Anv, o_map_tcld_Anv, & 179 o_map_ntot, o_map_hc,o_map_hist,o_map_Cb,o_map_ThCi,o_map_Anv, & 180 o_alt_tropo 181 171 182 172 183 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, & 265 276 zustr_gwd_front, zvstr_gwd_front, & 266 sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o 277 sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o, & 278 ! Marine 279 map_prop_hc, map_prop_hist, & 280 map_emis_hc,map_iwp_hc,map_deltaz_hc,& 281 map_pcld_hc,map_tcld_hc,& 282 map_emis_hist,map_iwp_hist,map_deltaz_hist,& 283 map_rad_hist,& 284 map_ntot,map_hc,map_hist,& 285 map_Cb,map_ThCi,map_Anv,& 286 map_emis_Cb,map_pcld_Cb,map_tcld_Cb,& 287 map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi,& 288 map_emis_Anv,map_pcld_Anv,map_tcld_Anv, & 289 alt_tropo 290 267 291 268 292 … … 380 404 CALL histwrite_phy(o_aireTER, paire_ter) 381 405 !!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 406 ! Simulateur AIRS 407 IF (ok_airs) then 408 CALL histwrite_phy(o_alt_tropo,alt_tropo) 409 410 CALL histwrite_phy(o_map_prop_hc,map_prop_hc) 411 CALL histwrite_phy(o_map_prop_hist,map_prop_hist) 412 413 CALL histwrite_phy(o_map_emis_hc,map_emis_hc) 414 CALL histwrite_phy(o_map_iwp_hc,map_iwp_hc) 415 CALL histwrite_phy(o_map_deltaz_hc,map_deltaz_hc) 416 CALL histwrite_phy(o_map_pcld_hc,map_pcld_hc) 417 CALL histwrite_phy(o_map_tcld_hc,map_tcld_hc) 418 419 CALL histwrite_phy(o_map_emis_hist,map_emis_hist) 420 CALL histwrite_phy(o_map_iwp_hist,map_iwp_hist) 421 CALL histwrite_phy(o_map_deltaz_hist,map_deltaz_hist) 422 423 CALL histwrite_phy(o_map_ntot,map_ntot) 424 CALL histwrite_phy(o_map_hc,map_hc) 425 CALL histwrite_phy(o_map_hist,map_hist) 426 427 CALL histwrite_phy(o_map_Cb,map_Cb) 428 CALL histwrite_phy(o_map_ThCi,map_ThCi) 429 CALL histwrite_phy(o_map_Anv,map_Anv) 430 431 CALL histwrite_phy(o_map_emis_Cb,map_emis_Cb) 432 CALL histwrite_phy(o_map_pcld_Cb,map_pcld_Cb) 433 CALL histwrite_phy(o_map_tcld_Cb,map_tcld_Cb) 434 435 CALL histwrite_phy(o_map_emis_ThCi,map_emis_ThCi) 436 CALL histwrite_phy(o_map_pcld_ThCi,map_pcld_ThCi) 437 CALL histwrite_phy(o_map_tcld_ThCi,map_tcld_ThCi) 438 439 CALL histwrite_phy(o_map_emis_Anv,map_emis_Anv) 440 CALL histwrite_phy(o_map_pcld_Anv,map_pcld_Anv) 441 CALL histwrite_phy(o_map_tcld_Anv,map_tcld_Anv) 442 ENDIF 443 382 444 CALL histwrite_phy(o_flat, zxfluxlat) 383 445 CALL histwrite_phy(o_ptstar, ptstar)
Note: See TracChangeset
for help on using the changeset viewer.