wrf_auxinput8out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput8out.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 DO itrace = PARAM_FIRST_SCALAR , num_moist
8 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
9 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
10 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
11 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
12 CALL wrf_ext_write_field ( &
13 fid , & ! DataHandle
14 current_date(1:19) , & ! DateStr
15 TRIM(moist_dname_table( grid%id, itrace )), & !data name
16 grid%moist(ims,jms,kms,itrace) , & ! Field
17 WRF_FLOAT , & ! FieldType
18 grid%communicator , & ! Comm
19 grid%iocommunicator , & ! Comm
20 grid%domdesc , & ! Comm
21 grid%bdy_mask , & ! bdy_mask
22 dryrun , & ! flag
23 'XYZ' , & ! MemoryOrder
24 '' , & ! Stagger
25 'west_east' , & ! Dimname 1
26 'south_north' , & ! Dimname 2
27 'bottom_top' , & ! Dimname 3
28 moist_desc_table( grid%id, itrace ), & ! Desc
29 moist_units_table( grid%id, itrace ), & ! Units
30 'inc/wrf_auxinput8out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
31 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
32 ims , ime , jms , jme , kms , kme , &
33 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
34 ierr )
35 ENDIF
36 ENDIF
37 ENDDO
38 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
39 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
40 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
41 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
42 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
43 CALL wrf_ext_write_field ( &
44 fid , & ! DataHandle
45 current_date(1:19) , & ! DateStr
46 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
47 grid%a_moist(ims,jms,kms,itrace) , & ! Field
48 WRF_FLOAT , & ! FieldType
49 grid%communicator , & ! Comm
50 grid%iocommunicator , & ! Comm
51 grid%domdesc , & ! Comm
52 grid%bdy_mask , & ! bdy_mask
53 dryrun , & ! flag
54 'XYZ' , & ! MemoryOrder
55 '' , & ! Stagger
56 'west_east' , & ! Dimname 1
57 'south_north' , & ! Dimname 2
58 'bottom_top' , & ! Dimname 3
59 a_moist_desc_table( grid%id, itrace ), & ! Desc
60 a_moist_units_table( grid%id, itrace ), & ! Units
61 'inc/wrf_auxinput8out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
62 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
63 ims , ime , jms , jme , kms , kme , &
64 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
65 ierr )
66 ENDIF
67 ENDIF
68 ENDDO
69 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
70 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
71 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
72 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
73 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
74 CALL wrf_ext_write_field ( &
75 fid , & ! DataHandle
76 current_date(1:19) , & ! DateStr
77 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
78 grid%g_moist(ims,jms,kms,itrace) , & ! Field
79 WRF_FLOAT , & ! FieldType
80 grid%communicator , & ! Comm
81 grid%iocommunicator , & ! Comm
82 grid%domdesc , & ! Comm
83 grid%bdy_mask , & ! bdy_mask
84 dryrun , & ! flag
85 'XYZ' , & ! MemoryOrder
86 '' , & ! Stagger
87 'west_east' , & ! Dimname 1
88 'south_north' , & ! Dimname 2
89 'bottom_top' , & ! Dimname 3
90 g_moist_desc_table( grid%id, itrace ), & ! Desc
91 g_moist_units_table( grid%id, itrace ), & ! Units
92 'inc/wrf_auxinput8out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
93 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
94 ims , ime , jms , jme , kms , kme , &
95 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
96 ierr )
97 ENDIF
98 ENDIF
99 ENDDO
100 DO itrace = PARAM_FIRST_SCALAR , num_scalar
101 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
102 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
103 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
104 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
105 CALL wrf_ext_write_field ( &
106 fid , & ! DataHandle
107 current_date(1:19) , & ! DateStr
108 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
109 grid%scalar(ims,jms,kms,itrace) , & ! Field
110 WRF_FLOAT , & ! FieldType
111 grid%communicator , & ! Comm
112 grid%iocommunicator , & ! Comm
113 grid%domdesc , & ! Comm
114 grid%bdy_mask , & ! bdy_mask
115 dryrun , & ! flag
116 'XYZ' , & ! MemoryOrder
117 '' , & ! Stagger
118 'west_east' , & ! Dimname 1
119 'south_north' , & ! Dimname 2
120 'bottom_top' , & ! Dimname 3
121 scalar_desc_table( grid%id, itrace ), & ! Desc
122 scalar_units_table( grid%id, itrace ), & ! Units
123 'inc/wrf_auxinput8out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
124 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
125 ims , ime , jms , jme , kms , kme , &
126 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
127 ierr )
128 ENDIF
129 ENDIF
130 ENDDO
131 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
132 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
133 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
134 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
135 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
136 CALL wrf_ext_write_field ( &
137 fid , & ! DataHandle
138 current_date(1:19) , & ! DateStr
139 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
140 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
141 WRF_FLOAT , & ! FieldType
142 grid%communicator , & ! Comm
143 grid%iocommunicator , & ! Comm
144 grid%domdesc , & ! Comm
145 grid%bdy_mask , & ! bdy_mask
146 dryrun , & ! flag
147 'XYZ' , & ! MemoryOrder
148 '' , & ! Stagger
149 'west_east' , & ! Dimname 1
150 'south_north' , & ! Dimname 2
151 'bottom_top' , & ! Dimname 3
152 a_scalar_desc_table( grid%id, itrace ), & ! Desc
153 a_scalar_units_table( grid%id, itrace ), & ! Units
154 'inc/wrf_auxinput8out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
155 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
156 ims , ime , jms , jme , kms , kme , &
157 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
158 ierr )
159 ENDIF
160 ENDIF
161 ENDDO
162 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
163 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
164 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
165 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
166 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
167 CALL wrf_ext_write_field ( &
168 fid , & ! DataHandle
169 current_date(1:19) , & ! DateStr
170 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
171 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
172 WRF_FLOAT , & ! FieldType
173 grid%communicator , & ! Comm
174 grid%iocommunicator , & ! Comm
175 grid%domdesc , & ! Comm
176 grid%bdy_mask , & ! bdy_mask
177 dryrun , & ! flag
178 'XYZ' , & ! MemoryOrder
179 '' , & ! Stagger
180 'west_east' , & ! Dimname 1
181 'south_north' , & ! Dimname 2
182 'bottom_top' , & ! Dimname 3
183 g_scalar_desc_table( grid%id, itrace ), & ! Desc
184 g_scalar_units_table( grid%id, itrace ), & ! Units
185 'inc/wrf_auxinput8out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
186 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
187 ims , ime , jms , jme , kms , kme , &
188 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
189 ierr )
190 ENDIF
191 ENDIF
192 ENDDO
193 !ENDOFREGISTRYGENERATEDINCLUDE