wrf_auxinput6out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput6out.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_auxinput6out.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_auxinput6out.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_auxinput6out.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