wrf_auxhist11in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxhist11in.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_read_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 'XYZ' , & ! MemoryOrder
23 '' , & ! Stagger
24 'inc/wrf_auxhist11in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
25 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
26 ims , ime , jms , jme , kms , kme , &
27 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
28 ierr )
29 ENDIF
30 ENDIF
31 ENDDO
32 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
33 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
34 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
35 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
36 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
37 CALL wrf_ext_read_field ( &
38 fid , & ! DataHandle
39 current_date(1:19) , & ! DateStr
40 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
41 grid%a_moist(ims,jms,kms,itrace) , & ! Field
42 WRF_FLOAT , & ! FieldType
43 grid%communicator , & ! Comm
44 grid%iocommunicator , & ! Comm
45 grid%domdesc , & ! Comm
46 grid%bdy_mask , & ! bdy_mask
47 'XYZ' , & ! MemoryOrder
48 '' , & ! Stagger
49 'inc/wrf_auxhist11in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
50 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
51 ims , ime , jms , jme , kms , kme , &
52 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
53 ierr )
54 ENDIF
55 ENDIF
56 ENDDO
57 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
58 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
59 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
60 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
61 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
62 CALL wrf_ext_read_field ( &
63 fid , & ! DataHandle
64 current_date(1:19) , & ! DateStr
65 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
66 grid%g_moist(ims,jms,kms,itrace) , & ! Field
67 WRF_FLOAT , & ! FieldType
68 grid%communicator , & ! Comm
69 grid%iocommunicator , & ! Comm
70 grid%domdesc , & ! Comm
71 grid%bdy_mask , & ! bdy_mask
72 'XYZ' , & ! MemoryOrder
73 '' , & ! Stagger
74 'inc/wrf_auxhist11in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
75 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
76 ims , ime , jms , jme , kms , kme , &
77 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
78 ierr )
79 ENDIF
80 ENDIF
81 ENDDO
82 DO itrace = PARAM_FIRST_SCALAR , num_scalar
83 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
84 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
85 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
86 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
87 CALL wrf_ext_read_field ( &
88 fid , & ! DataHandle
89 current_date(1:19) , & ! DateStr
90 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
91 grid%scalar(ims,jms,kms,itrace) , & ! Field
92 WRF_FLOAT , & ! FieldType
93 grid%communicator , & ! Comm
94 grid%iocommunicator , & ! Comm
95 grid%domdesc , & ! Comm
96 grid%bdy_mask , & ! bdy_mask
97 'XYZ' , & ! MemoryOrder
98 '' , & ! Stagger
99 'inc/wrf_auxhist11in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
100 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
101 ims , ime , jms , jme , kms , kme , &
102 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
103 ierr )
104 ENDIF
105 ENDIF
106 ENDDO
107 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
108 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
109 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
110 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
111 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
112 CALL wrf_ext_read_field ( &
113 fid , & ! DataHandle
114 current_date(1:19) , & ! DateStr
115 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
116 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
117 WRF_FLOAT , & ! FieldType
118 grid%communicator , & ! Comm
119 grid%iocommunicator , & ! Comm
120 grid%domdesc , & ! Comm
121 grid%bdy_mask , & ! bdy_mask
122 'XYZ' , & ! MemoryOrder
123 '' , & ! Stagger
124 'inc/wrf_auxhist11in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
125 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
126 ims , ime , jms , jme , kms , kme , &
127 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
128 ierr )
129 ENDIF
130 ENDIF
131 ENDDO
132 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
133 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
134 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
135 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
136 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
137 CALL wrf_ext_read_field ( &
138 fid , & ! DataHandle
139 current_date(1:19) , & ! DateStr
140 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
141 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
142 WRF_FLOAT , & ! FieldType
143 grid%communicator , & ! Comm
144 grid%iocommunicator , & ! Comm
145 grid%domdesc , & ! Comm
146 grid%bdy_mask , & ! bdy_mask
147 'XYZ' , & ! MemoryOrder
148 '' , & ! Stagger
149 'inc/wrf_auxhist11in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
150 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
151 ims , ime , jms , jme , kms , kme , &
152 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
153 ierr )
154 ENDIF
155 ENDIF
156 ENDDO
157 !ENDOFREGISTRYGENERATEDINCLUDE