source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis2.inc @ 856

Last change on this file since 856 was 315, checked in by aslmd, 14 years ago

MESOSCALE: * implemented z0 roughness map from Hebrard et al. 2011

  • also possible to prescribe a constant value in namelist.input through init_Z0
  • if there is a missing value [z0=0] or a problem, default value is 1cm
  • note: in surface.nc and geo_em.d01.nc, z0 is in cm

in wrfinput_d01 and LMD physics integrations, z0 is in m

MODIFIED files in the physics [MESOSCALE ONLY]
M 314 LMDZ.MARS/libf/phymars/meso_inc/meso_inc_ini.F
M 314 LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F
M 314 LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisinvar.F
M 314 LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisvar.F

MODIFIED files in the dynamical core and interface
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis1.inc
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis2.inc
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis3.inc
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F
M 314 MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

MODIFIED files for geogrid.exe [interpolation on the domain]
M 314 MESOSCALE/LMD_MM_MARS/SRC/WPS/wps_mars/geogrid/GEOGRID.TBL.ARW_Mars
M 314 MESOSCALE/LMD_MM_MARS/SRC/WPS/wps_mars/namelist.wps_TEST
A 0 MESOSCALE/LMD_MM_MARS/WPS_GEOG/rough_GCM

M 314 MESOSCALE_DEV/TESTS/LMD_MM_MARS_FASTCASEnewphys.tar.gz

The manual does not feature the few indications necessary for simulations
with new physics so we took a few notes, commented for the moment
M 314 MESOSCALE_DEV/MANUAL/SRC
File size: 2.0 KB
Line 
1!
2! part of the module_lmd_driver program
3! that is (number of domains)-dependent
4!
5
6
7SELECT CASE (id)
8
9       CASE(1)
10       CALL inifis(ngridmx,nlayer, &
11               wday_ini,wdaysec,                &
12               wappel_phys,                     &
13               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
14               nqmx,dt,                                                &
15               womeg,wmugaz,                                           &
16               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
17               wz0,wemin_turb,wlmixmin,                                &
18               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
19               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
20#ifdef NEWPHYS
21               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
22#else
23               walbedodat, winertiedat, wphisfi,                       &
24#endif
25               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
26               wtheta, wpsi)
27
28
29       CASE(2)
30       CALL d2_inifis(ngridmx,nlayer, &
31               wday_ini,wdaysec,                   &
32               wappel_phys,                        &
33               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
34               nqmx,dt,                                                &
35               womeg,wmugaz,                                           &
36               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
37               wz0,wemin_turb,wlmixmin,                                &
38               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
39               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
40#ifdef NEWPHYS
41               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
42#else
43               walbedodat, winertiedat, wphisfi,                       &
44#endif
45               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
46               wtheta, wpsi)
47
48!
49!       CASE(3:)
50!       print *, '** Mars ** Not supported ...'
51!       stop
52!
53END SELECT
Note: See TracBrowser for help on using the repository browser.