source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis3.inc @ 315

Last change on this file since 315 was 315, checked in by aslmd, 13 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: 3.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       CASE(2)
29       CALL d2_inifis(ngridmx,nlayer, &
30               wday_ini,wdaysec,                   &
31               wappel_phys,                        &
32               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
33               nqmx,dt,                                                &
34               womeg,wmugaz,                                           &
35               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
36               wz0,wemin_turb,wlmixmin,                                &
37               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
38               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
39#ifdef NEWPHYS
40               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
41#else
42               walbedodat, winertiedat, wphisfi,                       &
43#endif
44               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
45               wtheta, wpsi)
46
47       CASE(3)
48       CALL d3_inifis(ngridmx,nlayer, &
49               wday_ini,wdaysec,                   &
50               wappel_phys,                        &
51               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
52               nqmx,dt,                                                &
53               womeg,wmugaz,                                           &
54               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
55               wz0,wemin_turb,wlmixmin,                                &
56               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
57               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
58#ifdef NEWPHYS
59               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
60#else
61               walbedodat, winertiedat, wphisfi,                       &
62#endif
63               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
64               wtheta, wpsi)
65
66
67!
68!       CASE(3:)
69!       print *, '** Mars ** Not supported ...'
70!       stop
71!
72END SELECT
Note: See TracBrowser for help on using the repository browser.