Changeset 4135 for LMDZ6/branches/Portage_acc
- Timestamp:
- Apr 21, 2022, 6:20:52 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Portage_acc/libf/phylmd/physiq_mod.F90
r4127 r4135 21 21 22 22 USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando 23 USE aero_mod23 ! USE aero_mod 24 24 USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, & 25 25 & fl_ebil, fl_cor_ebil 26 26 USE assert_m, only: assert 27 USE change_srf_frac_mod 27 USE change_srf_frac_mod, only : change_srf_frac 28 28 USE conf_phys_m, only: conf_phys 29 29 USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad 30 USE CFMIP_point_locations ! IM stations CFMIP31 USE cmp_seri_mod 32 USE dimphy 33 USE etat0_limit_unstruct_mod 30 USE CFMIP_point_locations, ONLY : read_CFMIP_point_locations, LMDZ_CFMIP_point_locations 31 USE cmp_seri_mod, ONLY : init_cmp_seri 32 USE dimphy, ONLY : klon, klev, klevp1 33 USE etat0_limit_unstruct_mod, ONLY : create_etat0_limit,init_etat0_limit_unstruct, create_etat0_limit_unstruct 34 34 USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando 35 35 USE fonte_neige_mod, ONLY : fonte_neige_get_vars 36 36 USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg, longitude,latitude, & 37 37 boundslon,boundslat, dx, dy, ind_cell_glo 38 USE indice_sol_mod, ONLY: nbsrf,is_ave, is_ter, is_oce, is_lic, is_sic 38 39 USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, & 39 histwrite, ju2ymds, ymds2ju , getin40 histwrite, ju2ymds, ymds2ju 40 41 USE ioipsl_getin_p_mod, ONLY : getin_p 41 USE indice_sol_mod42 ! USE indice_sol_mod 42 43 USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac, nqCO2 43 44 USE readTracFiles_mod, ONLY: addPhase 44 45 USE strings_mod, ONLY: strIdx 45 USE iophy 46 USE iophy, ONLY : init_iophy_new 46 47 USE limit_read_mod, ONLY : init_limit_read 47 48 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured 48 49 USE mod_phys_lmdz_mpi_data, only: is_mpi_root 49 USE mod_phys_lmdz_para 50 USE mod_phys_lmdz_para, ONLY : is_master, is_sequential, is_omp_master 50 51 USE netcdf95, only: nf95_close 51 52 USE netcdf, only: nf90_fill_real ! IM for NMC files … … 59 60 !! USE phys_local_var_mod, ONLY : a long list of variables 60 61 !! ==> see below, after "CPP Keys" section 61 USE phys_state_var_mod ! Variables sauvegardees de la physique 62 USE phys_output_mod 63 USE phys_output_ctrlout_mod 62 USE phys_output_mod, ONLY: nfiles, itau_con, zustr_gwd_hines, zvstr_gwd_hines, zustr_gwd_front, zvstr_gwd_front 63 USE phys_output_mod, ONLY: zustr_gwd_rando, zvstr_gwd_rando, ecrit_files, sza_o, swaerofree_diag, swaero_diag 64 USE phys_output_mod, ONLY: dryaod_diag, ok_4xco2atm, map_prop_hc, map_prop_hist, map_emis_hc, map_iwp_hc 65 USE phys_output_mod, ONLY: map_deltaz_hc, map_pcld_hc, map_tcld_hc, map_emis_cb, map_pcld_cb, map_tcld_cb, map_emis_thci 66 USE phys_output_mod, ONLY: map_pcld_thci, map_tcld_thci, map_emis_anv, map_pcld_anv, map_tcld_anv, map_emis_hist 67 USE phys_output_mod, ONLY: map_iwp_hist, map_deltaz_hist, map_rad_hist, map_ntot, map_hc, map_hist 68 USE phys_output_mod, ONLY: map_cb, map_thci, map_anv, alt_tropo 69 USE phys_output_mod, ONLY: phys_output_var_init, phys_output_open 70 USE phys_output_ctrlout_mod, ONLY: naero_grp, id_strat_phy 71 ! USE phys_output_ctrlout_mod 72 ! USE phys_output_mod 73 USE phys_state_var_mod, ONLY : nlevstd3, nlevstd, nlevstd8, nout ! Variables sauvegardees de la physique 74 USE phys_state_var_mod, ONLY : wght_th, lalim_conv, ustar, rain_con, snow_con 75 USE phys_state_var_mod, ONLY : topswai, topswad, solswai, solswad, ccm, tau_aero 76 USE phys_state_var_mod, ONLY : piz_aero, cg_aero, rnebcon0, rnebcon, clwcon0 77 USE phys_state_var_mod, ONLY : clwcon, pbl_tke, pctsrf, zuthe, zvthe, sollwdown 78 USE phys_state_var_mod, ONLY : tr_ancien, ftsol, u_ancien, v_ancien, t_ancien 79 USE phys_state_var_mod, ONLY : q_ancien, ql_ancien, qs_ancien, prw_ancien, prlw_ancien 80 USE phys_state_var_mod, ONLY : prsw_ancien, wo, ema_cbmf, ema_pcb, ema_pct, ibas_con, itop_con 81 USE phys_state_var_mod, ONLY : rugoro, swradcorr, wake_s, wake_deltat, wake_deltaq 82 USE phys_state_var_mod, ONLY : gustiness, ale_bl, ale_wake, ale_bl_stat, coefh, coefm 83 USE phys_state_var_mod, ONLY : fevap, z0m, z0h, agesno, falb_dif, u10m, v10m 84 USE phys_state_var_mod, ONLY : 85 USE phys_state_var_mod, ONLY : albsol_dir, falb_dir, albsol_dir, ftd 86 USE phys_state_var_mod, ONLY : rain_fall, snow_fall, solsw, solswfdiff, sollw 87 USE phys_state_var_mod, ONLY : wake_cstar, wstar, beta_aridity, albsol_dif, delta_tsurf 88 USE phys_state_var_mod, ONLY : wake_dens, qsol, wake_delta_pbl_TKE, treedrg 89 USE phys_state_var_mod, ONLY : fqd, wd, wake_fip, clwcon0th, zmax0 90 USE phys_state_var_mod, ONLY : ratqs, pfrac_impa, pfrac_nucl, pfrac_1nucl 91 USE phys_state_var_mod, ONLY : zqasc, fm_therm, tau_aero_sw_rrtm, tau_aero_lw_rrtm 92 USE phys_state_var_mod, ONLY : piz_aero_sw_rrtm, albsol1, albsol2, falb1, falb2 93 USE phys_state_var_mod, ONLY : cg_aero_sw_rrtm 94 USE phys_state_var_mod, ONLY : heat,heat0,cool,cool0,albpla 95 USE phys_state_var_mod, ONLY : heat_volc,cool_volc, topsw,toplw 96 USE phys_state_var_mod, ONLY : topsw0,toplw0,solsw0,sollw0, lwdnc0, lwdn0, lwdn 97 USE phys_state_var_mod, ONLY : lwupc0, lwup0, lwup, swdnc0, swdn0, swdn, swupc0 98 USE phys_state_var_mod, ONLY : swup0, swup 99 USE phys_state_var_mod, ONLY : heatp,heat0p,coolp,cool0p,albplap 100 USE phys_state_var_mod, ONLY : topswp,toplwp, solswp, solswfdiffp,sollwp, sollwdownp 101 USE phys_state_var_mod, ONLY : topsw0p,toplw0p,solsw0p,sollw0p, lwdnc0p, lwdn0p, lwdnp 102 USE phys_state_var_mod, ONLY : lwupc0p, lwup0p, lwupp, swdnc0p, swdn0p, swdnp, swupc0p 103 USE phys_state_var_mod, ONLY : swup0p, swupp 104 USE phys_state_var_mod, ONLY : radsol, du_gwd_front, du_gwd_rando, nday_rain, total_rain 105 USE phys_state_var_mod, ONLY : tsumstd, qsumstd, rhsumstd, phisumstd, usumstd, vsumstd 106 USE phys_state_var_mod, ONLY : wsumstd, tlevstd, qlevstd, rhlevstd, philevstd 107 USE phys_state_var_mod, ONLY : ulevstd, vlevstd, wlevstd, tlevstd, qlevstd 108 USE phys_state_var_mod, ONLY : rneb_ancien, phys_tstep, cin, pbase, radpas, cvpas_0 109 USE phys_state_var_mod, ONLY : cvpas, wkpas, zstd, zsig, zgam, zthe, ancien_ok, wake_pe 110 USE phys_state_var_mod, ONLY : ale_bl_trig, alp_bl, ale, alp, sig1, w01, sigd 111 USE phys_state_var_mod, ONLY : ma, mipsh, cape, bbase, qcondc, qtc_cv, sigt_cv 112 USE phys_state_var_mod, ONLY : cv_gen, awake_dens, entr_therm, detr_therm, f0 113 USE phys_state_var_mod, ONLY : rnebcon0th, ratqs_inter, radsolp, zpic, zmea, zval 114 USE phys_state_var_mod, ONLY : uvstd, vqstd, vtstd, wqstd, vphistd 115 USE phys_state_var_mod, ONLY : wtstd, u2std, v2std, t2std, o3std, o3daystd, swdn200clr 116 USE phys_state_var_mod, ONLY : swdn200, swup200clr, swup200, lwdn200clr, lwdn200 117 USE phys_state_var_mod, ONLY : lwup200clr, lwup200, tnondef 118 USE phys_state_var_mod, ONLY : phys_state_var_init 119 120 64 121 USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, & 65 122 alert_first_call, call_alert, prt_alerte … … 75 132 USE tropopause_m, ONLY: dyn_tropopause 76 133 USE ice_sursat_mod, ONLY: flight_init, airplane 77 USE vampir134 ! USE vampir 78 135 USE VERTICAL_LAYERS_MOD, ONLY: aps,bps, ap, bp 79 USE write_field_phy 136 USE write_field_phy, ONLY : writefield_phy 80 137 USE lscp_mod, ONLY : lscp 81 138 USE wake_ini_mod, ONLY : wake_ini … … 111 168 112 169 113 #ifdef CPP_StratAer170 #ifdef CPP_StratAer 114 171 USE strataer_mod, ONLY: strataer_init 115 172 #endif … … 1619 1676 ! in the output files. Only at the end in the opposite case 1620 1677 ok_sync_omp=.FALSE. 1621 CALL getin ('ok_sync',ok_sync_omp)1678 CALL getin_p('ok_sync',ok_sync_omp) 1622 1679 CALL phys_output_open(longitude_deg,latitude_deg,nCFMIP,tabijGCM, & 1623 1680 iGCM,jGCM,lonGCM,latGCM, &
Note: See TracChangeset
for help on using the changeset viewer.