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
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
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
.
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 !************************************************************************