Ignore:
Timestamp:
Jul 24, 2024, 12:45:32 PM (6 months ago)
Author:
abarral
Message:

Rename modules in phy_common from *_mod > lmdz_*

Location:
LMDZ6/branches/Amaury_dev/libf/phylmdiso
Files:
22 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

    r5110 r5112  
    147147#endif
    148148USE phys_state_var_mod, ONLY: ftsol
    149 USE geometry_mod, ONLY: longitude_deg, latitude_deg
    150 USE print_control_mod, ONLY: prt_level
     149USE lmdz_geometry, ONLY: longitude_deg, latitude_deg
     150USE lmdz_print_control, ONLY: prt_level
    151151USE cmp_seri_mod
    152152USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    … …  
    680680
    681681USE phys_state_var_mod, ONLY: phys_tstep, ftsol
    682 USE geometry_mod, ONLY: longitude_deg, latitude_deg
    683 USE print_control_mod, ONLY: prt_level
     682USE lmdz_geometry, ONLY: longitude_deg, latitude_deg
     683USE lmdz_print_control, ONLY: prt_level
    684684USE cmp_seri_mod
    685685USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    … …  
    908908USE phys_state_var_mod, ONLY: phys_tstep
    909909USE phys_state_var_mod, ONLY: topsw, toplw, solsw, sollw, rain_con, snow_con, bs_fall
    910 USE geometry_mod, ONLY: longitude_deg, latitude_deg
    911 USE print_control_mod, ONLY: prt_level
     910USE lmdz_geometry, ONLY: longitude_deg, latitude_deg
     911USE lmdz_print_control, ONLY: prt_level
    912912USE cmp_seri_mod
    913913USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_wake_tend.F90

    r5103 r5112  
    1616                              wake_dens, awake_dens
    1717
    18 USE print_control_mod, ONLY: prt_level
     18USE lmdz_print_control, ONLY: prt_level
    1919#ifdef ISO
    2020    USE infotrac_phy, ONLY: ntiso   

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/calwake.F90

    r5105 r5112  
    3333  USE phys_state_var_mod, ONLY: pctsrf
    3434  USE indice_sol_mod, ONLY: is_oce
    35   USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
     35  USE lmdz_print_control, ONLY: mydebug=>debug , lunout, prt_level
    3636  USE lmdz_wake, ONLY: wake
    3737#ifdef ISO

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90

    r5103 r5112  
    3333    USE ocean_slab_mod, ONLY: fsic, ocean_slab_frac
    3434    USE indice_sol_mod
    35     USE print_control_mod, ONLY: lunout
     35    USE lmdz_print_control, ONLY: lunout
    3636#ifdef ISO
    3737  USE infotrac_phy, ONLY: ntiso   

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

    r5105 r5112  
    6262#endif
    6363  USE phys_local_var_mod, ONLY: omega
    64   USE print_control_mod, ONLY: prt_level, lunout
     64  USE lmdz_print_control, ONLY: prt_level, lunout
    6565  IMPLICIT NONE
    6666! ======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv30_routines.F90

    r5105 r5112  
    945945#endif
    946946          )
    947   USE print_control_mod, ONLY: lunout
     947  USE lmdz_print_control, ONLY: lunout
    948948#ifdef ISO
    949949    use infotrac_phy, ONLY: ntraciso=>ntiso

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_routines.F90

    r5110 r5112  
    77SUBROUTINE cv3_param(nd, k_upper, delt)
    88
    9   USE ioipsl_getin_p_mod, ONLY: getin_p
     9  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    1010  use lmdz_phys_para
    1111
    … …  
    323323  USE lmdz_phys_transfert_para, ONLY: bcast
    324324  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    325   USE print_control_mod, ONLY: prt_level
     325  USE lmdz_print_control, ONLY: prt_level
    326326  IMPLICIT NONE
    327327
    … …  
    12651265#endif
    12661266          )
    1267   USE print_control_mod, ONLY: lunout
     1267  USE lmdz_print_control, ONLY: lunout
    12681268#ifdef ISO
    12691269    use infotrac_phy, ONLY: ntraciso=>ntiso
    … …  
    14631463#endif
    14641464         )
    1465   USE print_control_mod, ONLY: prt_level
     1465  USE lmdz_print_control, ONLY: prt_level
    14661466#ifdef ISO
    14671467use infotrac_phy, ONLY: ntraciso=>ntiso
    … …  
    35843584#endif
    35853585                   )
    3586   USE print_control_mod, ONLY: prt_level, lunout
     3586  USE lmdz_print_control, ONLY: prt_level, lunout
    35873587#ifdef ISO
    35883588    use infotrac_phy, ONLY: ntraciso=>ntiso
    … …  
    46924692                          )
    46934693
    4694     USE print_control_mod, ONLY: lunout, prt_level
     4694    USE lmdz_print_control, ONLY: lunout, prt_level
    46954695    USE add_phys_tend_mod, ONLY: fl_cor_ebil
    46964696

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3p_mixing.F90

    r5105 r5112  
    1717! **************************************************************
    1818
    19   USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    20   USE ioipsl_getin_p_mod, ONLY: getin_p
     19  USE lmdz_print_control, ONLY: mydebug=>debug , lunout, prt_level
     20  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    2121  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    2222#ifdef ISO

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv_driver.F90

    r5105 r5112  
    12291229SUBROUTINE cv_flag(iflag_ice_thermo)
    12301230
    1231   USE ioipsl_getin_p_mod, ONLY: getin_p
     1231  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    12321232
    12331233  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv_routines.F90

    r5105 r5112  
    396396    tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, q, qs, u, &
    397397    v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph)
    398   USE print_control_mod, ONLY: lunout
     398  USE lmdz_print_control, ONLY: lunout
    399399  IMPLICIT NONE
    400400

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.F90

    r5105 r5112  
    5151! **************************************************************
    5252
    53   USE print_control_mod, ONLY: prt_level, lunout
     53  USE lmdz_print_control, ONLY: prt_level, lunout
    5454  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    5555#ifdef ISO

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5110 r5112  
    1585915859        rain_fall,snow_fall,fevap,fxtevap,xtsol,qsol
    1586015860      !USE iostart, ONLY: close_startphy, get_field, get_var, open_startphy
    15861       !USE write_field_phy
     15861      !USE lmdz_write_field_phy
    1586215862      USE indice_sol_mod, only: nbsrf 
    1586315863  USE isotopes_mod, ONLY: initialisation_iso, iso_eau,iso_HDO, &
    … …  
    1603416034        fevap,fxtevap,xtsol,qsol
    1603516035      !USE iostart
    16036       !USE write_field_phy
     16036      !USE lmdz_write_field_phy
    1603716037      USE indice_sol_mod, only: nbsrf
    1603816038  USE isotopes_mod, ONLY: tnat,iso_HDO,iso_O18,iso_HTO, iso_eau,toce, &
    … …  
    1662716627        USE isotopes_mod, only: iso_HTO,ok_prod_nucl_tritium
    1662816628        USE dimphy, only: klon,klev
    16629         USE geometry_mod, only: latitude_deg,longitude_deg, & ! en degré, remplace rlat et rlon
     16629        USE lmdz_geometry, only: latitude_deg,longitude_deg, & ! en degré, remplace rlat et rlon
    1663016630                   latitude,longitude ! en radian, remplace rlatd et rlond
    1663116631        USE lmdz_yomcst
    … …  
    1814818148&               zmin_nucl, zmax_nucl, HTO_nucl
    1814918149        USE dimphy, only: klon,klev
    18150         use geometry_mod, only: latitude_deg,longitude_deg
     18150        use lmdz_geometry, only: latitude_deg,longitude_deg
    1815118151#ifdef ISOVERIF
    1815218152        USE isotopes_verif_mod
    … …  
    1822518225                                     kmin_jessai,kmax_jessai)
    1822618226        USE dimphy, only: klon,klev
    18227         use geometry_mod, only: latitude_deg,longitude_deg
     18227        use lmdz_geometry, only: latitude_deg,longitude_deg
    1822818228        USE lmdz_yomcst
    1822918229#ifdef ISOVERIF
    … …  
    1836618366                                      prod_nucl)
    1836718367        USE isotopes_mod, ONLY: iso_HTO
    18368         use geometry_mod, only: cell_area
     18368        use lmdz_geometry, only: cell_area
    1836918369        use dimphy, only: klon,klev
    1837018370        USE lmdz_yomcst

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_verif_mod.F90

    r5105 r5112  
    9393
    9494        SUBROUTINE iso_verif_init()
    95         use ioipsl_getin_p_mod, ONLY: getin_p
     95        use lmdz_ioipsl_getin_p, ONLY: getin_p
    9696        use isotopes_mod, ONLY: iso_O17, iso_O18, iso_HDO
    9797        implicit none

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotrac_routines_mod.F90

    r5105 r5112  
    13731373        SUBROUTINE initialise_bassins_boites(presnivs)
    13741374        USE dimphy, only: klev
    1375         USE geometry_mod, ONLY: longitude_deg, latitude_deg
     1375        USE lmdz_geometry, ONLY: longitude_deg, latitude_deg
    13761376        use isotrac_mod, only: bassin_map,option_traceurs,boite_map
    13771377#ifdef ISOVERIF
    … …  
    22852285
    22862286        SUBROUTINE isotrac_recolorise_general(xt_seri,t_seri,zx_rh,presnivs)
    2287         USE geometry_mod, ONLY: latitude_deg
     2287        USE lmdz_geometry, ONLY: latitude_deg
    22882288        USE dimphy, only: klon,klev
    22892289        use isotrac_mod, only: option_traceurs,boite_map

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

    r5110 r5112  
    284284#endif
    285285    USE phys_cal_mod, ONLY: calend, year_len
    286     USE print_control_mod, ONLY: lunout, prt_level
     286    USE lmdz_print_control, ONLY: lunout, prt_level
    287287    USE lmdz_XIOS, ONLY: xios_recv_field
    288288   

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_lscp_old.F90

    r5105 r5112  
    2020  USE dimphy
    2121  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    22   USE print_control_mod, ONLY: prt_level, lunout
     22  USE lmdz_print_control, ONLY: prt_level, lunout
    2323  USE lmdz_cloudth, ONLY: cloudth, cloudth_v3, cloudth_v6
    24   USE ioipsl_getin_p_mod, ONLY: getin_p
     24  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    2525  USE phys_local_var_mod, ONLY: ql_seri,qs_seri
    2626  USE phys_local_var_mod, ONLY: rneblsvol

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_wake.F90

    r5110 r5112  
    2929  ! **************************************************************
    3030
    31   USE ioipsl_getin_p_mod, ONLY: getin_p
     31  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    3232  USE dimphy
    3333  use lmdz_phys_para
    34   USE print_control_mod, ONLY: prt_level
     34  USE lmdz_print_control, ONLY: prt_level
    3535#ifdef ISO
    3636  USE infotrac_phy, ONLY: ntraciso=>ntiso

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

    r5110 r5112  
    2323
    2424    USE dimphy, ONLY: klon
    25     USE geometry_mod, ONLY: latitude
     25    USE lmdz_geometry, ONLY: latitude
    2626    USE surface_data, ONLY: type_ocean, ok_veget
    2727    USE pbl_surface_mod, ONLY: pbl_surface_init
    … …  
    4040    USE lmdz_phys_transfert_para, ONLY: bcast
    4141    USE lmdz_grid_phy
    42     USE ioipsl_getin_p_mod, ONLY: getin_p
     42    USE lmdz_ioipsl_getin_p, ONLY: getin_p
    4343    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
    4444#ifdef ISO

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

    r5106 r5112  
    3838       dt_ds, ratqs_inter_
    3939!FC
    40   USE geometry_mod,     ONLY: longitude_deg, latitude_deg
     40  USE lmdz_geometry,     ONLY: longitude_deg, latitude_deg
    4141  USE iostart,          ONLY: close_startphy, get_field, get_var, open_startphy
    4242  USE infotrac_phy,     ONLY: nqtot, nbtr, type_trac, tracers

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

    r5110 r5112  
    3636                                wake_deltaxt                             
    3737#endif
    38   USE geometry_mod, ONLY: longitude_deg, latitude_deg
     38  USE lmdz_geometry, ONLY: longitude_deg, latitude_deg
    3939  USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
    4040  USE traclmdz_mod, ONLY: traclmdz_to_restart

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_output_mod.F90

    r5110 r5112  
    4444    USE phys_output_ctrlout_mod
    4545    USE lmdz_grid_phy, only: klon_glo,nbp_lon,nbp_lat
    46     USE print_control_mod, ONLY: prt_level,lunout
    47     USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt, presinter
     46    USE lmdz_print_control, ONLY: prt_level,lunout
     47    USE lmdz_vertical_layers, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt, presinter
    4848    USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref
    4949    ! ug Pour les sorties XIOS
    … …  
    618618    USE phys_cal_mod
    619619    USE time_phylmdz_mod, ONLY: day_ref, annee_ref
    620     USE print_control_mod, ONLY: lunout
     620    USE lmdz_print_control, ONLY: lunout
    621621
    622622    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5110 r5112  
    3434    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
    3535    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
    36     USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
     36    USE lmdz_geometry, ONLY: cell_area, latitude_deg, longitude_deg
    3737    USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
    3838         histwrite, ju2ymds, ymds2ju, getin
    39     USE ioipsl_getin_p_mod, ONLY: getin_p
     39    USE lmdz_ioipsl_getin_p, ONLY: getin_p
    4040    USE indice_sol_mod
    4141    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac,ivap,iliq,isol
    … …  
    6262    USE phys_output_mod
    6363    USE phys_output_ctrlout_mod
    64     USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, &
     64    USE lmdz_print_control, ONLY: mydebug=>debug , lunout, prt_level, &
    6565         alert_first_call, call_alert, prt_alerte
    6666    USE readaerosol_mod, ONLY: init_aero_fromfile
    … …  
    7575    USE ice_sursat_mod,  ONLY: flight_init, airplane
    7676    USE vampir
    77     USE write_field_phy
     77    USE lmdz_write_field_phy
    7878    USE wxios, ONLY: g_ctx, wxios_set_context
    7979    USE lmdz_lscp, ONLY: lscp
    … …  
    9494    USE phys_output_var_mod, ONLY: cloud_cover_sw, cloud_cover_sw_s2
    9595
    96     USE geometry_mod,      ONLY: longitude, latitude, boundslon, boundslat, ind_cell_glo
     96    USE lmdz_geometry,      ONLY: longitude, latitude, boundslon, boundslat, ind_cell_glo
    9797    USE time_phylmdz_mod,  ONLY: ndays
    9898    USE infotrac_phy,      ONLY: nqCO2
    9999
    100100    USE time_phylmdz_mod,    ONLY: annee_ref, day_ini, day_ref, start_time
    101     USE vertical_layers_mod, ONLY: aps, bps, ap, bp
     101    USE lmdz_vertical_layers, ONLY: aps, bps, ap, bp
    102102
    103103    USE lmdz_xios, ONLY: xios_update_calendar, xios_context_finalize, xios_get_field_attr, &
Note: See TracChangeset for help on using the changeset viewer.