Changeset 2454


Ignore:
Timestamp:
Feb 16, 2021, 12:50:58 AM (4 years ago)
Author:
aslmd
Message:

MESOSCALE Mars: getin_p introduced in physics in commit r2304 so have to apply to MESOSCALE Mars the same fix as MESOSCALE generic in r2267 (fixing ticket #37) that is, a fix that initializes MPI communicator so that getin_p works, otherwise parameters from .def are not loaded

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  
    1414   !real*8,intent(in) :: ptimestep !physics time step (s) [dtphys]
    1515
     16! this is necessary to initialize getin_p
     17USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para
     18
    1619implicit none
     20
     21INCLUDE 'mpif.h'
    1722
    1823real,intent(in) :: prad ! radius of the planet (m)
     
    4449
    4550!! read callphys.def
     51CALL Init_phys_lmdz_para(1,1,1,MPI_COMM_WORLD) ! initializes MPI communicator
     52                                               ! ... necessary for getin_p in conf_phys
    4653call conf_phys(ngrid,nlayer,nq)
    4754
Note: See TracChangeset for help on using the changeset viewer.