1 | !WRF:DRIVER_LAYER:CORE_SPECIFIC |
---|
2 | |
---|
3 | ! Namelist remappings. This file is included by the initial_config |
---|
4 | ! routine in frame/module_configure.F and provides em_core specific |
---|
5 | ! remappings of namelist variables |
---|
6 | |
---|
7 | ! allow fdda specific namelist variables to map onto auxinput streams 9 and 10 |
---|
8 | model_config_rec%auxinput10_begin_d = model_config_rec%gfdda_begin_d |
---|
9 | model_config_rec%auxinput10_begin_h = model_config_rec%gfdda_begin_h |
---|
10 | model_config_rec%auxinput10_begin_m = model_config_rec%gfdda_begin_m |
---|
11 | model_config_rec%auxinput10_begin_s = model_config_rec%gfdda_begin_s |
---|
12 | model_config_rec%auxinput10_begin_y = model_config_rec%gfdda_begin_y |
---|
13 | model_config_rec%auxinput10_end_d = model_config_rec%gfdda_end_d |
---|
14 | model_config_rec%auxinput10_end_h = model_config_rec%gfdda_end_h |
---|
15 | model_config_rec%auxinput10_end_m = model_config_rec%gfdda_end_m |
---|
16 | model_config_rec%auxinput10_end_s = model_config_rec%gfdda_end_s |
---|
17 | model_config_rec%auxinput10_end_y = model_config_rec%gfdda_end_y |
---|
18 | model_config_rec%auxinput10_inname = model_config_rec%gfdda_inname |
---|
19 | model_config_rec%auxinput10_interval = model_config_rec%gfdda_interval |
---|
20 | model_config_rec%auxinput10_interval_d = model_config_rec%gfdda_interval_d |
---|
21 | model_config_rec%auxinput10_interval_h = model_config_rec%gfdda_interval_h |
---|
22 | model_config_rec%auxinput10_interval_m = model_config_rec%gfdda_interval_m |
---|
23 | model_config_rec%auxinput10_interval_s = model_config_rec%gfdda_interval_s |
---|
24 | model_config_rec%auxinput10_interval_y = model_config_rec%gfdda_interval_y |
---|
25 | model_config_rec%io_form_auxinput10 = model_config_rec%io_form_gfdda |
---|
26 | model_config_rec%auxinput9_begin_d = model_config_rec%sgfdda_begin_d |
---|
27 | model_config_rec%auxinput9_begin_h = model_config_rec%sgfdda_begin_h |
---|
28 | model_config_rec%auxinput9_begin_m = model_config_rec%sgfdda_begin_m |
---|
29 | model_config_rec%auxinput9_begin_s = model_config_rec%sgfdda_begin_s |
---|
30 | model_config_rec%auxinput9_begin_y = model_config_rec%sgfdda_begin_y |
---|
31 | model_config_rec%auxinput9_end_d = model_config_rec%sgfdda_end_d |
---|
32 | model_config_rec%auxinput9_end_h = model_config_rec%sgfdda_end_h |
---|
33 | model_config_rec%auxinput9_end_m = model_config_rec%sgfdda_end_m |
---|
34 | model_config_rec%auxinput9_end_s = model_config_rec%sgfdda_end_s |
---|
35 | model_config_rec%auxinput9_end_y = model_config_rec%sgfdda_end_y |
---|
36 | model_config_rec%auxinput9_inname = model_config_rec%sgfdda_inname |
---|
37 | model_config_rec%auxinput9_interval = model_config_rec%sgfdda_interval |
---|
38 | model_config_rec%auxinput9_interval_d = model_config_rec%sgfdda_interval_d |
---|
39 | model_config_rec%auxinput9_interval_h = model_config_rec%sgfdda_interval_h |
---|
40 | model_config_rec%auxinput9_interval_m = model_config_rec%sgfdda_interval_m |
---|
41 | model_config_rec%auxinput9_interval_s = model_config_rec%sgfdda_interval_s |
---|
42 | model_config_rec%auxinput9_interval_y = model_config_rec%sgfdda_interval_y |
---|
43 | model_config_rec%io_form_auxinput9 = model_config_rec%io_form_sgfdda |
---|
44 | IF (model_config_rec%prec_acc_dt(1) .gt. 0.) model_config_rec%prec_acc_opt = 1 |
---|
45 | IF (model_config_rec%bucket_mm .gt. 0.) model_config_rec%bucketr_opt = 1 |
---|
46 | #ifdef PLANET |
---|
47 | !***************** special conversion for timesteps ********************* |
---|
48 | ! 2004-12-07 ADT Notes |
---|
49 | ! NB: P2SI needs to defined in multiple places. Right now this |
---|
50 | ! requirement is a kludge, and if I can find something more elegant |
---|
51 | ! I will try to implement it later. |
---|
52 | ! |
---|
53 | ! Beware: dt as the namelist timestep is now obsolete. The new |
---|
54 | ! variable "timestep" (which is an *integer* number of seconds), |
---|
55 | ! with the (optional) additional specification of a fraction (to |
---|
56 | ! make non-integer timesteps) now acts as the true timestep. |
---|
57 | ! In share/set_timekeeping.F the integer(s) are converted to a real |
---|
58 | ! number and put back in dt anyway! |
---|
59 | ! We will deal with the case of the integer variables in |
---|
60 | ! share/set_timekeeping.F itself. For now, since they left dt in |
---|
61 | ! the namelist definition, I will leave this here just in case ... |
---|
62 | model_config_rec%dt = dt * P2SI |
---|
63 | ! All of the following variables are told to be input in *MINUTES* |
---|
64 | ! These values are converted to units of timesteps in the various |
---|
65 | ! init routines in phys/module_physics_init.F by dividing by the |
---|
66 | ! formula STEP = (xxDT*60./dt). So it seems safe to multiply them |
---|
67 | ! by P2SI here (with the exception of adding roundoff error later). |
---|
68 | ! See notes in phys/module_radiation_driver for the radt example. |
---|
69 | model_config_rec%radt = radt * P2SI |
---|
70 | model_config_rec%bldt = bldt * P2SI |
---|
71 | model_config_rec%cudt = cudt * P2SI |
---|
72 | model_config_rec%gsmdt = gsmdt * P2SI |
---|
73 | !************************************************************************ |
---|
74 | #endif |
---|
75 | |
---|