Changeset 1897 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Oct 25, 2013, 10:12:38 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r1865 r1897 26 26 ! defined and initialised in phys_output_mod.F90 27 27 28 USE dimphy 29 USE control_mod 30 USE phys_output_ctrlout_mod 31 USE phys_state_var_mod 32 USE phys_local_var_mod 33 USE phys_output_var_mod 34 USE indice_sol_mod 35 USE infotrac 36 USE comgeomphy 37 USE surface_data, ONLY : type_ocean, ok_veget, ok_snow 38 USE aero_mod 39 USE ioipsl 40 USE write_field_phy 41 USE iophy 42 USE mod_phys_lmdz_para 43 USE netcdf, ONLY : nf90_fill_real 28 USE dimphy, only: klon, klev, klevp1 29 USE control_mod, only: day_step, iphysiq 30 USE phys_output_ctrlout_mod, only: o_phis, o_aire, is_ter, is_lic, is_oce, & 31 is_ave, is_sic, o_contfracATM, o_contfracOR, & 32 o_aireTER, o_flat, o_slp, o_tsol, & 33 o_t2m, o_t2m_min, o_t2m_max, & 34 o_q2m, o_ustar, o_u10m, o_v10m, & 35 o_wind10m, o_wind10max, o_sicf, & 36 o_psol, o_mass, o_qsurf, o_qsol, & 37 o_precip, o_ndayrain, o_plul, o_pluc, & 38 o_snow, o_msnow, o_fsnow, o_evap, & 39 o_tops, o_tops0, o_topl, o_topl0, & 40 o_SWupTOA, o_SWupTOAclr, o_SWdnTOA, & 41 o_SWdnTOAclr, o_nettop, o_SWup200, & 42 o_SWup200clr, o_SWdn200, o_SWdn200clr, & 43 o_LWup200, o_LWup200clr, o_LWdn200, & 44 o_LWdn200clr, o_sols, o_sols0, & 45 o_soll, o_radsol, o_soll0, o_SWupSFC, & 46 o_SWupSFCclr, o_SWdnSFC, o_SWdnSFCclr, & 47 o_LWupSFC, o_LWdnSFC, o_LWupSFCclr, & 48 o_LWdnSFCclr, o_bils, o_bils_diss, & 49 o_bils_ec, o_bils_tke, o_bils_kinetic, & 50 o_bils_latent, o_bils_enthalp, o_sens, & 51 o_fder, o_ffonte, o_fqcalving, o_fqfonte, & 52 o_taux, o_tauy, o_snowsrf, o_qsnow, & 53 o_snowhgt, o_toice, o_sissnow, o_runoff, & 54 o_albslw3, o_pourc_srf, o_fract_srf, & 55 o_taux_srf, o_tauy_srf, o_tsol_srf, & 56 o_evappot_srf, o_ustar_srf, o_u10m_srf, & 57 o_v10m_srf, o_t2m_srf, o_evap_srf, & 58 o_sens_srf, o_lat_srf, o_flw_srf, & 59 o_fsw_srf, o_wbils_srf, o_wbilo_srf, & 60 o_tke_srf, o_tke_max_srf, o_wstar, & 61 o_cdrm, o_cdrh, o_cldl, o_cldm, o_cldh, & 62 o_cldt, o_cldq, o_lwp, o_iwp, o_ue, & 63 o_ve, o_uq, o_vq, o_cape, o_pbase, & 64 o_ptop, o_fbase, o_plcl, o_plfc, & 65 o_wbeff, o_cape_max, o_upwd, o_Ma, & 66 o_dnwd, o_dnwd0, o_ftime_con, o_mc, & 67 o_prw, o_s_pblh, o_s_pblt, o_s_lcl, & 68 o_s_therm, o_uSTDlevs, o_vSTDlevs, & 69 o_wSTDlevs, o_zSTDlevs, o_qSTDlevs, & 70 o_tSTDlevs, epsfra, o_t_oce_sic, & 71 o_ale_bl, o_alp_bl, o_ale_wk, o_alp_wk, & 72 o_ale, o_alp, o_cin, o_WAPE, o_wake_h, & 73 o_wake_s, o_wake_deltat, o_wake_deltaq, & 74 o_wake_omg, o_dtwak, o_dqwak, o_Vprecip, & 75 o_ftd, o_fqd, o_wdtrainA, o_wdtrainM, & 76 o_n2, o_s2, o_proba_notrig, & 77 o_random_notrig, o_ale_bl_stat, & 78 o_ale_bl_trig, o_alp_bl_det, & 79 o_alp_bl_fluct_m, o_alp_bl_fluct_tke, & 80 o_alp_bl_conv, o_alp_bl_stat, o_slab_bils, & 81 o_weakinv, o_dthmin, o_cldtau, & 82 o_cldemi, o_pr_con_l, o_pr_con_i, & 83 o_pr_lsc_l, o_pr_lsc_i, o_re, o_fl, & 84 o_rh2m, o_rh2m_min, o_rh2m_max, & 85 o_qsat2m, o_tpot, o_tpote, o_SWnetOR, & 86 o_SWdownOR, o_LWdownOR, o_snowl, & 87 o_solldown, o_dtsvdfo, o_dtsvdft, & 88 o_dtsvdfg, o_dtsvdfi, o_rugs, o_od550aer, & 89 o_od865aer, o_absvisaer, o_od550lt1aer, & 90 o_sconcso4, o_sconcoa, o_sconcbc, & 91 o_sconcss, o_sconcdust, o_concso4, & 92 o_concoa, o_concbc, o_concss, o_concdust, & 93 o_loadso4, o_loadoa, o_loadbc, o_loadss, & 94 o_loaddust, o_tausumaero, o_topswad, & 95 o_topswad0, o_solswad, o_solswad0, & 96 o_swtoaas_nat, o_swsrfas_nat, & 97 o_swtoacs_nat, o_swtoaas_ant, & 98 o_swsrfas_ant, o_swtoacs_ant, & 99 o_swsrfcs_ant, o_swtoacf_nat, & 100 o_swsrfcf_nat, o_swtoacf_ant, & 101 o_swsrfcs_nat, o_swsrfcf_ant, & 102 o_swtoacf_zero, o_swsrfcf_zero, & 103 o_topswai, o_solswai, o_scdnc, & 104 o_cldncl, o_reffclws, o_reffclwc, & 105 o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, & 106 o_lcc3dstra, o_reffclwtop, o_ec550aer, & 107 o_lwcon, o_iwcon, o_temp, o_theta, & 108 o_ovapinit, o_ovap, o_oliq, o_geop, & 109 o_vitu, o_vitv, o_vitw, o_pres, o_paprs, & 110 o_zfull, o_zhalf, o_rneb, o_rnebcon, & 111 o_rnebls, o_rhum, o_ozone, o_ozone_light, & 112 o_dtphy, o_dqphy, o_albe_srf, o_rugs_srf, & 113 o_ages_srf, o_alb1, o_alb2, o_tke, & 114 o_tke_max, o_kz, o_kz_max, o_clwcon, & 115 o_dtdyn, o_dqdyn, o_dudyn, o_dvdyn, & 116 o_dtcon, o_tntc, o_ducon, o_dvcon, & 117 o_dqcon, o_tnhusc, o_tnhusc, o_dtlsc, & 118 o_dtlschr, o_dqlsc, o_beta_prec, & 119 o_dtlscth, o_dtlscst, o_dqlscth, & 120 o_dqlscst, o_plulth, o_plulst, & 121 o_ptconvth, o_lmaxth, o_dtvdf, & 122 o_dtdis, o_dqvdf, o_dteva, o_dqeva, & 123 o_ptconv, o_ratqs, o_dtthe, o_ftime_th, & 124 o_f_th, o_e_th, o_w_th, o_q_th, & 125 o_a_th, o_d_th, o_f0_th, o_zmax_th, & 126 o_dqthe, o_dtajs, o_dqajs, o_dtswr, & 127 o_dtsw0, o_dtlwr, o_dtlw0, o_dtec, & 128 o_duvdf, o_dvvdf, o_duoro, o_dvoro, & 129 o_dtoro, o_dulif, o_dvlif, o_dtlif, & 130 o_duhin, o_dvhin, o_dthin, o_rsu, & 131 o_rsd, o_rlu, o_rld, o_rsucs, o_rsdcs, & 132 o_rlucs, o_rldcs, o_tnt, o_tntr, & 133 o_tntscpbl, o_tnhus, o_tnhusscpbl, & 134 o_evu, o_h2o, o_mcd, o_dmc, o_ref_liq, & 135 o_ref_ice, o_rsut4co2, o_rlut4co2, & 136 o_rsutcs4co2, o_rlutcs4co2, o_rsu4co2, & 137 o_rlu4co2, o_rsucs4co2, o_rlucs4co2, & 138 o_rsd4co2, o_rld4co2, o_rsdcs4co2, & 139 o_rldcs4co2, o_tnondef, o_ta, o_zg, & 140 o_hus, o_hur, o_ua, o_va, o_wap, & 141 o_psbg, o_tro3, o_tro3_daylight, & 142 o_uxv, o_vxq, o_vxT, o_wxq, o_vxphi, & 143 o_wxT, o_uxu, o_vxv, o_TxT, o_trac, & 144 o_dtr_vdf, o_dtr_the, o_dtr_con, & 145 o_dtr_lessi_impa, o_dtr_lessi_nucl, & 146 o_dtr_insc, o_dtr_bcscav, o_dtr_evapls, & 147 o_dtr_ls, o_dtr_trsp, o_dtr_sscav, & 148 o_dtr_sat, o_dtr_uscav, o_trac_cum 149 150 USE phys_state_var_mod, only: pctsrf, paire_ter, rain_fall, snow_fall, & 151 nday_rain, rain_con, snow_con, & 152 topsw, toplw, toplw0, swup, swdn, & 153 topsw0, swup0, swdn0, SWup200, SWup200clr, & 154 SWdn200, SWdn200clr, LWup200, LWup200clr, & 155 LWdn200, LWdn200clr, solsw, solsw0, sollw, & 156 radsol, sollw0, sollwdown, sollw, & 157 sollwdownclr, lwdn0, ftsol, ustar, u10m, & 158 v10m, pbl_tke, wstar, cape, ema_pcb, ema_pct, & 159 ema_cbmf, Ma, fm_therm, ale_bl, alp_bl, ale, & 160 alp, cin, wake_pe, wake_s, wake_deltat, & 161 wake_deltaq, ftd, fqd, ale_bl_trig, albsol1, & 162 rnebcon, wo, falb1, albsol2, coefh, clwcon0, & 163 ratqs, entr_therm, zqasc, detr_therm, f0, heat, & 164 heat0, cool, cool0, lwup, lwdn, lwup0, coefm, & 165 swupp, lwupp, swup0p, lwup0p, swdnp, lwdnp, & 166 swdn0p, lwdn0p, tnondef, O3sumSTD, uvsumSTD, & 167 vqsumSTD, vTsumSTD, O3daysumSTD, wqsumSTD, & 168 vphisumSTD, wTsumSTD, u2sumSTD, v2sumSTD, & 169 T2sumSTD, nlevSTD 170 171 USE phys_local_var_mod, only: zxfluxlat, slp, zxtsol, zt2m, & 172 zu10m, zv10m, zq2m, zustar, zxqsurf, qsol, & 173 rain_lsc, snow_lsc, evap, bils, sens, fder, & 174 zxffonte, zxfqcalving, zxfqfonte, fluxu, & 175 fluxv, zxsnow, qsnow, snowhgt, to_ice, & 176 sissnow, runoff, albsol3_lic, evap_pot, & 177 t2m, fevap, fluxt, fluxlat, fsollw, fsolsw, & 178 wfbils, wfbilo, cdragm, cdragh, cldl, cldm, & 179 cldh, cldt, cldq, flwp, fiwp, ue, ve, uq, vq, & 180 plcl, plfc, wbeff, upwd, dnwd, dnwd0, prw, & 181 s_pblh, s_pblt, s_lcl, s_therm, uwriteSTD, & 182 vwriteSTD, wwriteSTD, phiwriteSTD, qwriteSTD, & 183 twriteSTD, ale_wake, alp_wake, wake_h, & 184 wake_omg, d_t_wake, d_q_wake, Vprecip, & 185 wdtrainA, wdtrainM, n2, s2, proba_notrig, & 186 random_notrig, ale_bl_stat, & 187 alp_bl_det, alp_bl_fluct_m, alp_bl_conv, & 188 alp_bl_stat, alp_bl_fluct_tke, slab_wfbils, & 189 weak_inversion, dthmin, cldtau, cldemi, & 190 pmflxr, pmflxs, prfl, psfl, re, fl, rh2m, & 191 qsat2m, tpote, tpot, d_ts, zxrugs, od550aer, & 192 od865aer, absvisaer, od550lt1aer, sconcso4, & 193 sconcoa, sconcbc, sconcss, sconcdust, concso4, & 194 concoa, concbc, concss, concdust, loadso4, & 195 loadoa, loadbc, loadss, loaddust, tausum_aero, & 196 topswad_aero, topswad0_aero, solswad_aero, & 197 solswad0_aero, topsw_aero, solsw_aero, & 198 topsw0_aero, solsw0_aero, topswcf_aero, & 199 solswcf_aero, topswai_aero, solswai_aero, & 200 scdnc, cldncl, reffclws, reffclwc, cldnvi, & 201 lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, & 202 ec550aer, flwc, fiwc, t_seri, theta, q_seri, & 203 ql_seri, zphi, u_seri, v_seri, omega, cldfra, & 204 rneb, zx_rh, frugs, agesno, d_t_dyn, d_q_dyn, & 205 d_u_dyn, d_v_dyn, d_t_con, d_t_ajsb, d_t_ajs, & 206 d_u_con, d_v_con, d_q_con, d_q_ajs, d_t_lsc, & 207 d_t_eva, d_q_lsc, beta_prec, d_t_lscth, & 208 d_t_lscst, d_q_lscth, d_q_lscst, plul_th, & 209 plul_st, d_t_vdf, d_t_diss, d_q_vdf, d_q_eva, & 210 zw2, fraca, zmax_th, d_q_ajsb, d_t_ec, d_u_vdf, & 211 d_v_vdf, d_u_oro, d_v_oro, d_t_oro, d_u_lif, & 212 d_v_lif, d_t_lif, d_u_hin, d_v_hin, d_t_hin, & 213 pmfd, pmfu, ref_liq, ref_ice, rhwriteSTD 214 215 USE phys_output_var_mod, only: vars_defined, snow_o, zfra_o, bils_diss, & 216 bils_ec, bils_tke, bils_kinetic, bils_latent, & 217 bils_enthalp, itau_con, nfiles, clef_files, & 218 nid_files 219 USE indice_sol_mod, only: nbsrf 220 USE infotrac, only: nqtot 221 USE comgeomphy, only: airephy 222 USE surface_data, only: type_ocean, ok_veget, ok_snow 223 USE aero_mod, only: naero_spc 224 USE ioipsl, only: histend, histsync 225 USE iophy, only: set_itau_iophy, histwrite_phy 226 USE netcdf, only: nf90_fill_real 44 227 45 228 #ifdef CPP_XIOS 46 229 ! ug Pour les sorties XIOS 47 USE wxios 48 USE xios 230 USE wxios, only: wxios_update_calendar, wxios_closedef 49 231 #endif 50 232 … … 57 239 INCLUDE "YOMCST.h" 58 240 INCLUDE "dimensions.h" 241 include "iniprint.h" 59 242 60 243 ! Input … … 101 284 DO iinit=1, iinitend 102 285 #ifdef CPP_XIOS 103 IF (vars_defined) THEN 104 CALL wxios_update_calendar(itau_w) 286 !$OMP MASTER 287 IF (vars_defined) THEN 288 if (prt_level >= 10) then 289 write(lunout,*)"phys_output_write: call wxios_update_calendar, itau_w=",itau_w 290 endif 291 CALL wxios_update_calendar(itau_w) 105 292 END IF 293 !$OMP END MASTER 294 !$OMP BARRIER 106 295 #endif 107 296 ! On procède à l'écriture ou à la définition des nombreuses variables:
Note: See TracChangeset
for help on using the changeset viewer.