Changeset 2267 for trunk

Timestamp:

Mar 27, 2020, 1:11:45 AM (5 years ago)

Author:

aslmd

Message:

MESOSCALE generic. fixed dummy nday. fixed ticket #37, see details there, but use of getin_p is now working without the need to replace everywhere by getin. it was mostly about passing MPI communicator to the physics interface.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/iniphysiq_mod.F (modified) (5 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/iniphysiq_mod.F

@@ -7 +7 @@
                      prad,pg,pr,pcpp,iflag_phys)
 
-use control_mod, only: nday
+!use control_mod, only: nday
 !use surf_heat_transp_mod, only: ini_surf_heat_transp
 !use infotrac, only : nqtot ! number of advected tracers
@@ -19 +19 @@
 !                        latitude ! latitudes (rad)
 ! necessary to get klon_omp
-USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
+!USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
+USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para
 USE dimphy, ONLY: init_dimphy
 USE phys_state_var_mod
@@ -37 +38 @@
 implicit none
 
+INCLUDE 'mpif.h'
+
 REAL,intent(in) :: prad
 REAL,intent(in) :: pg
@@ -51 +54 @@
 integer,intent(in) :: pdayref ! reference day of for the simulation [day_ini]
 integer,intent(in) :: iflag_phys ! type of physics to be called
+
+integer :: nday=0 ! this is dummy for mesoscale (in dyn3d/control_mod)
 
 integer,intent(in) :: ngrid ! number of physics columns for this MPI process
@@ -74 +79 @@
   !------------------------------------------
 
+CALL Init_phys_lmdz_para(1,1,1,MPI_COMM_WORLD)
 
 !call phys_state_var_init