Changeset 4135


Ignore:
Timestamp:
Apr 21, 2022, 6:20:52 PM (2 years ago)
Author:
Laurent Fairhead
Message:

Cleaning up the USEs in physiq_mod to prepare inclusion of acc data regions
and got rid of the last getin in physiq_mod.F90 :-)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Portage_acc/libf/phylmd/physiq_mod.F90

    r4127 r4135  
    2121
    2222    USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
    23     USE aero_mod
     23!    USE aero_mod
    2424    USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
    2525  &      fl_ebil, fl_cor_ebil
    2626    USE assert_m, only: assert
    27     USE change_srf_frac_mod
     27    USE change_srf_frac_mod, only : change_srf_frac
    2828    USE conf_phys_m, only: conf_phys
    2929    USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad
    30     USE CFMIP_point_locations   ! IM stations CFMIP
    31     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
    3434    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
    3535    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
    3636    USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg, longitude,latitude, &
    3737         boundslon,boundslat, dx, dy, ind_cell_glo
     38    USE indice_sol_mod, ONLY: nbsrf,is_ave, is_ter, is_oce, is_lic, is_sic
    3839    USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
    39          histwrite, ju2ymds, ymds2ju, getin
     40         histwrite, ju2ymds, ymds2ju
    4041    USE ioipsl_getin_p_mod, ONLY : getin_p
    41     USE indice_sol_mod
     42!    USE indice_sol_mod
    4243    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac, nqCO2
    4344    USE readTracFiles_mod, ONLY: addPhase
    4445    USE strings_mod,  ONLY: strIdx
    45     USE iophy
     46    USE iophy, ONLY : init_iophy_new
    4647    USE limit_read_mod, ONLY : init_limit_read
    4748    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
    4849    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
    5051    USE netcdf95, only: nf95_close
    5152    USE netcdf, only: nf90_fill_real     ! IM for NMC files
    … …  
    5960!!  USE phys_local_var_mod, ONLY : a long list of variables
    6061!!              ==> 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   
    64121    USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, &
    65122         alert_first_call, call_alert, prt_alerte
    … …  
    75132    USE tropopause_m,     ONLY: dyn_tropopause
    76133    USE ice_sursat_mod,  ONLY: flight_init, airplane
    77     USE vampir
     134!    USE vampir
    78135    USE VERTICAL_LAYERS_MOD, ONLY: aps,bps, ap, bp
    79     USE write_field_phy
     136    USE write_field_phy, ONLY : writefield_phy
    80137    USE lscp_mod, ONLY : lscp
    81138    USE wake_ini_mod, ONLY : wake_ini
    … …  
    111168
    112169
    113 #ifdef CPP_StratAer
     170 #ifdef CPP_StratAer
    114171    USE strataer_mod, ONLY: strataer_init
    115172#endif
    … …  
    16191676       ! in the output files. Only at the end in the opposite case
    16201677       ok_sync_omp=.FALSE.
    1621        CALL getin('ok_sync',ok_sync_omp)
     1678       CALL getin_p('ok_sync',ok_sync_omp)
    16221679       CALL phys_output_open(longitude_deg,latitude_deg,nCFMIP,tabijGCM, &
    16231680            iGCM,jGCM,lonGCM,latGCM, &
Note: See TracChangeset for help on using the changeset viewer.