1 !WRF
:DRIVER_LAYER
:CORE_SPECIFIC
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
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
45 !***************** special conversion
for timesteps
*********************
46 ! 2004-12-07 ADT Notes
47 ! NB
: P2SI needs to defined in multiple places
. Right now
this
48 ! requirement is a kludge
, and if I can find something more elegant
49 ! I will
try to implement it later
.
51 ! Beware
: dt as the namelist timestep is now obsolete
. The
new
52 ! variable
"timestep" (which is an
*integer
* number of seconds
),
53 ! with
the (optional
) additional specification of a
fraction (to
54 ! make non
-integer timesteps
) now acts as the
true timestep
.
55 ! In share
/set_timekeeping
.F the
integer(s
) are converted to a real
56 ! number
and put back in dt anyway
!
57 ! We will deal with the
case of the integer variables in
58 ! share
/set_timekeeping
.F itself
. For now
, since they left dt in
59 ! the namelist definition
, I will leave
this here just in
case ...
60 model_config_rec
%dt
= dt
* P2SI
61 ! All of the following variables are told to be input in
*MINUTES
*
62 ! These values are converted to units of timesteps in the various
63 ! init routines in phys
/module_physics_init
.F by dividing by the
64 ! formula STEP
= (xxDT
*60./dt
). So it seems safe to multiply them
65 ! by P2SI
here (with the exception of adding roundoff error later
).
66 ! See notes in phys
/module_radiation_driver
for the radt example
.
67 model_config_rec
%radt
= radt
* P2SI
68 model_config_rec
%bldt
= bldt
* P2SI
69 model_config_rec
%cudt
= cudt
* P2SI
70 model_config_rec
%gsmdt
= gsmdt
* P2SI
71 !************************************************************************
