Changeset 5112 for LMDZ6/branches/Amaury_dev/libf/phydev
- Timestamp:
- Jul 24, 2024, 12:45:32 PM (6 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/phydev
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phydev/inifis_mod.F90
r3435 r5112 6 6 SUBROUTINE inifis(prad, pg, pr, pcpp) 7 7 ! Initialize some physical constants and settings 8 USE init_print_control_mod, ONLY: init_print_control8 USE lmdz_init_print_control, ONLY: init_print_control 9 9 USE comcstphy, ONLY: rradius, & ! planet radius (m) 10 10 rr, & ! recuced gas constant: R/molar mass of atm -
LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90
r5111 r5112 31 31 is_sequential, is_south_pole_dyn 32 32 USE lmdz_grid_phy, only: nbp_lon, nbp_lat, klon_glo 33 USE print_control_mod, ONLY: lunout, prt_level33 USE lmdz_print_control, ONLY: lunout, prt_level 34 34 USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat 35 35 USE ioipsl, only: flio_dom_set … … 141 141 USE lmdz_phys_para, only: is_sequential, jj_begin, jj_end, jj_nb 142 142 use ioipsl, only: histbeg 143 USE print_control_mod, ONLY: prt_level, lunout143 USE lmdz_print_control, ONLY: prt_level, lunout 144 144 USE lmdz_grid_phy, ONLY: nbp_lon 145 145 implicit none … … 327 327 jj_nb, klon_mpi 328 328 USE lmdz_xios, only: xios_send_field 329 USE print_control_mod, ONLY: prt_level, lunout329 USE lmdz_print_control, ONLY: prt_level, lunout 330 330 USE lmdz_grid_phy, ONLY: nbp_lon 331 331 USE lmdz_abort_physic, ONLY: abort_physic … … 361 361 jj_nb, klon_mpi 362 362 USE lmdz_xios, only: xios_send_field 363 USE print_control_mod, ONLY: prt_level, lunout363 USE lmdz_print_control, ONLY: prt_level, lunout 364 364 USE lmdz_grid_phy, ONLY: nbp_lon 365 365 USE lmdz_abort_physic, ONLY: abort_physic -
LMDZ6/branches/Amaury_dev/libf/phydev/phyetat0.F90
r5111 r5112 9 9 USE iostart, ONLY: open_startphy,get_field,close_startphy 10 10 USE iophy, ONLY: init_iophy_new 11 USE geometry_mod, ONLY: longitude_deg, latitude_deg11 USE lmdz_geometry, ONLY: longitude_deg, latitude_deg 12 12 USE lmdz_abort_physic, ONLY: abort_physic 13 13 -
LMDZ6/branches/Amaury_dev/libf/phydev/phyredem.F90
r5106 r5112 4 4 SUBROUTINE phyredem(fichnom) 5 5 6 USE geometry_mod, ONLY: longitude_deg, latitude_deg6 USE lmdz_geometry, ONLY: longitude_deg, latitude_deg 7 7 USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var 8 8 -
LMDZ6/branches/Amaury_dev/libf/phydev/physiq_mod.F90
r5110 r5112 15 15 USE dimphy, ONLY: klon,klev 16 16 USE infotrac_phy, ONLY: nqtot 17 USE geometry_mod, ONLY: latitude17 USE lmdz_geometry, ONLY: latitude 18 18 USE comcstphy, ONLY: rg 19 19 USE iophy, ONLY: histbeg_phy,histwrite_phy
Note: See TracChangeset
for help on using the changeset viewer.