Changeset 2454
- Timestamp:
- Feb 16, 2021, 12:50:58 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F
r1755 r2454 14 14 !real*8,intent(in) :: ptimestep !physics time step (s) [dtphys] 15 15 16 ! this is necessary to initialize getin_p 17 USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para 18 16 19 implicit none 20 21 INCLUDE 'mpif.h' 17 22 18 23 real,intent(in) :: prad ! radius of the planet (m) … … 44 49 45 50 !! read callphys.def 51 CALL Init_phys_lmdz_para(1,1,1,MPI_COMM_WORLD) ! initializes MPI communicator 52 ! ... necessary for getin_p in conf_phys 46 53 call conf_phys(ngrid,nlayer,nq) 47 54
Note: See TracChangeset
for help on using the changeset viewer.