Changeset 2752 for LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
- Timestamp:
- Jan 8, 2017, 4:44:10 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r2690 r2752 19 19 !!! Comosantes de la coordonnee sigma-hybride 20 20 !!! Ap et Bp 21 TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 22 'Ap', '', '', (/ ('', i=1, 9) /))23 TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 24 'Bp', '', '', (/ ('', i=1, 9) /))25 TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 26 'Alt', '', '', (/ ('', i=1, 9) /))21 TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 22 'Ap', '', '', (/ ('', i=1, 10) /)) 23 TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 24 'Bp', '', '', (/ ('', i=1, 10) /)) 25 TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 26 'Alt', '', '', (/ ('', i=1, 10) /)) 27 27 28 28 !!! 1D 29 TYPE(ctrl_out), SAVE :: o_phis = ctrl_out((/ 1, 1, 10, 5, 1, 1, 11, 11, 11 30 'phis', 'Surface geop.height', 'm2/s2', (/ ('', i=1, 9) /))31 TYPE(ctrl_out), SAVE :: o_aire = ctrl_out((/ 1, 1, 10, 10, 1, 1, 11, 11, 11 29 TYPE(ctrl_out), SAVE :: o_phis = ctrl_out((/ 1, 1, 10, 5, 1, 1, 11, 11, 11, 11/), & 30 'phis', 'Surface geop.height', 'm2/s2', (/ ('', i=1, 10) /)) 31 TYPE(ctrl_out), SAVE :: o_aire = ctrl_out((/ 1, 1, 10, 10, 1, 1, 11, 11, 11, 11/), & 32 32 'aire', 'Grid area', '-', (/ 'once', 'once', 'once', 'once', 'once', 'once', & 33 34 TYPE(ctrl_out), SAVE :: o_contfracATM = ctrl_out((/ 10, 1, 1, 10, 10, 10, 11, 11, 11 33 'once', 'once', 'once', 'once' /)) 34 TYPE(ctrl_out), SAVE :: o_contfracATM = ctrl_out((/ 10, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 35 35 'contfracATM', '% sfce ter+lic', '-', & 36 (/ 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once' /))37 TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 38 'contfracOR', '% sfce terre OR', '-', (/ ('', i=1, 9) /))39 TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 40 'aireTER', 'Grid area CONT', '-', (/ ('', i=1, 9) /))36 (/ 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once' /)) 37 TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 38 'contfracOR', '% sfce terre OR', '-', (/ ('', i=1, 10) /)) 39 TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 40 'aireTER', 'Grid area CONT', '-', (/ ('', i=1, 10) /)) 41 41 42 42 !!! 2D … … 44 44 ! Marine 45 45 46 TYPE(ctrl_out), SAVE :: o_alt_tropo = ctrl_out((/1,1,1,1,1,10,10,10,10 /),&46 TYPE(ctrl_out), SAVE :: o_alt_tropo = ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 47 47 'alt_tropo','Tropopause pressure','hPa',& 48 48 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 49 "inst(X)", "inst(X)","inst(X)" /))50 51 TYPE(ctrl_out), SAVE :: o_map_prop_hc = ctrl_out((/1,1,1,1,1,10,10,10,10 /),&49 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 50 51 TYPE(ctrl_out), SAVE :: o_map_prop_hc = ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 52 52 'map_prop_hc','Proportion of high clouds',' ',& 53 53 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 54 "inst(X)", "inst(X)","inst(X)" /))54 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 55 55 56 56 TYPE(ctrl_out), SAVE :: o_map_prop_hist = & 57 ctrl_out((/1,1,1,1,1,1,10,10,10 /),&57 ctrl_out((/1,1,1,1,1,1,10,10,10,10/),& 58 58 'map_prop_hist','Proportion of high ice semi-transp clouds',' ',& 59 59 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 60 "inst(X)", "inst(X)","inst(X)" /))60 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 61 61 62 62 TYPE(ctrl_out), SAVE :: o_map_emis_hc = & 63 ctrl_out((/1,1,1,1,1,1,10,10,10 /),&63 ctrl_out((/1,1,1,1,1,1,10,10,10,10/),& 64 64 'map_emis_hc','Emissivity of high clouds',' ',& 65 65 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 66 "inst(X)", "inst(X)","inst(X)" /))66 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 67 67 68 68 TYPE(ctrl_out), SAVE :: o_map_iwp_hc = & 69 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&69 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 70 70 'map_iwp_hc','Ice water path of high clouds','g/m2',& 71 71 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 72 "inst(X)", "inst(X)","inst(X)" /))72 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 73 73 74 74 TYPE(ctrl_out), SAVE :: o_map_deltaz_hc = & 75 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&75 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 76 76 'map_deltaz_hc','geom thickness of high clouds','m',& 77 77 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 78 "inst(X)", "inst(X)","inst(X)" /))78 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 79 79 80 80 TYPE(ctrl_out), SAVE :: o_map_pcld_hc = & 81 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&81 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 82 82 'map_pcld_hc','cloud pressure of high clouds','hPa',& 83 83 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 84 "inst(X)", "inst(X)","inst(X)" /))84 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 85 85 86 86 TYPE(ctrl_out), SAVE :: o_map_tcld_hc = & 87 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&87 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 88 88 'map_tcld_hc','cloud temperature of high clouds','K',& 89 89 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 90 "inst(X)", "inst(X)","inst(X)" /)) 91 90 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 92 91 93 92 TYPE(ctrl_out), SAVE :: o_map_emis_hist = & 94 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&93 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 95 94 'map_emis_hist','Emissivity of high ice st clouds',' ',& 96 95 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 97 "inst(X)", "inst(X)","inst(X)" /))96 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 98 97 99 98 TYPE(ctrl_out), SAVE :: o_map_iwp_hist = & 100 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&99 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 101 100 'map_iwp_hist','Ice water path of high ice st clouds','g/m2',& 102 101 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 103 "inst(X)", "inst(X)","inst(X)" /))102 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 104 103 105 104 TYPE(ctrl_out), SAVE :: o_map_deltaz_hist = & 106 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&105 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 107 106 'map_deltaz_hist','geom thickness of high ice st clouds','m',& 108 107 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 109 "inst(X)", "inst(X)","inst(X)" /))108 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 110 109 111 110 TYPE(ctrl_out), SAVE :: o_map_rad_hist = & 112 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&111 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 113 112 'map_rad_hist','ice crystals radius in high ice st clouds','µm',& 114 113 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 115 "inst(X)", "inst(X)","inst(X)" /))114 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 116 115 117 116 118 117 TYPE(ctrl_out), SAVE :: o_map_emis_Cb = & 119 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&118 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 120 119 'map_emis_Cb','Emissivity of high Cb clouds',' ',& 121 120 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 122 "inst(X)", "inst(X)","inst(X)" /))121 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 123 122 124 123 TYPE(ctrl_out), SAVE :: o_map_pcld_Cb = & 125 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&124 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 126 125 'map_pcld_Cb','cloud pressure of high Cb clouds','hPa',& 127 126 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 128 "inst(X)", "inst(X)","inst(X)" /))127 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 129 128 130 129 TYPE(ctrl_out), SAVE :: o_map_tcld_Cb = & 131 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&130 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 132 131 'map_tcld_Cb','cloud temperature of high Cb clouds','K',& 133 132 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 134 "inst(X)", "inst(X)","inst(X)" /))133 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 135 134 136 135 137 136 TYPE(ctrl_out), SAVE :: o_map_emis_Anv = & 138 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&137 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 139 138 'map_emis_Anv','Emissivity of high Anv clouds',' ',& 140 139 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 141 "inst(X)", "inst(X)","inst(X)" /))140 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 142 141 143 142 TYPE(ctrl_out), SAVE :: o_map_pcld_Anv = & 144 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&143 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 145 144 'map_pcld_Anv','cloud pressure of high Anv clouds','hPa',& 146 145 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 147 "inst(X)", "inst(X)","inst(X)" /))146 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 148 147 149 148 TYPE(ctrl_out), SAVE :: o_map_tcld_Anv = & 150 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&149 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 151 150 'map_tcld_Anv','cloud temperature of high Anv clouds','K',& 152 151 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 153 "inst(X)", "inst(X)","inst(X)" /))152 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 154 153 155 154 TYPE(ctrl_out), SAVE :: o_map_emis_ThCi = & 156 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&155 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 157 156 'map_emis_ThCi','Emissivity of high ThCi clouds',' ',& 158 157 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 159 "inst(X)", "inst(X)","inst(X)" /))158 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 160 159 161 160 TYPE(ctrl_out), SAVE :: o_map_pcld_ThCi = & 162 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&161 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 163 162 'map_pcld_ThCi','cloud pressure of high ThCi clouds','hPa',& 164 163 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 165 "inst(X)", "inst(X)","inst(X)" /))164 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 166 165 167 166 TYPE(ctrl_out), SAVE :: o_map_tcld_ThCi = & 168 ctrl_out((/10,10,1,10,10,10,10,10,10 /),&167 ctrl_out((/10,10,1,10,10,10,10,10,10,10/),& 169 168 'map_tcld_ThCi','cloud temperature of high ThCi clouds','K',& 170 169 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 171 "inst(X)", "inst(X)","inst(X)" /))170 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 172 171 173 172 TYPE(ctrl_out), SAVE :: o_map_ntot = & 174 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&173 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 175 174 'map_ntot','total AIRS cloud fraction',' ',& 176 175 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 177 "inst(X)", "inst(X)","inst(X)" /))176 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 178 177 179 178 TYPE(ctrl_out), SAVE :: o_map_hc = & 180 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&179 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 181 180 'map_hc','high clouds AIRS cloud fraction',' ',& 182 181 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 183 "inst(X)", "inst(X)","inst(X)" /))182 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 184 183 185 184 TYPE(ctrl_out), SAVE :: o_map_hist = & 186 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&185 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 187 186 'map_hist','high clouds ice st AIRS cloud fraction',' ',& 188 187 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 189 "inst(X)", "inst(X)","inst(X)" /))188 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 190 189 191 190 TYPE(ctrl_out), SAVE :: o_map_Cb = & 192 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&191 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 193 192 'map_Cb','high clouds Cb AIRS cloud fraction',' ',& 194 193 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 195 "inst(X)", "inst(X)","inst(X)" /))194 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 196 195 197 196 TYPE(ctrl_out), SAVE :: o_map_ThCi = & 198 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&197 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 199 198 'map_ThCi','high clouds ThCi AIRS cloud fraction',' ',& 200 199 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 201 "inst(X)", "inst(X)","inst(X)" /))200 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 202 201 203 202 TYPE(ctrl_out), SAVE :: o_map_Anv = & 204 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&203 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 205 204 'map_Anv','high clouds Anv AIRS cloud fraction',' ',& 206 205 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 207 "inst(X)", "inst(X)","inst(X)" /)) 208 206 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 209 207 210 208 ! Fin Marine 211 209 212 TYPE(ctrl_out), SAVE :: o_flat = ctrl_out((/ 5, 1, 10, 10, 5, 10, 11, 11, 11 213 'flat', 'Latent heat flux', 'W/m2', (/ ('', i=1, 9) /))214 TYPE(ctrl_out), SAVE :: o_ptstar = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 215 'ptstar', 'Air Surface Temperature', 'K', (/ ('', i=1, 9) /))216 TYPE(ctrl_out), SAVE :: o_pt0 = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 217 'pt0', 'Standard Air Surface Temperature', 'K', (/ ('', i=1, 9) /))218 TYPE(ctrl_out), SAVE :: o_slp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 219 'slp', 'Sea Level Pressure', 'Pa', (/ ('', i=1, 9) /))220 TYPE(ctrl_out), SAVE :: o_tsol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 221 'tsol', 'Surface Temperature', 'K', (/ ('', i=1, 9) /))222 TYPE(ctrl_out), SAVE :: o_t2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 223 't2m', 'Temperature 2m', 'K', (/ ('', i=1, 9) /))224 TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11 210 TYPE(ctrl_out), SAVE :: o_flat = ctrl_out((/ 5, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 211 'flat', 'Latent heat flux', 'W/m2', (/ ('', i=1, 10) /)) 212 TYPE(ctrl_out), SAVE :: o_ptstar = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 213 'ptstar', 'Air Surface Temperature', 'K', (/ ('', i=1, 10) /)) 214 TYPE(ctrl_out), SAVE :: o_pt0 = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 215 'pt0', 'Standard Air Surface Temperature', 'K', (/ ('', i=1, 10) /)) 216 TYPE(ctrl_out), SAVE :: o_slp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 217 'slp', 'Sea Level Pressure', 'Pa', (/ ('', i=1, 10) /)) 218 TYPE(ctrl_out), SAVE :: o_tsol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 219 'tsol', 'Surface Temperature', 'K', (/ ('', i=1, 10) /)) 220 TYPE(ctrl_out), SAVE :: o_t2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 221 't2m', 'Temperature 2m', 'K', (/ ('', i=1, 10) /)) 222 TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 225 223 't2m_min', 'Temp 2m min', 'K', & 226 (/ "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)" /)) 227 TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11 /), & 224 (/ "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", & 225 "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)" /)) 226 TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 228 227 't2m_max', 'Temp 2m max', 'K', & 229 228 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 230 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /))231 232 TYPE(ctrl_out), SAVE :: o_t2m_min_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20 /), &229 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 230 231 TYPE(ctrl_out), SAVE :: o_t2m_min_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20, 20 /), & 233 232 't2m_min_mon', 'Monthly average min 2m temperature', 'K', & 234 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 235 TYPE(ctrl_out), SAVE :: o_t2m_max_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20 /), & 233 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 234 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 235 TYPE(ctrl_out), SAVE :: o_t2m_max_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20, 20 /), & 236 236 't2m_max_mon', 'Monthly average max 2m temperature', 'K', & 237 237 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 238 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))238 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 239 239 240 240 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_t2m_srf = (/ & 241 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 242 't2m_ter', "Temp 2m "//clnsurf(1), "K", (/ ('', i=1, 9) /)), &243 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 244 't2m_lic', "Temp 2m "//clnsurf(2), "K", (/ ('', i=1, 9) /)), &245 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 246 't2m_oce', "Temp 2m "//clnsurf(3), "K", (/ ('', i=1, 9) /)), &247 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 248 't2m_sic', "Temp 2m "//clnsurf(4), "K", (/ ('', i=1, 9) /)) /)249 250 TYPE(ctrl_out), SAVE :: o_gusts = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 251 'gusts', 'surface gustiness', 'm2/s2', (/ ('', i=1, 9) /))252 253 TYPE(ctrl_out), SAVE :: o_wind10m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 254 'wind10m', '10-m wind speed', 'm/s', (/ ('', i=1, 9) /))255 TYPE(ctrl_out), SAVE :: o_wind10max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 241 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 242 't2m_ter', "Temp 2m "//clnsurf(1), "K", (/ ('', i=1, 10) /)), & 243 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 244 't2m_lic', "Temp 2m "//clnsurf(2), "K", (/ ('', i=1, 10) /)), & 245 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 246 't2m_oce', "Temp 2m "//clnsurf(3), "K", (/ ('', i=1, 10) /)), & 247 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 248 't2m_sic', "Temp 2m "//clnsurf(4), "K", (/ ('', i=1, 10) /)) /) 249 250 TYPE(ctrl_out), SAVE :: o_gusts = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 251 'gusts', 'surface gustiness', 'm2/s2', (/ ('', i=1, 10) /)) 252 253 TYPE(ctrl_out), SAVE :: o_wind10m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 254 'wind10m', '10-m wind speed', 'm/s', (/ ('', i=1, 10) /)) 255 TYPE(ctrl_out), SAVE :: o_wind10max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 256 256 'wind10max', '10m wind speed max', 'm/s', & 257 257 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 258 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 259 TYPE(ctrl_out), SAVE :: o_sicf = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), & 260 'sicf', 'Sea-ice fraction', '-', (/ ('', i=1, 9) /)) 261 TYPE(ctrl_out), SAVE :: o_q2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 262 'q2m', 'Specific humidity 2m', 'kg/kg', (/ ('', i=1, 9) /)) 263 TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 /), & 264 'ustar', 'Friction velocity', 'm/s', (/ ('', i=1, 9) /)) 265 TYPE(ctrl_out), SAVE :: o_u10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 266 'u10m', 'Vent zonal 10m', 'm/s', (/ ('', i=1, 9) /)) 267 TYPE(ctrl_out), SAVE :: o_v10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 268 'v10m', 'Vent meridien 10m', 'm/s', (/ ('', i=1, 9) /)) 269 TYPE(ctrl_out), SAVE :: o_psol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 270 'psol', 'Surface Pressure', 'Pa', (/ ('', i=1, 9) /)) 271 TYPE(ctrl_out), SAVE :: o_qsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 272 'qsurf', 'Surface Air humidity', 'kg/kg', (/ ('', i=1, 9) /)) 258 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 259 260 TYPE(ctrl_out), SAVE :: o_sicf = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 261 'sicf', 'Sea-ice fraction', '-', (/ ('', i=1, 10) /)) 262 TYPE(ctrl_out), SAVE :: o_q2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 263 'q2m', 'Specific humidity 2m', 'kg/kg', (/ ('', i=1, 10) /)) 264 TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11, 11/), & 265 'ustar', 'Friction velocity', 'm/s', (/ ('', i=1, 10) /)) 266 TYPE(ctrl_out), SAVE :: o_u10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 267 'u10m', 'Vent zonal 10m', 'm/s', (/ ('', i=1, 10) /)) 268 TYPE(ctrl_out), SAVE :: o_v10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 269 'v10m', 'Vent meridien 10m', 'm/s', (/ ('', i=1, 10) /)) 270 TYPE(ctrl_out), SAVE :: o_psol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 271 'psol', 'Surface Pressure', 'Pa', (/ ('', i=1, 10) /)) 272 TYPE(ctrl_out), SAVE :: o_qsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 273 'qsurf', 'Surface Air humidity', 'kg/kg', (/ ('', i=1, 10) /)) 273 274 274 275 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_ustar_srf = (/ & 275 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 276 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &277 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 278 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &279 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 280 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &281 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 282 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)276 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_ter', & 277 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 278 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_lic', & 279 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 280 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_oce', & 281 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 282 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_sic', & 283 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 283 284 284 285 TYPE(ctrl_out), SAVE, DIMENSION(5) :: o_wstar = (/ & 285 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 286 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &287 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 288 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &289 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 290 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &291 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 292 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)), &293 ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11 294 "w* convective velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)286 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_ter', & 287 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 288 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_lic', & 289 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 290 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_oce', & 291 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 292 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_sic', & 293 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)), & 294 ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar', & 295 "w* convective velocity "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 295 296 296 297 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10m_srf = (/ & 297 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 298 "Vent Zonal 10m "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &299 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 300 "Vent Zonal 10m "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &301 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 302 "Vent Zonal 10m "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &303 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 304 "Vent Zonal 10m "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)298 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_ter', & 299 "Vent Zonal 10m "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 300 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_lic', & 301 "Vent Zonal 10m "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 302 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_oce', & 303 "Vent Zonal 10m "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 304 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_sic', & 305 "Vent Zonal 10m "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 305 306 306 307 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_v10m_srf = (/ & 307 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 308 "Vent meredien 10m "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &309 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 310 "Vent meredien 10m "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &311 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 312 "Vent meredien 10m "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &313 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 314 "Vent meredien 10m "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)315 316 TYPE(ctrl_out), SAVE :: o_qsol = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 317 'qsol', 'Soil watter content', 'mm', (/ ('', i=1, 9) /))318 TYPE(ctrl_out), SAVE :: o_ndayrain = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 308 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_ter', & 309 "Vent meredien 10m "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 310 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_lic', & 311 "Vent meredien 10m "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 312 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_oce', & 313 "Vent meredien 10m "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 314 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_sic', & 315 "Vent meredien 10m "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 316 317 TYPE(ctrl_out), SAVE :: o_qsol = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 318 'qsol', 'Soil watter content', 'mm', (/ ('', i=1, 10) /)) 319 TYPE(ctrl_out), SAVE :: o_ndayrain = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 319 320 'ndayrain', 'Number of dayrain(liq+sol)', '-', & 320 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))321 TYPE(ctrl_out), SAVE :: o_precip = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11 322 'precip', 'Precip Totale liq+sol', 'kg/(s*m2)', (/ ('', i=1, 9) /))323 TYPE(ctrl_out), SAVE :: o_plul = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 324 'plul', 'Large-scale Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))325 TYPE(ctrl_out), SAVE :: o_plun = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 326 'plun', 'Numerical Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))327 TYPE(ctrl_out), SAVE :: o_pluc = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11 328 'pluc', 'Convective Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))329 TYPE(ctrl_out), SAVE :: o_snow = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 330 'snow', 'Snow fall', 'kg/(s*m2)', (/ ('', i=1, 9) /))331 TYPE(ctrl_out), SAVE :: o_evap = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 332 'evap', 'Evaporat', 'kg/(s*m2)', (/ ('', i=1, 9) /))333 334 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 335 'sens_rain_oce', 'Sensible heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))336 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 337 'sens_rain_sic', 'Sensible heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))338 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 339 'sens_snow_oce', 'Sensible heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))340 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 341 'sens_snow_sic', 'Sensible heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))342 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 343 'lat_rain_oce', 'Latent heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))344 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 345 'lat_rain_sic', 'Latent heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))346 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 347 'lat_snow_oce', 'Latent heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))348 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 349 'lat_snow_sic', 'Latent heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))321 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 322 TYPE(ctrl_out), SAVE :: o_precip = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11, 11/), & 323 'precip', 'Precip Totale liq+sol', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 324 TYPE(ctrl_out), SAVE :: o_plul = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 325 'plul', 'Large-scale Precip.', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 326 TYPE(ctrl_out), SAVE :: o_plun = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 327 'plun', 'Numerical Precip.', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 328 TYPE(ctrl_out), SAVE :: o_pluc = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11, 11/), & 329 'pluc', 'Convective Precip.', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 330 TYPE(ctrl_out), SAVE :: o_snow = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 331 'snow', 'Snow fall', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 332 TYPE(ctrl_out), SAVE :: o_evap = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 333 'evap', 'Evaporat', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 334 335 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 336 'sens_rain_oce', 'Sensible heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 337 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 338 'sens_rain_sic', 'Sensible heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 339 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 340 'sens_snow_oce', 'Sensible heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 341 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 342 'sens_snow_sic', 'Sensible heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 343 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 344 'lat_rain_oce', 'Latent heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 345 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 346 'lat_rain_sic', 'Latent heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 347 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 348 'lat_snow_oce', 'Latent heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 349 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 350 'lat_snow_sic', 'Latent heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 350 351 351 352 352 353 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_evap_srf = (/ & 353 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 354 "evaporation at surface "//clnsurf(1),"kg/(s*m2)", (/ ('', i=1, 9) /)), &355 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 356 "evaporation at surface "//clnsurf(2),"kg/(s*m2)", (/ ('', i=1, 9) /)), &357 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 358 "evaporation at surface "//clnsurf(3),"kg/(s*m2)", (/ ('', i=1, 9) /)), &359 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 360 "evaporation at surface "//clnsurf(4),"kg/(s*m2)", (/ ('', i=1, 9) /)) /)361 362 TYPE(ctrl_out), SAVE :: o_msnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 363 'msnow', 'Surface snow amount', 'kg/m2', (/ ('', i=1, 9) /))364 TYPE(ctrl_out), SAVE :: o_fsnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 365 'fsnow', 'Surface snow area fraction', '-', (/ ('', i=1, 9) /))366 TYPE(ctrl_out), SAVE :: o_tops = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 367 'tops', 'Solar rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))368 TYPE(ctrl_out), SAVE :: o_tops0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 369 'tops0', 'CS Solar rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))370 TYPE(ctrl_out), SAVE :: o_topl = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 371 'topl', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))372 TYPE(ctrl_out), SAVE :: o_topl0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 373 'topl0', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))374 TYPE(ctrl_out), SAVE :: o_SWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 375 'SWupTOA', 'SWup at TOA', 'W/m2', (/ ('', i=1, 9) /))376 TYPE(ctrl_out), SAVE :: o_SWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 377 'SWupTOAclr', 'SWup clear sky at TOA', 'W/m2', (/ ('', i=1, 9) /))378 TYPE(ctrl_out), SAVE :: o_SWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 379 'SWdnTOA', 'SWdn at TOA', 'W/m2', (/ ('', i=1, 9) /))380 TYPE(ctrl_out), SAVE :: o_SWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 381 'SWdnTOAclr', 'SWdn clear sky at TOA', 'W/m2', (/ ('', i=1, 9) /))382 TYPE(ctrl_out), SAVE :: o_nettop = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 383 'nettop', 'Net dn radiatif flux at TOA', 'W/m2', (/ ('', i=1, 9) /))384 TYPE(ctrl_out), SAVE :: o_SWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 385 'SWup200', 'SWup at 200mb', 'W/m2', (/ ('', i=1, 9) /))386 TYPE(ctrl_out), SAVE :: o_SWup200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 387 'SWup200clr', 'SWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))388 TYPE(ctrl_out), SAVE :: o_SWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 389 'SWdn200', 'SWdn at 200mb', 'W/m2', (/ ('', i=1, 9) /))390 TYPE(ctrl_out), SAVE :: o_SWdn200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 391 'SWdn200clr', 'SWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))354 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_ter', & 355 "evaporation at surface "//clnsurf(1),"kg/(s*m2)", (/ ('', i=1, 10) /)), & 356 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_lic', & 357 "evaporation at surface "//clnsurf(2),"kg/(s*m2)", (/ ('', i=1, 10) /)), & 358 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_oce', & 359 "evaporation at surface "//clnsurf(3),"kg/(s*m2)", (/ ('', i=1, 10) /)), & 360 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_sic', & 361 "evaporation at surface "//clnsurf(4),"kg/(s*m2)", (/ ('', i=1, 10) /)) /) 362 363 TYPE(ctrl_out), SAVE :: o_msnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 364 'msnow', 'Surface snow amount', 'kg/m2', (/ ('', i=1, 10) /)) 365 TYPE(ctrl_out), SAVE :: o_fsnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 366 'fsnow', 'Surface snow area fraction', '-', (/ ('', i=1, 10) /)) 367 TYPE(ctrl_out), SAVE :: o_tops = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 368 'tops', 'Solar rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 369 TYPE(ctrl_out), SAVE :: o_tops0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 370 'tops0', 'CS Solar rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 371 TYPE(ctrl_out), SAVE :: o_topl = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11, 11/), & 372 'topl', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 373 TYPE(ctrl_out), SAVE :: o_topl0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 374 'topl0', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 375 TYPE(ctrl_out), SAVE :: o_SWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 376 'SWupTOA', 'SWup at TOA', 'W/m2', (/ ('', i=1, 10) /)) 377 TYPE(ctrl_out), SAVE :: o_SWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 378 'SWupTOAclr', 'SWup clear sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 379 TYPE(ctrl_out), SAVE :: o_SWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 380 'SWdnTOA', 'SWdn at TOA', 'W/m2', (/ ('', i=1, 10) /)) 381 TYPE(ctrl_out), SAVE :: o_SWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 382 'SWdnTOAclr', 'SWdn clear sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 383 TYPE(ctrl_out), SAVE :: o_nettop = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 384 'nettop', 'Net dn radiatif flux at TOA', 'W/m2', (/ ('', i=1, 10) /)) 385 TYPE(ctrl_out), SAVE :: o_SWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 386 'SWup200', 'SWup at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 387 TYPE(ctrl_out), SAVE :: o_SWup200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 388 'SWup200clr', 'SWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 389 TYPE(ctrl_out), SAVE :: o_SWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 390 'SWdn200', 'SWdn at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 391 TYPE(ctrl_out), SAVE :: o_SWdn200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 392 'SWdn200clr', 'SWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 392 393 393 394 ! arajouter 394 ! type(ctrl_out),save :: o_LWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 395 ! (/ ('', i=1, 9) /))396 ! type(ctrl_out),save :: o_LWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 397 ! (/ ('', i=1, 9) /))398 ! type(ctrl_out),save :: o_LWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 399 ! (/ ('', i=1, 9) /))400 ! type(ctrl_out),save :: o_LWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 401 ! (/ ('', i=1, 9) /))402 TYPE(ctrl_out), SAVE :: o_LWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 403 'LWup200', 'LWup at 200mb', 'W/m2', (/ ('', i=1, 9) /))404 TYPE(ctrl_out), SAVE :: o_LWup200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 405 'LWup200clr', 'LWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))406 TYPE(ctrl_out), SAVE :: o_LWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 407 'LWdn200', 'LWdn at 200mb', 'W/m2', (/ ('', i=1, 9) /))408 TYPE(ctrl_out), SAVE :: o_LWdn200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 409 'LWdn200clr', 'LWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))410 TYPE(ctrl_out), SAVE :: o_sols = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 411 'sols', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 9) /))412 TYPE(ctrl_out), SAVE :: o_sols0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 413 'sols0', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 9) /))414 TYPE(ctrl_out), SAVE :: o_soll = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 415 'soll', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))416 TYPE(ctrl_out), SAVE :: o_soll0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 417 'soll0', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))418 TYPE(ctrl_out), SAVE :: o_radsol = ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 419 'radsol', 'Rayonnement au sol', 'W/m2', (/ ('', i=1, 9) /))420 TYPE(ctrl_out), SAVE :: o_SWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 421 'SWupSFC', 'SWup at surface', 'W/m2', (/ ('', i=1, 9) /))422 TYPE(ctrl_out), SAVE :: o_SWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 423 'SWupSFCclr', 'SWup clear sky at surface', 'W/m2', (/ ('', i=1, 9) /))424 TYPE(ctrl_out), SAVE :: o_SWdnSFC = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 425 'SWdnSFC', 'SWdn at surface', 'W/m2', (/ ('', i=1, 9) /))426 TYPE(ctrl_out), SAVE :: o_SWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 427 'SWdnSFCclr', 'SWdn clear sky at surface', 'W/m2', (/ ('', i=1, 9) /))428 TYPE(ctrl_out), SAVE :: o_LWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 429 'LWupSFC', 'Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))430 TYPE(ctrl_out), SAVE :: o_LWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 431 'LWupSFCclr', 'CS Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))432 TYPE(ctrl_out), SAVE :: o_LWdnSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 433 'LWdnSFC', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))434 TYPE(ctrl_out), SAVE :: o_LWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 435 'LWdnSFCclr', 'Down. CS IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))436 TYPE(ctrl_out), SAVE :: o_bils = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 437 'bils', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))438 TYPE(ctrl_out), SAVE :: o_bils_tke = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 439 'bils_tke', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))440 TYPE(ctrl_out), SAVE :: o_bils_diss = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 441 'bils_diss', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))442 TYPE(ctrl_out), SAVE :: o_bils_ec = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 443 'bils_ec', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 9) /))444 TYPE(ctrl_out), SAVE :: o_bils_ech = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 445 'bils_ech', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 9) /))446 TYPE(ctrl_out), SAVE :: o_bils_kinetic = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 447 'bils_kinetic', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))448 TYPE(ctrl_out), SAVE :: o_bils_enthalp = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 449 'bils_enthalp', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))450 TYPE(ctrl_out), SAVE :: o_bils_latent = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 451 'bils_latent', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))452 TYPE(ctrl_out), SAVE :: o_sens = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 453 'sens', 'Sensible heat flux', 'W/m2', (/ ('', i=1, 9) /))454 TYPE(ctrl_out), SAVE :: o_fder = ctrl_out((/ 1, 2, 10, 10, 10, 10, 11, 11, 11 455 'fder', 'Heat flux derivation', 'W/m2', (/ ('', i=1, 9) /))456 TYPE(ctrl_out), SAVE :: o_ffonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 457 'ffonte', 'Thermal flux for snow melting', 'W/m2', (/ ('', i=1, 9) /))458 TYPE(ctrl_out), SAVE :: o_fqcalving = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 459 'fqcalving', 'Ice Calving', 'kg/m2/s', (/ ('', i=1, 9) /))460 TYPE(ctrl_out), SAVE :: o_fqfonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 461 'fqfonte', 'Land ice melt', 'kg/m2/s', (/ ('', i=1, 9) /))462 TYPE(ctrl_out), SAVE :: o_runofflic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 463 'runofflic', 'Land ice melt to ocean', 'kg/m2/s', (/ ('', i=1, 9) /))464 TYPE(ctrl_out), SAVE :: o_taux = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 465 'taux', 'Zonal wind stress', 'Pa', (/ ('', i=1, 9) /))466 TYPE(ctrl_out), SAVE :: o_tauy = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 467 'tauy', 'Meridional wind stress', 'Pa', (/ ('', i=1, 9) /))395 ! type(ctrl_out),save :: o_LWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWupTOA', & 396 ! (/ ('', i=1, 10) /)) 397 ! type(ctrl_out),save :: o_LWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWupTOAclr', & 398 ! (/ ('', i=1, 10) /)) 399 ! type(ctrl_out),save :: o_LWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWdnTOA', & 400 ! (/ ('', i=1, 10) /)) 401 ! type(ctrl_out),save :: o_LWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWdnTOAclr', & 402 ! (/ ('', i=1, 10) /)) 403 TYPE(ctrl_out), SAVE :: o_LWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 404 'LWup200', 'LWup at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 405 TYPE(ctrl_out), SAVE :: o_LWup200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 406 'LWup200clr', 'LWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 407 TYPE(ctrl_out), SAVE :: o_LWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 408 'LWdn200', 'LWdn at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 409 TYPE(ctrl_out), SAVE :: o_LWdn200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 410 'LWdn200clr', 'LWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 411 TYPE(ctrl_out), SAVE :: o_sols = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 412 'sols', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 10) /)) 413 TYPE(ctrl_out), SAVE :: o_sols0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 414 'sols0', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 10) /)) 415 TYPE(ctrl_out), SAVE :: o_soll = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 416 'soll', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 417 TYPE(ctrl_out), SAVE :: o_soll0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 418 'soll0', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 419 TYPE(ctrl_out), SAVE :: o_radsol = ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/), & 420 'radsol', 'Rayonnement au sol', 'W/m2', (/ ('', i=1, 10) /)) 421 TYPE(ctrl_out), SAVE :: o_SWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 422 'SWupSFC', 'SWup at surface', 'W/m2', (/ ('', i=1, 10) /)) 423 TYPE(ctrl_out), SAVE :: o_SWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 424 'SWupSFCclr', 'SWup clear sky at surface', 'W/m2', (/ ('', i=1, 10) /)) 425 TYPE(ctrl_out), SAVE :: o_SWdnSFC = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 426 'SWdnSFC', 'SWdn at surface', 'W/m2', (/ ('', i=1, 10) /)) 427 TYPE(ctrl_out), SAVE :: o_SWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 428 'SWdnSFCclr', 'SWdn clear sky at surface', 'W/m2', (/ ('', i=1, 10) /)) 429 TYPE(ctrl_out), SAVE :: o_LWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 430 'LWupSFC', 'Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 431 TYPE(ctrl_out), SAVE :: o_LWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 432 'LWupSFCclr', 'CS Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 433 TYPE(ctrl_out), SAVE :: o_LWdnSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 434 'LWdnSFC', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 435 TYPE(ctrl_out), SAVE :: o_LWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 436 'LWdnSFCclr', 'Down. CS IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 437 TYPE(ctrl_out), SAVE :: o_bils = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 438 'bils', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 439 TYPE(ctrl_out), SAVE :: o_bils_tke = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 440 'bils_tke', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 441 TYPE(ctrl_out), SAVE :: o_bils_diss = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 442 'bils_diss', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 443 TYPE(ctrl_out), SAVE :: o_bils_ec = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 444 'bils_ec', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 10) /)) 445 TYPE(ctrl_out), SAVE :: o_bils_ech = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 446 'bils_ech', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 10) /)) 447 TYPE(ctrl_out), SAVE :: o_bils_kinetic = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 448 'bils_kinetic', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 449 TYPE(ctrl_out), SAVE :: o_bils_enthalp = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 450 'bils_enthalp', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 451 TYPE(ctrl_out), SAVE :: o_bils_latent = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 452 'bils_latent', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 453 TYPE(ctrl_out), SAVE :: o_sens = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 454 'sens', 'Sensible heat flux', 'W/m2', (/ ('', i=1, 10) /)) 455 TYPE(ctrl_out), SAVE :: o_fder = ctrl_out((/ 1, 2, 10, 10, 10, 10, 11, 11, 11, 11/), & 456 'fder', 'Heat flux derivation', 'W/m2', (/ ('', i=1, 10) /)) 457 TYPE(ctrl_out), SAVE :: o_ffonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 458 'ffonte', 'Thermal flux for snow melting', 'W/m2', (/ ('', i=1, 10) /)) 459 TYPE(ctrl_out), SAVE :: o_fqcalving = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 460 'fqcalving', 'Ice Calving', 'kg/m2/s', (/ ('', i=1, 10) /)) 461 TYPE(ctrl_out), SAVE :: o_fqfonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 462 'fqfonte', 'Land ice melt', 'kg/m2/s', (/ ('', i=1, 10) /)) 463 TYPE(ctrl_out), SAVE :: o_runofflic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 464 'runofflic', 'Land ice melt to ocean', 'kg/m2/s', (/ ('', i=1, 10) /)) 465 TYPE(ctrl_out), SAVE :: o_taux = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 466 'taux', 'Zonal wind stress', 'Pa', (/ ('', i=1, 10) /)) 467 TYPE(ctrl_out), SAVE :: o_tauy = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 468 'tauy', 'Meridional wind stress', 'Pa', (/ ('', i=1, 10) /)) 468 469 469 470 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_taux_srf = (/ & 470 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 471 "Zonal wind stress"//clnsurf(1), "Pa", (/ ('', i=1, 9) /)), &472 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 473 "Zonal wind stress"//clnsurf(2), "Pa", (/ ('', i=1, 9) /)), &474 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 475 "Zonal wind stress"//clnsurf(3), "Pa", (/ ('', i=1, 9) /)), &476 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 477 "Zonal wind stress"//clnsurf(4), "Pa", (/ ('', i=1, 9) /)) /)471 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_ter', & 472 "Zonal wind stress"//clnsurf(1), "Pa", (/ ('', i=1, 10) /)), & 473 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_lic', & 474 "Zonal wind stress"//clnsurf(2), "Pa", (/ ('', i=1, 10) /)), & 475 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_oce', & 476 "Zonal wind stress"//clnsurf(3), "Pa", (/ ('', i=1, 10) /)), & 477 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_sic', & 478 "Zonal wind stress"//clnsurf(4), "Pa", (/ ('', i=1, 10) /)) /) 478 479 479 480 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tauy_srf = (/ & 480 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 481 "Meridional wind stress "//clnsurf(1),"Pa", (/ ('', i=1, 9) /)), &482 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 483 "Meridional wind stress "//clnsurf(2),"Pa", (/ ('', i=1, 9) /)), &484 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 485 "Meridional wind stress "//clnsurf(3),"Pa", (/ ('', i=1, 9) /)), &486 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 487 "Meridional wind stress "//clnsurf(4),"Pa", (/ ('', i=1, 9) /)) /)481 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_ter', & 482 "Meridional wind stress "//clnsurf(1),"Pa", (/ ('', i=1, 10) /)), & 483 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_lic', & 484 "Meridional wind stress "//clnsurf(2),"Pa", (/ ('', i=1, 10) /)), & 485 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_oce', & 486 "Meridional wind stress "//clnsurf(3),"Pa", (/ ('', i=1, 10) /)), & 487 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_sic', & 488 "Meridional wind stress "//clnsurf(4),"Pa", (/ ('', i=1, 10) /)) /) 488 489 489 490 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_pourc_srf = (/ & 490 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 491 "% "//clnsurf(1),"%", (/ ('', i=1, 9) /)), &492 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 493 "% "//clnsurf(2),"%", (/ ('', i=1, 9) /)), &494 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 495 "% "//clnsurf(3),"%", (/ ('', i=1, 9) /)), &496 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 497 "% "//clnsurf(4),"%", (/ ('', i=1, 9) /)) /)491 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_ter', & 492 "% "//clnsurf(1),"%", (/ ('', i=1, 10) /)), & 493 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_lic', & 494 "% "//clnsurf(2),"%", (/ ('', i=1, 10) /)), & 495 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_oce', & 496 "% "//clnsurf(3),"%", (/ ('', i=1, 10) /)), & 497 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_sic', & 498 "% "//clnsurf(4),"%", (/ ('', i=1, 10) /)) /) 498 499 499 500 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_fract_srf = (/ & 500 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 501 "Fraction "//clnsurf(1),"1", (/ ('', i=1, 9) /)), &502 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 503 "Fraction "//clnsurf(2),"1", (/ ('', i=1, 9) /)), &504 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 505 "Fraction "//clnsurf(3),"1", (/ ('', i=1, 9) /)), &506 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 507 "Fraction "//clnsurf(4),"1", (/ ('', i=1, 9) /)) /)501 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_ter', & 502 "Fraction "//clnsurf(1),"1", (/ ('', i=1, 10) /)), & 503 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_lic', & 504 "Fraction "//clnsurf(2),"1", (/ ('', i=1, 10) /)), & 505 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_oce', & 506 "Fraction "//clnsurf(3),"1", (/ ('', i=1, 10) /)), & 507 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_sic', & 508 "Fraction "//clnsurf(4),"1", (/ ('', i=1, 10) /)) /) 508 509 509 510 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tsol_srf = (/ & 510 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 511 "Temperature "//clnsurf(1),"K", (/ ('', i=1, 9) /)), &512 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 513 "Temperature "//clnsurf(2),"K", (/ ('', i=1, 9) /)), &514 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 515 "Temperature "//clnsurf(3),"K", (/ ('', i=1, 9) /)), &516 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 517 "Temperature "//clnsurf(4),"K", (/ ('', i=1, 9) /)) /)511 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_ter', & 512 "Temperature "//clnsurf(1),"K", (/ ('', i=1, 10) /)), & 513 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_lic', & 514 "Temperature "//clnsurf(2),"K", (/ ('', i=1, 10) /)), & 515 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_oce', & 516 "Temperature "//clnsurf(3),"K", (/ ('', i=1, 10) /)), & 517 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_sic', & 518 "Temperature "//clnsurf(4),"K", (/ ('', i=1, 10) /)) /) 518 519 519 520 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_evappot_srf = (/ & 520 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 521 "Temperature"//clnsurf(1),"K", (/ ('', i=1, 9) /)), &522 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 523 "Temperature"//clnsurf(2),"K", (/ ('', i=1, 9) /)), &524 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 525 "Temperature"//clnsurf(3),"K", (/ ('', i=1, 9) /)), &526 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 527 "Temperature"//clnsurf(4),"K", (/ ('', i=1, 9) /)) /)521 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_ter', & 522 "Temperature"//clnsurf(1),"K", (/ ('', i=1, 10) /)), & 523 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_lic', & 524 "Temperature"//clnsurf(2),"K", (/ ('', i=1, 10) /)), & 525 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_oce', & 526 "Temperature"//clnsurf(3),"K", (/ ('', i=1, 10) /)), & 527 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_sic', & 528 "Temperature"//clnsurf(4),"K", (/ ('', i=1, 10) /)) /) 528 529 529 530 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_sens_srf = (/ & 530 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 531 "Sensible heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &532 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 533 "Sensible heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &534 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 535 "Sensible heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &536 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 537 "Sensible heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)531 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_ter', & 532 "Sensible heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 533 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_lic', & 534 "Sensible heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 535 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_oce', & 536 "Sensible heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 537 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_sic', & 538 "Sensible heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 538 539 539 540 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_lat_srf = (/ & 540 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 541 "Latent heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &542 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 543 "Latent heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &544 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 545 "Latent heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &546 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 547 "Latent heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)541 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_ter', & 542 "Latent heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 543 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_lic', & 544 "Latent heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 545 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_oce', & 546 "Latent heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 547 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_sic', & 548 "Latent heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 548 549 549 550 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_flw_srf = (/ & 550 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 551 "LW "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &552 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 553 "LW "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &554 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 555 "LW "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &556 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 557 "LW "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)551 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_ter', & 552 "LW "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 553 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_lic', & 554 "LW "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 555 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_oce', & 556 "LW "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 557 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_sic', & 558 "LW "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 558 559 559 560 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_fsw_srf = (/ & 560 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 561 "SW "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &562 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 563 "SW "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &564 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 565 "SW "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &566 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 567 "SW "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)561 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_ter', & 562 "SW "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 563 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_lic', & 564 "SW "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 565 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_oce', & 566 "SW "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 567 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_sic', & 568 "SW "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 568 569 569 570 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wbils_srf = (/ & 570 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 571 "Bilan sol "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &572 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 573 "Bilan sol "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &574 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 575 "Bilan sol "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &576 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 577 "Bilan sol "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)571 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_ter', & 572 "Bilan sol "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 573 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_lic', & 574 "Bilan sol "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 575 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_oce', & 576 "Bilan sol "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 577 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_sic', & 578 "Bilan sol "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 578 579 579 580 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wbilo_srf = (/ & 580 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 581 "Bilan eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &582 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 583 "Bilan eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &584 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 585 "Bilan eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &586 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 587 "Bilan eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)581 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_ter', & 582 "Bilan eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 583 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_lic', & 584 "Bilan eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 585 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_oce', & 586 "Bilan eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 587 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_sic', & 588 "Bilan eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 588 589 589 590 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wevap_srf = (/ & 590 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 591 "Evap eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &592 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 593 "Evap eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &594 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 595 "Evap eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &596 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 597 "Evap eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)591 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_ter', & 592 "Evap eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 593 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_lic', & 594 "Evap eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 595 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_oce', & 596 "Evap eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 597 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_sic', & 598 "Evap eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 598 599 599 600 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wrain_srf = (/ & 600 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 601 "Pluie eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &602 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 603 "Pluie eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &604 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 605 "Pluie eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &606 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 607 "Pluie eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)601 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_ter', & 602 "Pluie eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 603 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_lic', & 604 "Pluie eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 605 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_oce', & 606 "Pluie eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 607 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_sic', & 608 "Pluie eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 608 609 609 610 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wsnow_srf = (/ & 610 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 611 "Neige eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &612 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 613 "Neige eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &614 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 615 "Neige eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &616 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 617 "Neige eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)618 619 TYPE(ctrl_out), SAVE :: o_cdrm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 620 'cdrm', 'Momentum drag coef.', '-', (/ ('', i=1, 9) /))621 TYPE(ctrl_out), SAVE :: o_cdrh = ctrl_out((/ 1, 10, 10, 7, 10, 10, 11, 11, 11 622 'cdrh', 'Heat drag coef.', '-', (/ ('', i=1, 9) /))623 TYPE(ctrl_out), SAVE :: o_cldl = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 624 'cldl', 'Low-level cloudiness', '-', (/ ('', i=1, 9) /))625 TYPE(ctrl_out), SAVE :: o_cldm = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 626 'cldm', 'Mid-level cloudiness', '-', (/ ('', i=1, 9) /))627 TYPE(ctrl_out), SAVE :: o_cldh = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 628 'cldh', 'High-level cloudiness', '-', (/ ('', i=1, 9) /))629 TYPE(ctrl_out), SAVE :: o_cldt = ctrl_out((/ 1, 1, 2, 10, 5, 10, 11, 11, 11 630 'cldt', 'Total cloudiness', '-', (/ ('', i=1, 9) /))631 TYPE(ctrl_out), SAVE :: o_JrNt = ctrl_out((/ 1, 1, 10, 7, 10, 10, 11, 11, 11 632 'JrNt', '1 if Day 0 if Night', '-', (/ ('', i=1, 9) /))633 TYPE(ctrl_out), SAVE :: o_cldhjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 634 'cldhjn', 'High-level cloudiness Day', '-', (/ ('', i=1, 9) /))635 TYPE(ctrl_out), SAVE :: o_cldmjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &636 'cldmjn', 'Mid-level cloudiness day', '-', (/ ('', i=1, 9) /))637 TYPE(ctrl_out), SAVE :: o_cldljn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &638 'cldljn', 'Low-level cloudiness day', '-', (/ ('', i=1, 9) /))639 TYPE(ctrl_out), SAVE :: o_cldtjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &640 'cldtjn', 'Total cloudiness day', '-', (/ ('', i=1, 9) /))641 642 TYPE(ctrl_out), SAVE :: o_cldq = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 643 'cldq', 'Cloud liquid water path', 'kg/m2', (/ ('', i=1, 9) /))644 TYPE(ctrl_out), SAVE :: o_lwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 645 'lwp', 'Cloud water path', 'kg/m2', (/ ('', i=1, 9) /))646 TYPE(ctrl_out), SAVE :: o_iwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 647 'iwp', 'Cloud ice water path', 'kg/m2', (/ ('', i=1, 9) /))648 TYPE(ctrl_out), SAVE :: o_ue = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 649 'ue', 'Zonal energy transport', '-', (/ ('', i=1, 9) /))650 TYPE(ctrl_out), SAVE :: o_ve = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 651 've', 'Merid energy transport', '-', (/ ('', i=1, 9) /))652 TYPE(ctrl_out), SAVE :: o_uq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 653 'uq', 'Zonal humidity transport', '-', (/ ('', i=1, 9) /))654 TYPE(ctrl_out), SAVE :: o_vq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 655 'vq', 'Merid humidity transport', '-', (/ ('', i=1, 9) /))656 TYPE(ctrl_out), SAVE :: o_cape = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 657 'cape', 'Conv avlbl pot ener', 'J/kg', (/ ('', i=1, 9) /))658 TYPE(ctrl_out), SAVE :: o_pbase = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 659 'pbase', 'Cld base pressure', 'Pa', (/ ('', i=1, 9) /))660 TYPE(ctrl_out), SAVE :: o_ptop = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 661 'ptop', 'Cld top pressure', 'Pa', (/ ('', i=1, 9) /))662 TYPE(ctrl_out), SAVE :: o_fbase = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 663 'fbase', 'Cld base mass flux', 'kg/m2/s', (/ ('', i=1, 9) /))664 TYPE(ctrl_out), SAVE :: o_plcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 665 'plcl', 'Lifting Condensation Level', 'hPa', (/ ('', i=1, 9) /))666 TYPE(ctrl_out), SAVE :: o_plfc = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 667 'plfc', 'Level of Free Convection', 'hPa', (/ ('', i=1, 9) /))668 TYPE(ctrl_out), SAVE :: o_wbeff = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 669 'wbeff', 'Conv. updraft velocity at LFC (<100)', 'm/s', (/ ('', i=1, 9) /))670 TYPE(ctrl_out), SAVE :: o_prw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 671 'prw', 'Precipitable water', 'kg/m2', (/ ('', i=1, 9) /))672 TYPE(ctrl_out), SAVE :: o_prlw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 673 'prlw', 'Precipitable liquid water', 'kg/m2', (/ ('', i=1, 9) /))674 TYPE(ctrl_out), SAVE :: o_prsw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 675 'prsw', 'Precipitable solid water', 'kg/m2', (/ ('', i=1, 9) /))676 TYPE(ctrl_out), SAVE :: o_s_pblh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 677 's_pblh', 'Boundary Layer Height', 'm', (/ ('', i=1, 9) /))678 TYPE(ctrl_out), SAVE :: o_s_pblt = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 679 's_pblt', 't at Boundary Layer Height', 'K', (/ ('', i=1, 9) /))680 TYPE(ctrl_out), SAVE :: o_s_lcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 681 's_lcl', 'Condensation level', 'm', (/ ('', i=1, 9) /))682 TYPE(ctrl_out), SAVE :: o_s_therm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 683 's_therm', 'Exces du thermique', 'K', (/ ('', i=1, 9) /))611 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_ter', & 612 "Neige eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 613 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_lic', & 614 "Neige eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 615 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_oce', & 616 "Neige eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 617 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_sic', & 618 "Neige eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 619 620 TYPE(ctrl_out), SAVE :: o_cdrm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 621 'cdrm', 'Momentum drag coef.', '-', (/ ('', i=1, 10) /)) 622 TYPE(ctrl_out), SAVE :: o_cdrh = ctrl_out((/ 1, 10, 10, 7, 10, 10, 11, 11, 11, 11/), & 623 'cdrh', 'Heat drag coef.', '-', (/ ('', i=1, 10) /)) 624 TYPE(ctrl_out), SAVE :: o_cldl = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 625 'cldl', 'Low-level cloudiness', '-', (/ ('', i=1, 10) /)) 626 TYPE(ctrl_out), SAVE :: o_cldm = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 627 'cldm', 'Mid-level cloudiness', '-', (/ ('', i=1, 10) /)) 628 TYPE(ctrl_out), SAVE :: o_cldh = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 629 'cldh', 'High-level cloudiness', '-', (/ ('', i=1, 10) /)) 630 TYPE(ctrl_out), SAVE :: o_cldt = ctrl_out((/ 1, 1, 2, 10, 5, 10, 11, 11, 11, 11/), & 631 'cldt', 'Total cloudiness', '-', (/ ('', i=1, 10) /)) 632 TYPE(ctrl_out), SAVE :: o_JrNt = ctrl_out((/ 1, 1, 10, 7, 10, 10, 11, 11, 11, 11/), & 633 'JrNt', '1 if Day 0 if Night', '-', (/ ('', i=1, 10) /)) 634 TYPE(ctrl_out), SAVE :: o_cldhjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 635 'cldhjn', 'High-level cloudiness Day', '-', (/ ('', i=1, 10) /)) 636 TYPE(ctrl_out), SAVE :: o_cldmjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 637 'cldmjn', 'Mid-level cloudiness day', '-', (/ ('', i=1, 10) /)) 638 TYPE(ctrl_out), SAVE :: o_cldljn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 639 'cldljn', 'Low-level cloudiness day', '-', (/ ('', i=1, 10) /)) 640 TYPE(ctrl_out), SAVE :: o_cldtjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 641 'cldtjn', 'Total cloudiness day', '-', (/ ('', i=1, 10) /)) 642 643 TYPE(ctrl_out), SAVE :: o_cldq = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 644 'cldq', 'Cloud liquid water path', 'kg/m2', (/ ('', i=1, 10) /)) 645 TYPE(ctrl_out), SAVE :: o_lwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 646 'lwp', 'Cloud water path', 'kg/m2', (/ ('', i=1, 10) /)) 647 TYPE(ctrl_out), SAVE :: o_iwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 648 'iwp', 'Cloud ice water path', 'kg/m2', (/ ('', i=1, 10) /)) 649 TYPE(ctrl_out), SAVE :: o_ue = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 650 'ue', 'Zonal energy transport', '-', (/ ('', i=1, 10) /)) 651 TYPE(ctrl_out), SAVE :: o_ve = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 652 've', 'Merid energy transport', '-', (/ ('', i=1, 10) /)) 653 TYPE(ctrl_out), SAVE :: o_uq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 654 'uq', 'Zonal humidity transport', '-', (/ ('', i=1, 10) /)) 655 TYPE(ctrl_out), SAVE :: o_vq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 656 'vq', 'Merid humidity transport', '-', (/ ('', i=1, 10) /)) 657 TYPE(ctrl_out), SAVE :: o_cape = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 658 'cape', 'Conv avlbl pot ener', 'J/kg', (/ ('', i=1, 10) /)) 659 TYPE(ctrl_out), SAVE :: o_pbase = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 660 'pbase', 'Cld base pressure', 'Pa', (/ ('', i=1, 10) /)) 661 TYPE(ctrl_out), SAVE :: o_ptop = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 662 'ptop', 'Cld top pressure', 'Pa', (/ ('', i=1, 10) /)) 663 TYPE(ctrl_out), SAVE :: o_fbase = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 664 'fbase', 'Cld base mass flux', 'kg/m2/s', (/ ('', i=1, 10) /)) 665 TYPE(ctrl_out), SAVE :: o_plcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 666 'plcl', 'Lifting Condensation Level', 'hPa', (/ ('', i=1, 10) /)) 667 TYPE(ctrl_out), SAVE :: o_plfc = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 668 'plfc', 'Level of Free Convection', 'hPa', (/ ('', i=1, 10) /)) 669 TYPE(ctrl_out), SAVE :: o_wbeff = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 670 'wbeff', 'Conv. updraft velocity at LFC (<100)', 'm/s', (/ ('', i=1, 10) /)) 671 TYPE(ctrl_out), SAVE :: o_prw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 672 'prw', 'Precipitable water', 'kg/m2', (/ ('', i=1, 10) /)) 673 TYPE(ctrl_out), SAVE :: o_prlw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 674 'prlw', 'Precipitable liquid water', 'kg/m2', (/ ('', i=1, 10) /)) 675 TYPE(ctrl_out), SAVE :: o_prsw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 676 'prsw', 'Precipitable solid water', 'kg/m2', (/ ('', i=1, 10) /)) 677 TYPE(ctrl_out), SAVE :: o_s_pblh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 678 's_pblh', 'Boundary Layer Height', 'm', (/ ('', i=1, 10) /)) 679 TYPE(ctrl_out), SAVE :: o_s_pblt = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 680 's_pblt', 't at Boundary Layer Height', 'K', (/ ('', i=1, 10) /)) 681 TYPE(ctrl_out), SAVE :: o_s_lcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 682 's_lcl', 'Condensation level', 'm', (/ ('', i=1, 10) /)) 683 TYPE(ctrl_out), SAVE :: o_s_therm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 684 's_therm', 'Exces du thermique', 'K', (/ ('', i=1, 10) /)) 684 685 !IM : Les champs suivants (s_capCL, s_oliqCL, s_cteiCL, s_trmb1, s_trmb2, s_trmb3) ne sont pas definis dans HBTM.F 685 ! type(ctrl_out),save :: o_s_capCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 686 ! (/ ('', i=1, 9) /))687 ! type(ctrl_out),save :: o_s_oliqCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 688 ! (/ ('', i=1, 9) /))689 ! type(ctrl_out),save :: o_s_cteiCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 690 ! (/ ('', i=1, 9) /))691 ! type(ctrl_out),save :: o_s_trmb1 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 692 ! (/ ('', i=1, 9) /))693 ! type(ctrl_out),save :: o_s_trmb2 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 694 ! (/ ('', i=1, 9) /))695 ! type(ctrl_out),save :: o_s_trmb3 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 696 !(/ ('', i=1, 9) /))697 TYPE(ctrl_out), SAVE :: o_slab_bils = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 698 'slab_bils', 'flux atmos - slab ponderes foce', 'W/m2', (/ ('', i=1, 9) /))699 TYPE(ctrl_out), SAVE :: o_slab_bilg = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 700 'slab_bilg', 'flux glace - slab ponderes fsic', 'W/m2', (/ ('', i=1, 9) /))701 TYPE(ctrl_out), SAVE :: o_slab_qflux = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 702 'slab_qflux', 'Correction flux slab', 'W/m2', (/ ('', i=1, 9) /))703 TYPE(ctrl_out), SAVE :: o_tslab = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 704 'tslab', 'Temperature ocean slab', 'K', (/ ('', i=1, 9) /))705 TYPE(ctrl_out), SAVE :: o_slab_tice = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 706 'slab_tice', 'Temperature banquise slab', 'K', (/ ('', i=1, 9) /))707 TYPE(ctrl_out), SAVE :: o_slab_sic = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 708 'seaice', 'Epaisseur banquise slab', 'kg/m2', (/ ('', i=1, 9) /))709 TYPE(ctrl_out), SAVE :: o_slab_hdiff = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 710 'slab_hdiff', 'Horizontal diffusion', 'W/m2', (/ ('', i=1, 9) /))711 TYPE(ctrl_out), SAVE :: o_slab_ekman = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 712 'slab_ekman', 'Ekman heat transport', 'W/m2', (/ ('', i=1, 9) /))713 TYPE(ctrl_out), SAVE :: o_ale_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 714 'ale_bl', 'ALE BL', 'm2/s2', (/ ('', i=1, 9) /))715 TYPE(ctrl_out), SAVE :: o_alp_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 716 'alp_bl', 'ALP BL', 'W/m2', (/ ('', i=1, 9) /))717 TYPE(ctrl_out), SAVE :: o_ale_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 718 'ale_wk', 'ALE WK', 'm2/s2', (/ ('', i=1, 9) /))719 TYPE(ctrl_out), SAVE :: o_alp_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 720 'alp_wk', 'ALP WK', 'W/m2', (/ ('', i=1, 9) /))686 ! type(ctrl_out),save :: o_s_capCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_capCL', & 687 ! (/ ('', i=1, 10) /)) 688 ! type(ctrl_out),save :: o_s_oliqCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_oliqCL', & 689 ! (/ ('', i=1, 10) /)) 690 ! type(ctrl_out),save :: o_s_cteiCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_cteiCL', & 691 ! (/ ('', i=1, 10) /)) 692 ! type(ctrl_out),save :: o_s_trmb1 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_trmb1', & 693 ! (/ ('', i=1, 10) /)) 694 ! type(ctrl_out),save :: o_s_trmb2 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_trmb2', & 695 ! (/ ('', i=1, 10) /)) 696 ! type(ctrl_out),save :: o_s_trmb3 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_trmb3', & 697 !(/ ('', i=1, 10) /)) 698 TYPE(ctrl_out), SAVE :: o_slab_bils = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 699 'slab_bils', 'flux atmos - slab ponderes foce', 'W/m2', (/ ('', i=1, 10) /)) 700 TYPE(ctrl_out), SAVE :: o_slab_bilg = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 701 'slab_bilg', 'flux glace - slab ponderes fsic', 'W/m2', (/ ('', i=1, 10) /)) 702 TYPE(ctrl_out), SAVE :: o_slab_qflux = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 703 'slab_qflux', 'Correction flux slab', 'W/m2', (/ ('', i=1, 10) /)) 704 TYPE(ctrl_out), SAVE :: o_tslab = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 705 'tslab', 'Temperature ocean slab', 'K', (/ ('', i=1, 10) /)) 706 TYPE(ctrl_out), SAVE :: o_slab_tice = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 707 'slab_tice', 'Temperature banquise slab', 'K', (/ ('', i=1, 10) /)) 708 TYPE(ctrl_out), SAVE :: o_slab_sic = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 709 'seaice', 'Epaisseur banquise slab', 'kg/m2', (/ ('', i=1, 10) /)) 710 TYPE(ctrl_out), SAVE :: o_slab_hdiff = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 711 'slab_hdiff', 'Horizontal diffusion', 'W/m2', (/ ('', i=1, 10) /)) 712 TYPE(ctrl_out), SAVE :: o_slab_ekman = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 713 'slab_ekman', 'Ekman heat transport', 'W/m2', (/ ('', i=1, 10) /)) 714 TYPE(ctrl_out), SAVE :: o_ale_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 715 'ale_bl', 'ALE BL', 'm2/s2', (/ ('', i=1, 10) /)) 716 TYPE(ctrl_out), SAVE :: o_alp_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 717 'alp_bl', 'ALP BL', 'W/m2', (/ ('', i=1, 10) /)) 718 TYPE(ctrl_out), SAVE :: o_ale_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 719 'ale_wk', 'ALE WK', 'm2/s2', (/ ('', i=1, 10) /)) 720 TYPE(ctrl_out), SAVE :: o_alp_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 721 'alp_wk', 'ALP WK', 'W/m2', (/ ('', i=1, 10) /)) 721 722 !!! 722 723 !nrlmd+jyg< 723 type(ctrl_out),save :: o_dtvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 724 'dtvdf_x', ' dtvdf off_wake','K/s', (/ ('', i=1, 9) /))725 type(ctrl_out),save :: o_dtvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 726 'dtvdf_w', ' dtvdf within_wake','K/s', (/ ('', i=1, 9) /))727 type(ctrl_out),save :: o_dqvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 728 'dqvdf_x', ' dqvdf off_wake','kg/kg/s', (/ ('', i=1, 9) /))729 type(ctrl_out),save :: o_dqvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 730 'dqvdf_w', ' dqvdf within_wake','kg/kg/s', (/ ('', i=1, 9) /))724 type(ctrl_out),save :: o_dtvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 725 'dtvdf_x', ' dtvdf off_wake','K/s', (/ ('', i=1, 10) /)) 726 type(ctrl_out),save :: o_dtvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 727 'dtvdf_w', ' dtvdf within_wake','K/s', (/ ('', i=1, 10) /)) 728 type(ctrl_out),save :: o_dqvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 729 'dqvdf_x', ' dqvdf off_wake','kg/kg/s', (/ ('', i=1, 10) /)) 730 type(ctrl_out),save :: o_dqvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 731 'dqvdf_w', ' dqvdf within_wake','kg/kg/s', (/ ('', i=1, 10) /)) 731 732 !! 732 type(ctrl_out),save :: o_sens_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 733 'sens_x', 'sens off_wake', 'W/m2', (/ ('', i=1, 9) /))734 type(ctrl_out),save :: o_sens_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 735 'sens_w', 'sens within_wake', 'W/m2', (/ ('', i=1, 9) /))736 type(ctrl_out),save :: o_flat_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 737 'flat_x', 'flat off_wake', 'W/m2', (/ ('', i=1, 9) /))738 type(ctrl_out),save :: o_flat_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 739 'flat_w', 'flat within_wake', 'W/m2', (/ ('', i=1, 9) /))733 type(ctrl_out),save :: o_sens_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 734 'sens_x', 'sens off_wake', 'W/m2', (/ ('', i=1, 10) /)) 735 type(ctrl_out),save :: o_sens_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 736 'sens_w', 'sens within_wake', 'W/m2', (/ ('', i=1, 10) /)) 737 type(ctrl_out),save :: o_flat_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 738 'flat_x', 'flat off_wake', 'W/m2', (/ ('', i=1, 10) /)) 739 type(ctrl_out),save :: o_flat_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 740 'flat_w', 'flat within_wake', 'W/m2', (/ ('', i=1, 10) /)) 740 741 !! 741 type(ctrl_out),save :: o_delta_tsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 742 'delta_tsurf', 'Temperature difference (w-x)', 'K', (/ ('', i=1, 9) /))743 type(ctrl_out),save :: o_cdragh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 744 'cdragh_x', 'cdragh off-wake', '', (/ ('', i=1, 9) /))745 type(ctrl_out),save :: o_cdragh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 746 'cdragh_w', 'cdragh within-wake', '', (/ ('', i=1, 9) /))747 type(ctrl_out),save :: o_cdragm_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 748 'cdragm_x', 'cdragm off-wake', '', (/ ('', i=1, 9) /))749 type(ctrl_out),save :: o_cdragm_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 750 'cdragm_w', 'cdrgam within-wake', '', (/ ('', i=1, 9) /))751 type(ctrl_out),save :: o_kh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 752 'kh', 'Kh', 'kg/s/m2', (/ ('', i=1, 9) /))753 type(ctrl_out),save :: o_kh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 754 'kh_x', 'Kh off-wake', 'kg/s/m2', (/ ('', i=1, 9) /))755 type(ctrl_out),save :: o_kh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 756 'kh_w', 'Kh within-wake', 'kg/s/m2', (/ ('', i=1, 9) /))742 type(ctrl_out),save :: o_delta_tsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 743 'delta_tsurf', 'Temperature difference (w-x)', 'K', (/ ('', i=1, 10) /)) 744 type(ctrl_out),save :: o_cdragh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 745 'cdragh_x', 'cdragh off-wake', '', (/ ('', i=1, 10) /)) 746 type(ctrl_out),save :: o_cdragh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 747 'cdragh_w', 'cdragh within-wake', '', (/ ('', i=1, 10) /)) 748 type(ctrl_out),save :: o_cdragm_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 749 'cdragm_x', 'cdragm off-wake', '', (/ ('', i=1, 10) /)) 750 type(ctrl_out),save :: o_cdragm_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 751 'cdragm_w', 'cdrgam within-wake', '', (/ ('', i=1, 10) /)) 752 type(ctrl_out),save :: o_kh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 753 'kh', 'Kh', 'kg/s/m2', (/ ('', i=1, 10) /)) 754 type(ctrl_out),save :: o_kh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 755 'kh_x', 'Kh off-wake', 'kg/s/m2', (/ ('', i=1, 10) /)) 756 type(ctrl_out),save :: o_kh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 757 'kh_w', 'Kh within-wake', 'kg/s/m2', (/ ('', i=1, 10) /)) 757 758 !>nrlmd+jyg 758 759 !!! 759 TYPE(ctrl_out), SAVE :: o_ale = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 760 'ale', 'ALE', 'm2/s2', (/ ('', i=1, 9) /))761 TYPE(ctrl_out), SAVE :: o_alp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 762 'alp', 'ALP', 'W/m2', (/ ('', i=1, 9) /))763 TYPE(ctrl_out), SAVE :: o_cin = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 764 'cin', 'Convective INhibition', 'm2/s2', (/ ('', i=1, 9) /))765 TYPE(ctrl_out), SAVE :: o_wape = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 766 'wape', '', 'm2/s2', (/ ('', i=1, 9) /))760 TYPE(ctrl_out), SAVE :: o_ale = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 761 'ale', 'ALE', 'm2/s2', (/ ('', i=1, 10) /)) 762 TYPE(ctrl_out), SAVE :: o_alp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 763 'alp', 'ALP', 'W/m2', (/ ('', i=1, 10) /)) 764 TYPE(ctrl_out), SAVE :: o_cin = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 765 'cin', 'Convective INhibition', 'm2/s2', (/ ('', i=1, 10) /)) 766 TYPE(ctrl_out), SAVE :: o_wape = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 767 'wape', '', 'm2/s2', (/ ('', i=1, 10) /)) 767 768 768 769 !!! nrlmd le 10/04/2012 769 770 770 771 !-------Spectre de thermiques de type 2 au LCL 771 TYPE(ctrl_out), SAVE :: o_n2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 772 'n2', 'Nombre de panaches de type 2', ' ', (/ ('', i=1, 9) /)) 773 TYPE(ctrl_out), SAVE :: o_s2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 774 's2', 'Surface moyenne des panaches de type 2', 'm2', (/ ('', i=1, 9) /)) 775 776 !-------Déclenchement stochastique 777 TYPE(ctrl_out), SAVE :: o_proba_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 778 'proba_notrig', & 779 'Probabilite de non-declenchement', ' ', (/ ('', i=1, 9) /)) 780 TYPE(ctrl_out), SAVE :: o_random_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 781 'random_notrig', & 782 'Tirage aleatoire de non-declenchement', ' ', (/ ('', i=1, 9) /)) 783 TYPE(ctrl_out), SAVE :: o_ale_bl_stat = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 784 'ale_bl_stat', & 785 'ALE_BL_STAT', 'm2/s2', (/ ('', i=1, 9) /)) 786 TYPE(ctrl_out), SAVE :: o_ale_bl_trig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 787 'ale_bl_trig', & 788 'ALE_BL_STAT + Condition S>Sthreshold', 'm2/s2', (/ ('', i=1, 9) /)) 772 TYPE(ctrl_out), SAVE :: o_n2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 773 'n2', 'Nombre de panaches de type 2', ' ', (/ ('', i=1, 10) /)) 774 TYPE(ctrl_out), SAVE :: o_s2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 775 's2', 'Surface moyenne des panaches de type 2', 'm2', (/ ('', i=1, 10) /)) 776 777 !-------Déclenchement stochastiqu 778 TYPE(ctrl_out), SAVE :: o_proba_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 779 'proba_notrig', 'Probabilite de non-declenchement', ' ', (/ ('', i=1, 10) /)) 780 TYPE(ctrl_out), SAVE :: o_random_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 781 'random_notrig', 'Tirage aleatoire de non-declenchement', ' ', (/ ('', i=1, 10) /)) 782 TYPE(ctrl_out), SAVE :: o_ale_bl_stat = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 783 'ale_bl_stat', 'ALE_BL_STAT', 'm2/s2', (/ ('', i=1, 10) /)) 784 TYPE(ctrl_out), SAVE :: o_ale_bl_trig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 785 'ale_bl_trig', 'ALE_BL_STAT + Condition S>Sthreshold', 'm2/s2', (/ ('', i=1, 10) /)) 789 786 790 787 !-------Fermeture statistique 791 TYPE(ctrl_out), SAVE :: o_alp_bl_det = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 792 'alp_bl_det', 'ALP_BL_DET', 'W/m2', (/ ('', i=1, 9) /))793 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 794 'alp_bl_fluct_m', 'ALP_BL_FLUCT_M', 'W/m2', (/ ('', i=1, 9) /))795 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_tke = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 796 'alp_bl_fluct_tke', 'ALP_BL_FLUCT_TKE', 'W/m2', (/ ('', i=1, 9) /))797 TYPE(ctrl_out), SAVE :: o_alp_bl_conv = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 798 'alp_bl_conv', 'ALP_BL_CONV', 'W/m2', (/ ('', i=1, 9) /))799 TYPE(ctrl_out), SAVE :: o_alp_bl_stat = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 800 'alp_bl_stat', 'ALP_BL_STAT', 'W/m2', (/ ('', i=1, 9) /))788 TYPE(ctrl_out), SAVE :: o_alp_bl_det = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 789 'alp_bl_det', 'ALP_BL_DET', 'W/m2', (/ ('', i=1, 10) /)) 790 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 791 'alp_bl_fluct_m', 'ALP_BL_FLUCT_M', 'W/m2', (/ ('', i=1, 10) /)) 792 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_tke = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 793 'alp_bl_fluct_tke', 'ALP_BL_FLUCT_TKE', 'W/m2', (/ ('', i=1, 10) /)) 794 TYPE(ctrl_out), SAVE :: o_alp_bl_conv = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 795 'alp_bl_conv', 'ALP_BL_CONV', 'W/m2', (/ ('', i=1, 10) /)) 796 TYPE(ctrl_out), SAVE :: o_alp_bl_stat = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 797 'alp_bl_stat', 'ALP_BL_STAT', 'W/m2', (/ ('', i=1, 10) /)) 801 798 802 799 !!! fin nrlmd le 10/04/2012 … … 805 802 806 803 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_uSTDlevs = (/ & 807 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 808 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &809 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 810 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &811 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 812 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &813 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 814 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &815 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 816 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &817 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 818 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &819 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 820 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)804 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u850', "Zonal wind 850hPa", "m/s", & 805 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 806 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u700', "Zonal wind 700hPa", "m/s", & 807 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 808 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u500', "Zonal wind 500hPa", "m/s", & 809 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 810 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u200', "Zonal wind 200hPa", "m/s", & 811 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 812 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u100', "Zonal wind 100hPa", "m/s", & 813 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 814 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u50', "Zonal wind 50hPa", "m/s", & 815 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 816 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u10', "Zonal wind 10hPa", "m/s", & 817 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 821 818 822 819 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_vSTDlevs = (/ & 823 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 824 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &825 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 826 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &827 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 828 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &829 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 830 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &831 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 832 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &833 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 834 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &835 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 836 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)820 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v850', "Meridional wind 850hPa", "m/s", & 821 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 822 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v700', "Meridional wind 700hPa", "m/s", & 823 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 824 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v500', "Meridional wind 500hPa", "m/s", & 825 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 826 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v200', "Meridional wind 200hPa", "m/s", & 827 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 828 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v100', "Meridional wind 100hPa", "m/s", & 829 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 830 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v50', "Meridional wind 50hPa", "m/s", & 831 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 832 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v10', "Meridional wind 10hPa", "m/s", & 833 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 837 834 838 835 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_wSTDlevs = (/ & 839 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 840 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &841 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 842 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &843 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 844 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &845 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 846 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &847 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 848 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &849 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 850 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &851 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 852 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)836 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w850', "Vertical wind 850hPa", "Pa/s", & 837 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 838 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w700', "Vertical wind 700hPa", "Pa/s", & 839 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 840 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w500', "Vertical wind 500hPa", "Pa/s", & 841 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 842 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w200', "Vertical wind 200hPa", "Pa/s", & 843 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 844 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w100', "Vertical wind 100hPa", "Pa/s", & 845 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 846 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w50', "Vertical wind 50hPa", "Pa/s", & 847 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 848 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w10', "Vertical wind 10hPa", "Pa/s", & 849 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 853 850 854 851 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_tSTDlevs = (/ & 855 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 856 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &857 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 858 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &859 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 860 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &861 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 862 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &863 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 864 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &865 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 866 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &867 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 868 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)852 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t850', "Temperature 850hPa", "K", & 853 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 854 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t700', "Temperature 700hPa", "K", & 855 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 856 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t500', "Temperature 500hPa", "K", & 857 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 858 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t200', "Temperature 200hPa", "K", & 859 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 860 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t100', "Temperature 100hPa", "K", & 861 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 862 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t50', "Temperature 50hPa", "K", & 863 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 864 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t10', "Temperature 10hPa", "K", & 865 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 869 866 870 867 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_qSTDlevs = (/ & 871 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 872 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &873 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 874 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &875 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 876 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &877 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 878 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &879 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 880 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &881 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 882 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &883 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 884 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)868 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q850', "Specific humidity 850hPa", & 869 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 870 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q700', "Specific humidity 700hPa", & 871 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 872 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q500', "Specific humidity 500hPa", & 873 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 874 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q200', "Specific humidity 200hPa", & 875 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 876 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q100', "Specific humidity 100hPa", & 877 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 878 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q50', "Specific humidity 50hPa", & 879 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 880 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q10', "Specific humidity 10hPa", & 881 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 885 882 886 883 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_zSTDlevs = (/ & 887 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 888 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &889 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 890 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &891 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 892 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &893 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 894 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &895 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 896 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &897 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 898 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &899 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 900 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)901 902 TYPE(ctrl_out), SAVE :: o_t_oce_sic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 903 't_oce_sic', 'Temp mixte oce-sic', 'K', (/ ('', i=1, 9) /))904 TYPE(ctrl_out), SAVE :: o_weakinv = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 905 'weakinv', 'Weak inversion', '-', (/ ('', i=1, 9) /))906 TYPE(ctrl_out), SAVE :: o_dthmin = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 907 'dthmin', 'dTheta mini', 'K/m', (/ ('', i=1, 9) /))884 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z850', "Geopotential height 850hPa", & 885 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 886 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z700', "Geopotential height 700hPa", & 887 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 888 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z500', "Geopotential height 500hPa", & 889 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 890 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z200', "Geopotential height 200hPa", & 891 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 892 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z100', "Geopotential height 100hPa", & 893 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 894 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z50', "Geopotential height 50hPa", & 895 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 896 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z10', "Geopotential height 10hPa", & 897 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 898 899 TYPE(ctrl_out), SAVE :: o_t_oce_sic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 900 't_oce_sic', 'Temp mixte oce-sic', 'K', (/ ('', i=1, 10) /)) 901 TYPE(ctrl_out), SAVE :: o_weakinv = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 902 'weakinv', 'Weak inversion', '-', (/ ('', i=1, 10) /)) 903 TYPE(ctrl_out), SAVE :: o_dthmin = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 904 'dthmin', 'dTheta mini', 'K/m', (/ ('', i=1, 10) /)) 908 905 909 906 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10_srf = (/ & 910 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_ter', "", "", (/ ('', i=1, 9) /)), &911 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_lic', "", "", (/ ('', i=1, 9) /)), &912 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_oce', "", "", (/ ('', i=1, 9) /)), &913 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_sic', "", "", (/ ('', i=1, 9) /)) /)907 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_ter', "", "", (/ ('', i=1, 10) /)), & 908 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_lic', "", "", (/ ('', i=1, 10) /)), & 909 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_oce', "", "", (/ ('', i=1, 10) /)), & 910 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_sic', "", "", (/ ('', i=1, 10) /)) /) 914 911 915 912 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_v10_srf = (/ & 916 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_ter', "", "", (/ ('', i=1, 9) /)), &917 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_lic', "", "", (/ ('', i=1, 9) /)), &918 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_oce', "", "", (/ ('', i=1, 9) /)), &919 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_sic', "", "", (/ ('', i=1, 9) /)) /)920 921 TYPE(ctrl_out), SAVE :: o_cldtau = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 922 'cldtau', 'Cloud optical thickness', '1', (/ ('', i=1, 9) /))923 TYPE(ctrl_out), SAVE :: o_cldemi = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 924 'cldemi', 'Cloud optical emissivity', '1', (/ ('', i=1, 9) /))925 TYPE(ctrl_out), SAVE :: o_rh2m = ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11 926 'rh2m', 'Relative humidity at 2m', '%', (/ ('', i=1, 9) /))927 TYPE(ctrl_out), SAVE :: o_rh2m_min = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 913 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_ter', "", "", (/ ('', i=1, 10) /)), & 914 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_lic', "", "", (/ ('', i=1, 10) /)), & 915 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_oce', "", "", (/ ('', i=1, 10) /)), & 916 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_sic', "", "", (/ ('', i=1, 10) /)) /) 917 918 TYPE(ctrl_out), SAVE :: o_cldtau = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 919 'cldtau', 'Cloud optical thickness', '1', (/ ('', i=1, 10) /)) 920 TYPE(ctrl_out), SAVE :: o_cldemi = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 921 'cldemi', 'Cloud optical emissivity', '1', (/ ('', i=1, 10) /)) 922 TYPE(ctrl_out), SAVE :: o_rh2m = ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 923 'rh2m', 'Relative humidity at 2m', '%', (/ ('', i=1, 10) /)) 924 TYPE(ctrl_out), SAVE :: o_rh2m_min = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 928 925 'rh2m_min', 'Min Relative humidity at 2m', '%', & 929 (/ 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)' /)) 930 TYPE(ctrl_out), SAVE :: o_rh2m_max = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 931 'rh2m_max', 'Max Relative humidity at 2m', '%', & 932 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 926 (/ 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', & 927 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)' /)) 928 TYPE(ctrl_out), SAVE :: o_rh2m_max = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 929 'rh2m_max', 'Max Relative humidity at 2m', '%', & 930 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 933 931 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 934 TYPE(ctrl_out), SAVE :: o_qsat2m = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 935 'qsat2m', 'Saturant humidity at 2m', '%', (/ ('', i=1, 9) /)) 936 TYPE(ctrl_out), SAVE :: o_tpot = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 937 'tpot', 'Surface air potential temperature', 'K', (/ ('', i=1, 9) /)) 938 TYPE(ctrl_out), SAVE :: o_tpote = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 939 'tpote', & 940 'Surface air equivalent potential temperature', 'K', (/ ('', i=1, 9) /)) 941 TYPE(ctrl_out), SAVE :: o_tke = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 942 'tke ', 'TKE', 'm2/s2', (/ ('', i=1, 9) /)) 943 TYPE(ctrl_out), SAVE :: o_tke_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 944 'tke_max', 'TKE max', 'm2/s2', & 932 TYPE(ctrl_out), SAVE :: o_qsat2m = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 933 'qsat2m', 'Saturant humidity at 2m', '%', (/ ('', i=1, 10) /)) 934 TYPE(ctrl_out), SAVE :: o_tpot = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 935 'tpot', 'Surface air potential temperature', 'K', (/ ('', i=1, 10) /)) 936 TYPE(ctrl_out), SAVE :: o_tpote = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 937 'tpote', 'Surface air equivalent potential temperature', 'K', (/ ('', i=1, 10) /)) 938 TYPE(ctrl_out), SAVE :: o_tke = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 939 'tke ', 'TKE', 'm2/s2', (/ ('', i=1, 10) /)) 940 TYPE(ctrl_out), SAVE :: o_tke_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 941 'tke_max', 'TKE max', 'm2/s2', & 945 942 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 946 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /))943 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 947 944 948 945 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_srf = (/ & 949 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 950 "Max Turb. Kinetic Energy "//clnsurf(1),"m2/s2", (/ ('', i=1, 9) /)), &951 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 952 "Max Turb. Kinetic Energy "//clnsurf(2),"m2/s2", (/ ('', i=1, 9) /)), &953 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 954 "Max Turb. Kinetic Energy "//clnsurf(3),"m2/s2", (/ ('', i=1, 9) /)), &955 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 956 "Max Turb. Kinetic Energy "//clnsurf(4),"m2/s2", (/ ('', i=1, 9) /)) /)946 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_ter', & 947 "Max Turb. Kinetic Energy "//clnsurf(1),"m2/s2", (/ ('', i=1, 10) /)), & 948 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_lic', & 949 "Max Turb. Kinetic Energy "//clnsurf(2),"m2/s2", (/ ('', i=1, 10) /)), & 950 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_oce', & 951 "Max Turb. Kinetic Energy "//clnsurf(3),"m2/s2", (/ ('', i=1, 10) /)), & 952 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_sic', & 953 "Max Turb. Kinetic Energy "//clnsurf(4),"m2/s2", (/ ('', i=1, 10) /)) /) 957 954 958 955 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mixmin = (/ & 959 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 960 "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &961 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 962 "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &963 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 964 "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &965 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 966 "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)956 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_ter', & 957 "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 958 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_lic', & 959 "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 960 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_oce', & 961 "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 962 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_sic', & 963 "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 967 964 968 965 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mix = (/ & 969 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 970 "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &971 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 972 "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &973 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 974 "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &975 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 976 "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)966 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_ter', & 967 "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 968 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_lic', & 969 "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 970 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_oce', & 971 "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 972 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_sic', & 973 "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 977 974 978 975 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_max_srf = (/ & 979 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 976 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_ter', & 980 977 "Max Turb. Kinetic Energy "//clnsurf(1),"-", & 981 978 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 982 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), &983 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 979 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), & 980 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_lic', & 984 981 "Max Turb. Kinetic Energy "//clnsurf(2),"-", & 985 982 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 986 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), &987 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 983 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), & 984 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_oce', & 988 985 "Max Turb. Kinetic Energy "//clnsurf(3),"-", & 989 986 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 990 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), &991 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 987 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), & 988 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_sic', & 992 989 "Max Turb. Kinetic Energy "//clnsurf(4),"-", & 993 990 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 994 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) /)991 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) /) 995 992 996 993 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_dltpbltke_srf = (/ & 997 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 998 "TKE difference (w - x) "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &999 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 1000 "TKE difference (w - x) "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &1001 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 1002 "TKE difference (w - x) "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &1003 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 1004 "TKE difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)1005 1006 TYPE(ctrl_out), SAVE :: o_kz = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1007 'kz', 'Kz melange', 'm2/s', (/ ('', i=1, 9) /))1008 TYPE(ctrl_out), SAVE :: o_kz_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 994 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_ter', & 995 "TKE difference (w - x) "//clnsurf(1),"-", (/ ('', i=1, 10) /)), & 996 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_lic', & 997 "TKE difference (w - x) "//clnsurf(2),"-", (/ ('', i=1, 10) /)), & 998 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_oce', & 999 "TKE difference (w - x) "//clnsurf(3),"-", (/ ('', i=1, 10) /)), & 1000 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_sic', & 1001 "TKE difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 10) /)) /) 1002 1003 TYPE(ctrl_out), SAVE :: o_kz = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1004 'kz', 'Kz melange', 'm2/s', (/ ('', i=1, 10) /)) 1005 TYPE(ctrl_out), SAVE :: o_kz_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1009 1006 'kz_max', 'Kz melange max', 'm2/s', & 1010 1007 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 1011 't_max(X)', "t_max(X)", "t_max(X)", "t_max(X)" /))1012 TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1013 'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))1014 TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1015 'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))1016 TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1017 'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 9) /))1018 TYPE(ctrl_out), SAVE :: o_snowl = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 1019 'snowl', 'Solid Large-scale Precip.', 'kg/(m2*s)', (/ ('', i=1, 9) /))1020 TYPE(ctrl_out), SAVE :: o_cape_max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 1008 't_max(X)', "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 1009 TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1010 'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 10) /)) 1011 TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1012 'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 10) /)) 1013 TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1014 'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 10) /)) 1015 TYPE(ctrl_out), SAVE :: o_snowl = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 1016 'snowl', 'Solid Large-scale Precip.', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1017 TYPE(ctrl_out), SAVE :: o_cape_max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 1021 1018 'cape_max', 'CAPE max.', 'J/kg', & 1022 1019 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 1023 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /))1024 TYPE(ctrl_out), SAVE :: o_solldown = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 1025 'solldown', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))1026 TYPE(ctrl_out), SAVE :: o_dtsvdfo = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1027 'dtsvdfo', 'Boundary-layer dTs(o)', 'K/s', (/ ('', i=1, 9) /))1028 TYPE(ctrl_out), SAVE :: o_dtsvdft = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1029 'dtsvdft', 'Boundary-layer dTs(t)', 'K/s', (/ ('', i=1, 9) /))1030 TYPE(ctrl_out), SAVE :: o_dtsvdfg = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1031 'dtsvdfg', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 9) /))1032 TYPE(ctrl_out), SAVE :: o_dtsvdfi = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1033 'dtsvdfi', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 9) /))1034 TYPE(ctrl_out), SAVE :: o_z0m = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1035 'z0m', 'roughness length, momentum', '-', (/ ('', i=1, 9) /))1036 TYPE(ctrl_out), SAVE :: o_z0h = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1037 'z0h', 'roughness length, enthalpy', '-', (/ ('', i=1, 9) /))1038 TYPE(ctrl_out), SAVE :: o_topswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1039 'topswad', 'ADE at TOA', 'W/m2', (/ ('', i=1, 9) /))1040 TYPE(ctrl_out), SAVE :: o_topswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1041 'topswad0', 'ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1042 TYPE(ctrl_out), SAVE :: o_topswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1043 'topswai', 'AIE at TOA', 'W/m2', (/ ('', i=1, 9) /))1044 TYPE(ctrl_out), SAVE :: o_solswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1045 'solswad', 'ADE at SRF', 'W/m2', (/ ('', i=1, 9) /))1046 TYPE(ctrl_out), SAVE :: o_solswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1047 'solswad0', 'ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1048 TYPE(ctrl_out), SAVE :: o_solswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1049 'solswai', 'AIE at SFR', 'W/m2', (/ ('', i=1, 9) /))1050 TYPE(ctrl_out), SAVE :: o_toplwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1051 'toplwad', 'LW-ADE at TOA', 'W/m2', (/ ('', i=1, 9) /))1052 TYPE(ctrl_out), SAVE :: o_toplwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1053 'toplwad0', 'LW-ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1054 TYPE(ctrl_out), SAVE :: o_toplwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1055 'toplwai', 'LW-AIE at TOA', 'W/m2', (/ ('', i=1, 9) /))1056 TYPE(ctrl_out), SAVE :: o_sollwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1057 'sollwad', 'LW-ADE at SRF', 'W/m2', (/ ('', i=1, 9) /))1058 TYPE(ctrl_out), SAVE :: o_sollwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1059 'sollwad0', 'LW-ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1060 TYPE(ctrl_out), SAVE :: o_sollwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1061 'sollwai', 'LW-AIE at SFR', 'W/m2', (/ ('', i=1, 9) /))1020 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 1021 TYPE(ctrl_out), SAVE :: o_solldown = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 1022 'solldown', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 1023 TYPE(ctrl_out), SAVE :: o_dtsvdfo = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1024 'dtsvdfo', 'Boundary-layer dTs(o)', 'K/s', (/ ('', i=1, 10) /)) 1025 TYPE(ctrl_out), SAVE :: o_dtsvdft = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1026 'dtsvdft', 'Boundary-layer dTs(t)', 'K/s', (/ ('', i=1, 10) /)) 1027 TYPE(ctrl_out), SAVE :: o_dtsvdfg = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1028 'dtsvdfg', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 10) /)) 1029 TYPE(ctrl_out), SAVE :: o_dtsvdfi = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1030 'dtsvdfi', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 10) /)) 1031 TYPE(ctrl_out), SAVE :: o_z0m = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1032 'z0m', 'roughness length, momentum', '-', (/ ('', i=1, 10) /)) 1033 TYPE(ctrl_out), SAVE :: o_z0h = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1034 'z0h', 'roughness length, enthalpy', '-', (/ ('', i=1, 10) /)) 1035 TYPE(ctrl_out), SAVE :: o_topswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1036 'topswad', 'ADE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1037 TYPE(ctrl_out), SAVE :: o_topswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1038 'topswad0', 'ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1039 TYPE(ctrl_out), SAVE :: o_topswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1040 'topswai', 'AIE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1041 TYPE(ctrl_out), SAVE :: o_solswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1042 'solswad', 'ADE at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1043 TYPE(ctrl_out), SAVE :: o_solswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1044 'solswad0', 'ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1045 TYPE(ctrl_out), SAVE :: o_solswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1046 'solswai', 'AIE at SFR', 'W/m2', (/ ('', i=1, 10) /)) 1047 TYPE(ctrl_out), SAVE :: o_toplwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1048 'toplwad', 'LW-ADE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1049 TYPE(ctrl_out), SAVE :: o_toplwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1050 'toplwad0', 'LW-ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1051 TYPE(ctrl_out), SAVE :: o_toplwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1052 'toplwai', 'LW-AIE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1053 TYPE(ctrl_out), SAVE :: o_sollwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1054 'sollwad', 'LW-ADE at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1055 TYPE(ctrl_out), SAVE :: o_sollwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1056 'sollwad0', 'LW-ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1057 TYPE(ctrl_out), SAVE :: o_sollwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1058 'sollwai', 'LW-AIE at SFR', 'W/m2', (/ ('', i=1, 10) /)) 1062 1059 1063 1060 1064 1061 TYPE(ctrl_out),SAVE,DIMENSION(naero_tot) :: o_tausumaero = & 1065 (/ ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1066 "Aerosol Optical depth at 550 nm "//name_aero_tau(1),"1", (/ ('', i=1, 9) /)), &1067 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1068 "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"2", (/ ('', i=1, 9) /)), &1069 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1070 "Aerosol Optical depth at 550 nm "//name_aero_tau(3),"3", (/ ('', i=1, 9) /)), &1071 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1072 "Aerosol Optical depth at 550 nm "//name_aero_tau(4),"4", (/ ('', i=1, 9) /)), &1073 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1074 "Aerosol Optical depth at 550 nm "//name_aero_tau(5),"5", (/ ('', i=1, 9) /)), &1075 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1076 "Aerosol Optical depth at 550 nm "//name_aero_tau(6),"6", (/ ('', i=1, 9) /)), &1077 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1078 "Aerosol Optical depth at 550 nm "//name_aero_tau(7),"7", (/ ('', i=1, 9) /)), &1079 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1080 "Aerosol Optical depth at 550 nm "//name_aero_tau(8),"8", (/ ('', i=1, 9) /)), &1081 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1082 "Aerosol Optical depth at 550 nm "//name_aero_tau(9),"9", (/ ('', i=1, 9) /)), &1083 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1084 "Aerosol Optical depth at 550 nm "//name_aero_tau(10),"10", (/ ('', i=1, 9) /)), &1085 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1086 "Aerosol Optical depth at 550 nm "//name_aero_tau(11),"11", (/ ('', i=1, 9) /)), &1087 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1088 "Aerosol Optical depth at 550 nm "//name_aero_tau(12),"12", (/ ('', i=1, 9) /)), &1089 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1090 "Aerosol Optical depth at 550 nm "//name_aero_tau(13),"13", (/ ('', i=1, 9) /)), &1091 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1092 "Aerosol Optical depth at 550 nm "//name_aero_tau(14),"14", (/ ('', i=1, 9) /)) /)1062 (/ ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(1), & 1063 "Aerosol Optical depth at 550 nm "//name_aero_tau(1),"1", (/ ('', i=1, 10) /)), & 1064 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(2), & 1065 "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"2", (/ ('', i=1, 10) /)), & 1066 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(3), & 1067 "Aerosol Optical depth at 550 nm "//name_aero_tau(3),"3", (/ ('', i=1, 10) /)), & 1068 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(4), & 1069 "Aerosol Optical depth at 550 nm "//name_aero_tau(4),"4", (/ ('', i=1, 10) /)), & 1070 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(5), & 1071 "Aerosol Optical depth at 550 nm "//name_aero_tau(5),"5", (/ ('', i=1, 10) /)), & 1072 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(6), & 1073 "Aerosol Optical depth at 550 nm "//name_aero_tau(6),"6", (/ ('', i=1, 10) /)), & 1074 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(7), & 1075 "Aerosol Optical depth at 550 nm "//name_aero_tau(7),"7", (/ ('', i=1, 10) /)), & 1076 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(8), & 1077 "Aerosol Optical depth at 550 nm "//name_aero_tau(8),"8", (/ ('', i=1, 10) /)), & 1078 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(9), & 1079 "Aerosol Optical depth at 550 nm "//name_aero_tau(9),"9", (/ ('', i=1, 10) /)), & 1080 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(10), & 1081 "Aerosol Optical depth at 550 nm "//name_aero_tau(10),"10", (/ ('', i=1, 10) /)), & 1082 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(11), & 1083 "Aerosol Optical depth at 550 nm "//name_aero_tau(11),"11", (/ ('', i=1, 10) /)), & 1084 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(12), & 1085 "Aerosol Optical depth at 550 nm "//name_aero_tau(12),"12", (/ ('', i=1, 10) /)), & 1086 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(13), & 1087 "Aerosol Optical depth at 550 nm "//name_aero_tau(13),"13", (/ ('', i=1, 10) /)), & 1088 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(14), & 1089 "Aerosol Optical depth at 550 nm "//name_aero_tau(14),"14", (/ ('', i=1, 10) /)) /) 1093 1090 ! 1094 TYPE(ctrl_out), SAVE :: o_tausumaero_lw = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1095 'OD_10um_STRAT', 'Stratospheric Aerosol Optical depth at 10 um ', '1', (/ ('', i=1, 9) /))1091 TYPE(ctrl_out), SAVE :: o_tausumaero_lw = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1092 'OD_10um_STRAT', 'Stratospheric Aerosol Optical depth at 10 um ', '1', (/ ('', i=1, 10) /)) 1096 1093 ! 1097 TYPE(ctrl_out), SAVE :: o_od550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1098 'od550aer', 'Total aerosol optical depth at 550nm', '-', (/ ('', i=1, 9) /))1099 TYPE(ctrl_out), SAVE :: o_od865aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1100 'od865aer', 'Total aerosol optical depth at 870nm', '-', (/ ('', i=1, 9) /))1101 TYPE(ctrl_out), SAVE :: o_absvisaer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1102 'absvisaer', 'Absorption aerosol visible optical depth', '-', (/ ('', i=1, 9) /))1103 TYPE(ctrl_out), SAVE :: o_od550lt1aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1104 'od550lt1aer', 'Fine mode optical depth', '-', (/ ('', i=1, 9) /))1105 TYPE(ctrl_out), SAVE :: o_sconcso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1106 'sconcso4', 'Surface Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 9) /))1107 TYPE(ctrl_out), SAVE :: o_sconcno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1108 'sconcno3', 'Surface Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 9) /))1109 TYPE(ctrl_out), SAVE :: o_sconcoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1110 'sconcoa', 'Surface Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 9) /))1111 TYPE(ctrl_out), SAVE :: o_sconcbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1112 'sconcbc', 'Surface Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 9) /))1113 TYPE(ctrl_out), SAVE :: o_sconcss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1114 'sconcss', 'Surface Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 9) /))1115 TYPE(ctrl_out), SAVE :: o_sconcdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1116 'sconcdust', 'Surface Concentration of Dust ', 'kg/m3', (/ ('', i=1, 9) /))1117 TYPE(ctrl_out), SAVE :: o_concso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1118 'concso4', 'Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 9) /))1119 TYPE(ctrl_out), SAVE :: o_concno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1120 'concno3', 'Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 9) /))1121 TYPE(ctrl_out), SAVE :: o_concoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1122 'concoa', 'Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 9) /))1123 TYPE(ctrl_out), SAVE :: o_concbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1124 'concbc', 'Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 9) /))1125 TYPE(ctrl_out), SAVE :: o_concss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1126 'concss', 'Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 9) /))1127 TYPE(ctrl_out), SAVE :: o_concdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1128 'concdust', 'Concentration of Dust ', 'kg/m3', (/ ('', i=1, 9) /))1129 TYPE(ctrl_out), SAVE :: o_loadso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1130 'loadso4', 'Column Load of Sulfate ', 'kg/m2', (/ ('', i=1, 9) /))1131 TYPE(ctrl_out), SAVE :: o_loadoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1132 'loadoa', 'Column Load of Organic Aerosol ', 'kg/m2', (/ ('', i=1, 9) /))1133 TYPE(ctrl_out), SAVE :: o_loadbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1134 'loadbc', 'Column Load of Black Carbon ', 'kg/m2', (/ ('', i=1, 9) /))1135 TYPE(ctrl_out), SAVE :: o_loadss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1136 'loadss', 'Column Load of Sea Salt ', 'kg/m2', (/ ('', i=1, 9) /))1137 TYPE(ctrl_out), SAVE :: o_loaddust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1138 'loaddust', 'Column Load of Dust ', 'kg/m2', (/ ('', i=1, 9) /))1139 TYPE(ctrl_out), SAVE :: o_swtoaas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1140 'swtoaas_nat', 'Natural aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1141 TYPE(ctrl_out), SAVE :: o_swsrfas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1142 'swsrfas_nat', 'Natural aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1143 TYPE(ctrl_out), SAVE :: o_swtoacs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1144 'swtoacs_nat', 'Natural aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1145 TYPE(ctrl_out), SAVE :: o_swsrfcs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1146 'swsrfcs_nat', 'Natural aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1147 TYPE(ctrl_out), SAVE :: o_swtoaas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1148 'swtoaas_ant', 'Anthropogenic aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1149 TYPE(ctrl_out), SAVE :: o_swsrfas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1150 'swsrfas_ant', 'Anthropogenic aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1151 TYPE(ctrl_out), SAVE :: o_swtoacs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1152 'swtoacs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1153 TYPE(ctrl_out), SAVE :: o_swsrfcs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1154 'swsrfcs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1155 TYPE(ctrl_out), SAVE :: o_swtoacf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1156 'swtoacf_nat', 'Natural aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 9) /))1157 TYPE(ctrl_out), SAVE :: o_swsrfcf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1158 'swsrfcf_nat', 'Natural aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 9) /))1159 TYPE(ctrl_out), SAVE :: o_swtoacf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1160 'swtoacf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 9) /))1161 TYPE(ctrl_out), SAVE :: o_swsrfcf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1162 'swsrfcf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 9) /))1163 TYPE(ctrl_out), SAVE :: o_swtoacf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1164 'swtoacf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at TOA', 'W/m2', (/ ('', i=1, 9) /))1165 TYPE(ctrl_out), SAVE :: o_swsrfcf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1166 'swsrfcf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at SRF', 'W/m2', (/ ('', i=1, 9) /))1167 TYPE(ctrl_out), SAVE :: o_cldncl = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1168 'cldncl', 'CDNC at top of liquid water cloud', 'm-3', (/ ('', i=1, 9) /))1169 TYPE(ctrl_out), SAVE :: o_reffclwtop = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1170 'reffclwtop', 'Droplet effective radius at top of liquid water cloud', 'm', (/ ('', i=1, 9) /))1171 TYPE(ctrl_out), SAVE :: o_cldnvi = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1172 'cldnvi', 'Column Integrated Cloud Droplet Number', 'm-2', (/ ('', i=1, 9) /))1173 TYPE(ctrl_out), SAVE :: o_lcc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1174 'lcc', 'Cloud liquid fraction at top of cloud', '1', (/ ('', i=1, 9) /))1094 TYPE(ctrl_out), SAVE :: o_od550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1095 'od550aer', 'Total aerosol optical depth at 550nm', '-', (/ ('', i=1, 10) /)) 1096 TYPE(ctrl_out), SAVE :: o_od865aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1097 'od865aer', 'Total aerosol optical depth at 870nm', '-', (/ ('', i=1, 10) /)) 1098 TYPE(ctrl_out), SAVE :: o_absvisaer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1099 'absvisaer', 'Absorption aerosol visible optical depth', '-', (/ ('', i=1, 10) /)) 1100 TYPE(ctrl_out), SAVE :: o_od550lt1aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1101 'od550lt1aer', 'Fine mode optical depth', '-', (/ ('', i=1, 10) /)) 1102 TYPE(ctrl_out), SAVE :: o_sconcso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1103 'sconcso4', 'Surface Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 10) /)) 1104 TYPE(ctrl_out), SAVE :: o_sconcno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1105 'sconcno3', 'Surface Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 10) /)) 1106 TYPE(ctrl_out), SAVE :: o_sconcoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1107 'sconcoa', 'Surface Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 10) /)) 1108 TYPE(ctrl_out), SAVE :: o_sconcbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1109 'sconcbc', 'Surface Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 10) /)) 1110 TYPE(ctrl_out), SAVE :: o_sconcss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1111 'sconcss', 'Surface Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 10) /)) 1112 TYPE(ctrl_out), SAVE :: o_sconcdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1113 'sconcdust', 'Surface Concentration of Dust ', 'kg/m3', (/ ('', i=1, 10) /)) 1114 TYPE(ctrl_out), SAVE :: o_concso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1115 'concso4', 'Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 10) /)) 1116 TYPE(ctrl_out), SAVE :: o_concno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1117 'concno3', 'Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 10) /)) 1118 TYPE(ctrl_out), SAVE :: o_concoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1119 'concoa', 'Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 10) /)) 1120 TYPE(ctrl_out), SAVE :: o_concbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1121 'concbc', 'Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 10) /)) 1122 TYPE(ctrl_out), SAVE :: o_concss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1123 'concss', 'Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 10) /)) 1124 TYPE(ctrl_out), SAVE :: o_concdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1125 'concdust', 'Concentration of Dust ', 'kg/m3', (/ ('', i=1, 10) /)) 1126 TYPE(ctrl_out), SAVE :: o_loadso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1127 'loadso4', 'Column Load of Sulfate ', 'kg/m2', (/ ('', i=1, 10) /)) 1128 TYPE(ctrl_out), SAVE :: o_loadoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1129 'loadoa', 'Column Load of Organic Aerosol ', 'kg/m2', (/ ('', i=1, 10) /)) 1130 TYPE(ctrl_out), SAVE :: o_loadbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1131 'loadbc', 'Column Load of Black Carbon ', 'kg/m2', (/ ('', i=1, 10) /)) 1132 TYPE(ctrl_out), SAVE :: o_loadss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1133 'loadss', 'Column Load of Sea Salt ', 'kg/m2', (/ ('', i=1, 10) /)) 1134 TYPE(ctrl_out), SAVE :: o_loaddust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1135 'loaddust', 'Column Load of Dust ', 'kg/m2', (/ ('', i=1, 10) /)) 1136 TYPE(ctrl_out), SAVE :: o_swtoaas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1137 'swtoaas_nat', 'Natural aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1138 TYPE(ctrl_out), SAVE :: o_swsrfas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1139 'swsrfas_nat', 'Natural aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1140 TYPE(ctrl_out), SAVE :: o_swtoacs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1141 'swtoacs_nat', 'Natural aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1142 TYPE(ctrl_out), SAVE :: o_swsrfcs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1143 'swsrfcs_nat', 'Natural aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1144 TYPE(ctrl_out), SAVE :: o_swtoaas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1145 'swtoaas_ant', 'Anthropogenic aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1146 TYPE(ctrl_out), SAVE :: o_swsrfas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1147 'swsrfas_ant', 'Anthropogenic aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1148 TYPE(ctrl_out), SAVE :: o_swtoacs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1149 'swtoacs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1150 TYPE(ctrl_out), SAVE :: o_swsrfcs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1151 'swsrfcs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1152 TYPE(ctrl_out), SAVE :: o_swtoacf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1153 'swtoacf_nat', 'Natural aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1154 TYPE(ctrl_out), SAVE :: o_swsrfcf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1155 'swsrfcf_nat', 'Natural aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1156 TYPE(ctrl_out), SAVE :: o_swtoacf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1157 'swtoacf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1158 TYPE(ctrl_out), SAVE :: o_swsrfcf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1159 'swsrfcf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1160 TYPE(ctrl_out), SAVE :: o_swtoacf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1161 'swtoacf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1162 TYPE(ctrl_out), SAVE :: o_swsrfcf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1163 'swsrfcf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1164 TYPE(ctrl_out), SAVE :: o_cldncl = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1165 'cldncl', 'CDNC at top of liquid water cloud', 'm-3', (/ ('', i=1, 10) /)) 1166 TYPE(ctrl_out), SAVE :: o_reffclwtop = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1167 'reffclwtop', 'Droplet effective radius at top of liquid water cloud', 'm', (/ ('', i=1, 10) /)) 1168 TYPE(ctrl_out), SAVE :: o_cldnvi = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1169 'cldnvi', 'Column Integrated Cloud Droplet Number', 'm-2', (/ ('', i=1, 10) /)) 1170 TYPE(ctrl_out), SAVE :: o_lcc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1171 'lcc', 'Cloud liquid fraction at top of cloud', '1', (/ ('', i=1, 10) /)) 1175 1172 1176 1173 #ifdef CPP_StratAer 1177 TYPE(ctrl_out), SAVE :: o_ext_strat_550 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1178 'ext_strat_550', 'Strat. aerosol extinction coefficient at 550 nm', '1/m', (/ ('', i=1, 9) /)) 1179 TYPE(ctrl_out), SAVE :: o_ext_strat_1020 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1180 'ext_strat_1020', 'Strat. aerosol extinction coefficient at 1020 nm', '1/m', (/ ('', i=1, 9) /)) 1181 TYPE(ctrl_out), SAVE :: o_tau_strat_550 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1182 'OD550_strat_only', 'Stratospheric Aerosol Optical depth at 550 nm ', '1', (/ ('', i=1, 9) /)) 1183 TYPE(ctrl_out), SAVE :: o_tau_strat_1020 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1184 'OD1020_strat_only', 'Stratospheric Aerosol Optical depth at 1020 nm ', '1', (/ ('', i=1, 9) /)) 1185 TYPE(ctrl_out), SAVE :: o_sulf_convert = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1186 'sulf_convert', 'SO2 mass flux converted to H2SO4', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1187 TYPE(ctrl_out), SAVE :: o_sulf_nucl = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1188 'sulf_nucl', 'H2SO4 nucleation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1189 TYPE(ctrl_out), SAVE :: o_sulf_cond_evap = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1190 'sulf_cond_evap', 'H2SO4 condensation/evaporation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1191 TYPE(ctrl_out), SAVE :: o_ocs_convert = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1192 'ocs_convert', 'OCS mass flux converted to SO2', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1193 TYPE(ctrl_out), SAVE :: o_R2SO4 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1194 'R2SO4', 'H2SO4 mass fraction in aerosol', '%', (/ ('', i=1, 9) /)) 1195 TYPE(ctrl_out), SAVE :: o_OCS_lifetime = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1196 'OCS_lifetime', 'OCS lifetime', 's', (/ ('', i=1, 9) /)) 1197 TYPE(ctrl_out), SAVE :: o_SO2_lifetime = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1198 'SO2_lifetime', 'SO2 lifetime', 's', (/ ('', i=1, 9) /)) 1199 TYPE(ctrl_out), SAVE :: o_SO2_backgr_tend = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1200 'SO2_backgr_tend', 'SO2 background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1201 TYPE(ctrl_out), SAVE :: o_OCS_backgr_tend = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1202 'OCS_backgr_tend', 'OCS background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1203 TYPE(ctrl_out), SAVE :: o_vsed_aer = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1204 'vsed_aer', 'Strat. aerosol sedimentation velocity (mass-weighted)', 'm/s', (/ ('', i=1, 9) /)) 1205 TYPE(ctrl_out), SAVE :: o_f_r_wet = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1206 'f_r_wet', 'Conversion factor dry to wet aerosol radius', '-', (/ ('', i=1, 9) /)) 1207 TYPE(ctrl_out), SAVE :: o_sulf_dep_dry = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1208 'sulf_dep_dry', 'Sulfur dry deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 9) /)) 1209 TYPE(ctrl_out), SAVE :: o_sulf_dep_wet = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1210 'sulf_dep_wet', 'Sulfur wet deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 9) /)) 1211 TYPE(ctrl_out), SAVE :: o_surf_PM25_sulf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1212 'surf_PM25_sulf', 'Sulfate PM2.5 concentration at the surface', 'ug/m3', (/ ('', i=1, 9) /)) 1213 TYPE(ctrl_out), SAVE :: o_p_tropopause = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1214 'p_tropopause', 'Tropopause pressure', 'Pa', (/ ('', i=1, 9) /)) 1215 TYPE(ctrl_out), SAVE :: o_sfluxaer = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1216 'sflux', 'Ground sedimentation flux of strat. particles', 'kg(S)/m2/s', (/ ('', i=1, 9) /)) 1174 !--extinction coefficient 1175 TYPE(ctrl_out), SAVE :: o_ext_strat_550 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1176 'ext_strat_550', 'Strat. aerosol extinction coefficient at 550 nm', '1/m', (/ ('', i=1, 10) /)) 1177 TYPE(ctrl_out), SAVE :: o_ext_strat_1020 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1178 'ext_strat_1020', 'Strat. aerosol extinction coefficient at 1020 nm', '1/m', (/ ('', i=1, 10) /)) 1179 !--strat aerosol optical depth 1180 TYPE(ctrl_out), SAVE :: o_tau_strat_550 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1181 'OD550_strat_only', 'Stratospheric Aerosol Optical depth at 550 nm ', '1', (/ ('', i=1, 10) /)) 1182 TYPE(ctrl_out), SAVE :: o_tau_strat_1020 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1183 'OD1020_strat_only', 'Stratospheric Aerosol Optical depth at 1020 nm ', '1', (/ ('', i=1, 10) /)) 1184 !--chemistry 1185 TYPE(ctrl_out), SAVE :: o_R2SO4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1186 'R2SO4', 'H2SO4 mass fraction in aerosol', '%', (/ ('', i=1, 10) /)) 1187 TYPE(ctrl_out), SAVE :: o_OCS_lifetime = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1188 'OCS_lifetime', 'OCS lifetime', 's', (/ ('', i=1, 10) /)) 1189 TYPE(ctrl_out), SAVE :: o_SO2_lifetime = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1190 'SO2_lifetime', 'SO2 lifetime', 's', (/ ('', i=1, 10) /)) 1191 TYPE(ctrl_out), SAVE :: o_f_r_wet = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1192 'f_r_wet', 'Conversion factor dry to wet aerosol radius', '-', (/ ('', i=1, 10) /)) 1193 !--budget 3D 1194 TYPE(ctrl_out), SAVE :: o_budg_3D_nucl = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1195 'budg_3D_nucl', 'H2SO4 nucleation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1196 TYPE(ctrl_out), SAVE :: o_budg_3D_cond_evap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1197 'budg_3D_cond_evap', 'H2SO4 condensation/evaporation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1198 TYPE(ctrl_out), SAVE :: o_budg_3D_ocs_to_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1199 'budg_3D_ocs_to_so2', 'OCS mass flux converted to SO2', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1200 TYPE(ctrl_out), SAVE :: o_budg_3D_so2_to_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1201 'budg_3D_so2_to_h2so4', 'SO2 mass flux converted to H2SO4', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1202 TYPE(ctrl_out), SAVE :: o_budg_3D_backgr_ocs = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1203 'budg_3D_backgr_ocs', 'OCS background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1204 TYPE(ctrl_out), SAVE :: o_budg_3D_backgr_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1205 'budg_3D_backgr_so2', 'SO2 background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1206 TYPE(ctrl_out), SAVE :: o_vsed_aer = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1207 'vsed_aer', 'Strat. aerosol sedimentation velocity (mass-weighted)', 'm/s', (/ ('', i=1, 10) /)) 1208 !--budget 2D 1209 TYPE(ctrl_out), SAVE :: o_budg_dep_dry_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1210 'budg_dep_dry_h2so4', 'H2SO4 dry deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1211 TYPE(ctrl_out), SAVE :: o_budg_dep_wet_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1212 'budg_dep_wet_h2so4', 'H2SO4 wet deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1213 TYPE(ctrl_out), SAVE :: o_budg_dep_dry_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1214 'budg_dep_dry_part', 'particle dry deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1215 TYPE(ctrl_out), SAVE :: o_budg_dep_wet_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1216 'budg_dep_wet_part', 'particle wet deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1217 TYPE(ctrl_out), SAVE :: o_budg_emi_ocs = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1218 'budg_emi_ocs', 'OCS emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1219 TYPE(ctrl_out), SAVE :: o_budg_emi_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1220 'budg_emi_so2', 'SO2 emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1221 TYPE(ctrl_out), SAVE :: o_budg_emi_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1222 'budg_emi_h2so4', 'H2SO4 emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1223 TYPE(ctrl_out), SAVE :: o_budg_emi_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1224 'budg_emi_part', 'Particle emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1225 TYPE(ctrl_out), SAVE :: o_budg_ocs_to_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1226 'budg_ocs_to_so2', 'OCS to SO2 flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1227 TYPE(ctrl_out), SAVE :: o_budg_so2_to_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1228 'budg_so2_to_h2so4', 'SO2 to H2SO4 flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1229 TYPE(ctrl_out), SAVE :: o_budg_h2so4_to_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1230 'budg_h2so4_to_part', 'H2SO4 to part flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1231 TYPE(ctrl_out), SAVE :: o_budg_sed_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1232 'budg_sed_part', 'Ground sedimentation flux of strat. particles', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1233 !--tropopause height 1234 TYPE(ctrl_out), SAVE :: o_p_tropopause = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1235 'p_tropopause', 'Tropopause pressure', 'Pa', (/ ('', i=1, 10) /)) 1236 !--surface PM25 due to strat aerosol 1237 TYPE(ctrl_out), SAVE :: o_surf_PM25_sulf = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1238 'surf_PM25_sulf', 'Sulfate PM2.5 concentration at the surface', 'ug/m3', (/ ('', i=1, 10) /)) 1217 1239 #endif 1218 1240 1219 1241 !!!!!!!!!!!!!!!!!!!!!! 3D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1220 TYPE(ctrl_out), SAVE :: o_ec550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1221 'ec550aer', 'Extinction at 550nm', 'm^-1', (/ ('', i=1, 9) /))1222 TYPE(ctrl_out), SAVE :: o_lwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1223 'lwcon', 'Cloud liquid water content', 'kg/kg', (/ ('', i=1, 9) /))1224 TYPE(ctrl_out), SAVE :: o_iwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1225 'iwcon', 'Cloud ice water content', 'kg/kg', (/ ('', i=1, 9) /))1226 TYPE(ctrl_out), SAVE :: o_temp = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1227 'temp', 'Air temperature', 'K', (/ ('', i=1, 9) /))1228 TYPE(ctrl_out), SAVE :: o_theta = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1229 'theta', 'Potential air temperature', 'K', (/ ('', i=1, 9) /))1230 TYPE(ctrl_out), SAVE :: o_ovap = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1231 'ovap', 'Specific humidity', 'kg/kg', (/ ('', i=1, 9) /))1232 TYPE(ctrl_out), SAVE :: o_ovapinit = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1233 'ovapinit', 'Specific humidity (begin of timestep)', 'kg/kg', (/ ('', i=1, 9) /))1234 TYPE(ctrl_out), SAVE :: o_oliq = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1235 'oliq', 'Liquid water', 'kg/kg', (/ ('', i=1, 9) /))1236 TYPE(ctrl_out), SAVE :: o_ocond = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1237 'ocond', 'Condensed water', 'kg/kg', (/ ('', i=1, 9) /))1238 TYPE(ctrl_out), SAVE :: o_wvapp = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1239 'wvapp', '', '', (/ ('', i=1, 9) /))1240 TYPE(ctrl_out), SAVE :: o_geop = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1241 'geop', 'Geopotential height', 'm2/s2', (/ ('', i=1, 9) /))1242 TYPE(ctrl_out), SAVE :: o_vitu = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11 1243 'vitu', 'Zonal wind', 'm/s', (/ ('', i=1, 9) /))1244 TYPE(ctrl_out), SAVE :: o_vitv = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11 1245 'vitv', 'Meridional wind', 'm/s', (/ ('', i=1, 9) /))1246 TYPE(ctrl_out), SAVE :: o_vitw = ctrl_out((/ 2, 3, 10, 6, 10, 10, 11, 11, 11 1247 'vitw', 'Vertical wind', 'Pa/s', (/ ('', i=1, 9) /))1248 TYPE(ctrl_out), SAVE :: o_pres = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1249 'pres', 'Air pressure', 'Pa', (/ ('', i=1, 9) /))1250 TYPE(ctrl_out), SAVE :: o_paprs = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1251 'paprs', 'Air pressure Inter-Couches', 'Pa', (/ ('', i=1, 9) /))1252 TYPE(ctrl_out), SAVE :: o_mass = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1253 'mass', 'Masse Couches', 'kg/m2', (/ ('', i=1, 9) /))1254 TYPE(ctrl_out), SAVE :: o_zfull = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1255 'zfull', 'Altitude of full pressure levels', 'm', (/ ('', i=1, 9) /))1256 TYPE(ctrl_out), SAVE :: o_zhalf = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1257 'zhalf', 'Altitude of half pressure levels', 'm', (/ ('', i=1, 9) /))1258 TYPE(ctrl_out), SAVE :: o_rneb = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1259 'rneb', 'Cloud fraction', '-', (/ ('', i=1, 9) /))1260 TYPE(ctrl_out), SAVE :: o_rnebjn = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11,11 1261 'rnebjn', 'Cloud fraction in day', '-', (/ ('', i=1, 9) /))1262 TYPE(ctrl_out), SAVE :: o_rnebcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1263 'rnebcon', 'Convective Cloud Fraction', '-', (/ ('', i=1, 9) /))1264 TYPE(ctrl_out), SAVE :: o_rnebls = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1265 'rnebls', 'LS Cloud fraction', '-', (/ ('', i=1, 9) /))1266 TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1267 'rhum', 'Relative humidity', '-', (/ ('', i=1, 9) /))1268 TYPE(ctrl_out), SAVE :: o_ozone = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1269 'ozone', 'Ozone mole fraction', '-', (/ ('', i=1, 9) /))1270 TYPE(ctrl_out), SAVE :: o_ozone_light = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1271 'ozone_daylight', 'Daylight ozone mole fraction', '-', (/ ('', i=1, 9) /))1272 TYPE(ctrl_out), SAVE :: o_upwd = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1273 'upwd', 'saturated updraft', 'kg/m2/s', (/ ('', i=1, 9) /))1274 TYPE(ctrl_out), SAVE :: o_epmax_diag = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1275 'epmax', 'epmax en fn cape', 'su', (/ ('', i=1, 9) /))1276 TYPE(ctrl_out), SAVE :: o_ep = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1277 'ep', 'ep', 'su', (/ ('', i=1, 9) /))1278 TYPE(ctrl_out), SAVE :: o_duphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1279 'duphy', 'Physics du', 'm/s2', (/ ('', i=1, 9) /))1280 TYPE(ctrl_out), SAVE :: o_dtphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1281 'dtphy', 'Physics dT', 'K/s', (/ ('', i=1, 9) /))1282 TYPE(ctrl_out), SAVE :: o_dqphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1283 'dqphy', 'Physics dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))1284 TYPE(ctrl_out), SAVE :: o_dqphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1285 'dqphy2d', 'Physics dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))1286 TYPE(ctrl_out), SAVE :: o_dqlphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1287 'dqlphy', 'Physics dQL', '(kg/kg)/s', (/ ('', i=1, 9) /))1288 TYPE(ctrl_out), SAVE :: o_dqlphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1289 'dqlphy2d', 'Physics dQL', '(kg/m2)/s', (/ ('', i=1, 9) /))1290 TYPE(ctrl_out), SAVE :: o_dqsphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1291 'dqsphy', 'Physics dQS', '(kg/kg)/s', (/ ('', i=1, 9) /))1292 TYPE(ctrl_out), SAVE :: o_dqsphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1293 'dqsphy2d', 'Physics dQS', '(kg/m2)/s', (/ ('', i=1, 9) /))1294 TYPE(ctrl_out), SAVE :: o_pr_con_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1295 'pr_con_l', 'Convective precipitation lic', ' ', (/ ('', i=1, 9) /))1296 TYPE(ctrl_out), SAVE :: o_pr_con_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1297 'pr_con_i', 'Convective precipitation ice', ' ', (/ ('', i=1, 9) /))1298 TYPE(ctrl_out), SAVE :: o_pr_lsc_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1299 'pr_lsc_l', 'Large scale precipitation lic', ' ', (/ ('', i=1, 9) /))1300 TYPE(ctrl_out), SAVE :: o_pr_lsc_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1301 'pr_lsc_i', 'Large scale precipitation ice', ' ', (/ ('', i=1, 9) /))1302 TYPE(ctrl_out), SAVE :: o_re = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1303 're', 'Cloud droplet effective radius', 'um', (/ ('', i=1, 9) /))1304 TYPE(ctrl_out), SAVE :: o_fl = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1305 'fl', 'Denominator of Cloud droplet effective radius', ' ', (/ ('', i=1, 9) /))1306 TYPE(ctrl_out), SAVE :: o_scdnc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1307 'scdnc', 'Cloud droplet number concentration', 'm-3', (/ ('', i=1, 9) /))1308 TYPE(ctrl_out), SAVE :: o_reffclws = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1309 'reffclws', 'Stratiform Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 9) /))1310 TYPE(ctrl_out), SAVE :: o_reffclwc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1311 'reffclwc', 'Convective Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 9) /))1312 TYPE(ctrl_out), SAVE :: o_lcc3d = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1313 'lcc3d', 'Cloud liquid fraction', '1', (/ ('', i=1, 9) /))1314 TYPE(ctrl_out), SAVE :: o_lcc3dcon = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1315 'lcc3dcon', 'Convective cloud liquid fraction', '1', (/ ('', i=1, 9) /))1316 TYPE(ctrl_out), SAVE :: o_lcc3dstra = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1317 'lcc3dstra', 'Stratiform cloud liquid fraction', '1', (/ ('', i=1, 9) /))1318 TYPE(ctrl_out), SAVE :: o_stratomask = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1319 'stratomask', 'Stratospheric fraction', '1', (/ ('', i=1, 9) /))1242 TYPE(ctrl_out), SAVE :: o_ec550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1243 'ec550aer', 'Extinction at 550nm', 'm^-1', (/ ('', i=1, 10) /)) 1244 TYPE(ctrl_out), SAVE :: o_lwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1245 'lwcon', 'Cloud liquid water content', 'kg/kg', (/ ('', i=1, 10) /)) 1246 TYPE(ctrl_out), SAVE :: o_iwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1247 'iwcon', 'Cloud ice water content', 'kg/kg', (/ ('', i=1, 10) /)) 1248 TYPE(ctrl_out), SAVE :: o_temp = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1249 'temp', 'Air temperature', 'K', (/ ('', i=1, 10) /)) 1250 TYPE(ctrl_out), SAVE :: o_theta = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1251 'theta', 'Potential air temperature', 'K', (/ ('', i=1, 10) /)) 1252 TYPE(ctrl_out), SAVE :: o_ovap = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1253 'ovap', 'Specific humidity', 'kg/kg', (/ ('', i=1, 10) /)) 1254 TYPE(ctrl_out), SAVE :: o_ovapinit = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1255 'ovapinit', 'Specific humidity (begin of timestep)', 'kg/kg', (/ ('', i=1, 10) /)) 1256 TYPE(ctrl_out), SAVE :: o_oliq = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1257 'oliq', 'Liquid water', 'kg/kg', (/ ('', i=1, 10) /)) 1258 TYPE(ctrl_out), SAVE :: o_ocond = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1259 'ocond', 'Condensed water', 'kg/kg', (/ ('', i=1, 10) /)) 1260 TYPE(ctrl_out), SAVE :: o_wvapp = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1261 'wvapp', '', '', (/ ('', i=1, 10) /)) 1262 TYPE(ctrl_out), SAVE :: o_geop = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1263 'geop', 'Geopotential height', 'm2/s2', (/ ('', i=1, 10) /)) 1264 TYPE(ctrl_out), SAVE :: o_vitu = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11, 11/), & 1265 'vitu', 'Zonal wind', 'm/s', (/ ('', i=1, 10) /)) 1266 TYPE(ctrl_out), SAVE :: o_vitv = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11, 11/), & 1267 'vitv', 'Meridional wind', 'm/s', (/ ('', i=1, 10) /)) 1268 TYPE(ctrl_out), SAVE :: o_vitw = ctrl_out((/ 2, 3, 10, 6, 10, 10, 11, 11, 11, 11/), & 1269 'vitw', 'Vertical wind', 'Pa/s', (/ ('', i=1, 10) /)) 1270 TYPE(ctrl_out), SAVE :: o_pres = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1271 'pres', 'Air pressure', 'Pa', (/ ('', i=1, 10) /)) 1272 TYPE(ctrl_out), SAVE :: o_paprs = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1273 'paprs', 'Air pressure Inter-Couches', 'Pa', (/ ('', i=1, 10) /)) 1274 TYPE(ctrl_out), SAVE :: o_mass = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1275 'mass', 'Masse Couches', 'kg/m2', (/ ('', i=1, 10) /)) 1276 TYPE(ctrl_out), SAVE :: o_zfull = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1277 'zfull', 'Altitude of full pressure levels', 'm', (/ ('', i=1, 10) /)) 1278 TYPE(ctrl_out), SAVE :: o_zhalf = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1279 'zhalf', 'Altitude of half pressure levels', 'm', (/ ('', i=1, 10) /)) 1280 TYPE(ctrl_out), SAVE :: o_rneb = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1281 'rneb', 'Cloud fraction', '-', (/ ('', i=1, 10) /)) 1282 TYPE(ctrl_out), SAVE :: o_rnebjn = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11,11, 11/), & 1283 'rnebjn', 'Cloud fraction in day', '-', (/ ('', i=1, 10) /)) 1284 TYPE(ctrl_out), SAVE :: o_rnebcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1285 'rnebcon', 'Convective Cloud Fraction', '-', (/ ('', i=1, 10) /)) 1286 TYPE(ctrl_out), SAVE :: o_rnebls = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1287 'rnebls', 'LS Cloud fraction', '-', (/ ('', i=1, 10) /)) 1288 TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1289 'rhum', 'Relative humidity', '-', (/ ('', i=1, 10) /)) 1290 TYPE(ctrl_out), SAVE :: o_ozone = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1291 'ozone', 'Ozone mole fraction', '-', (/ ('', i=1, 10) /)) 1292 TYPE(ctrl_out), SAVE :: o_ozone_light = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1293 'ozone_daylight', 'Daylight ozone mole fraction', '-', (/ ('', i=1, 10) /)) 1294 TYPE(ctrl_out), SAVE :: o_upwd = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1295 'upwd', 'saturated updraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1296 TYPE(ctrl_out), SAVE :: o_epmax_diag = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1297 'epmax', 'epmax en fn cape', 'su', (/ ('', i=1, 10) /)) 1298 TYPE(ctrl_out), SAVE :: o_ep = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1299 'ep', 'ep', 'su', (/ ('', i=1, 10) /)) 1300 TYPE(ctrl_out), SAVE :: o_duphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1301 'duphy', 'Physics du', 'm/s2', (/ ('', i=1, 10) /)) 1302 TYPE(ctrl_out), SAVE :: o_dtphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1303 'dtphy', 'Physics dT', 'K/s', (/ ('', i=1, 10) /)) 1304 TYPE(ctrl_out), SAVE :: o_dqphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1305 'dqphy', 'Physics dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1306 TYPE(ctrl_out), SAVE :: o_dqphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1307 'dqphy2d', 'Physics dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1308 TYPE(ctrl_out), SAVE :: o_dqlphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1309 'dqlphy', 'Physics dQL', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1310 TYPE(ctrl_out), SAVE :: o_dqlphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1311 'dqlphy2d', 'Physics dQL', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1312 TYPE(ctrl_out), SAVE :: o_dqsphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1313 'dqsphy', 'Physics dQS', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1314 TYPE(ctrl_out), SAVE :: o_dqsphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1315 'dqsphy2d', 'Physics dQS', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1316 TYPE(ctrl_out), SAVE :: o_pr_con_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1317 'pr_con_l', 'Convective precipitation lic', ' ', (/ ('', i=1, 10) /)) 1318 TYPE(ctrl_out), SAVE :: o_pr_con_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1319 'pr_con_i', 'Convective precipitation ice', ' ', (/ ('', i=1, 10) /)) 1320 TYPE(ctrl_out), SAVE :: o_pr_lsc_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1321 'pr_lsc_l', 'Large scale precipitation lic', ' ', (/ ('', i=1, 10) /)) 1322 TYPE(ctrl_out), SAVE :: o_pr_lsc_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1323 'pr_lsc_i', 'Large scale precipitation ice', ' ', (/ ('', i=1, 10) /)) 1324 TYPE(ctrl_out), SAVE :: o_re = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1325 're', 'Cloud droplet effective radius', 'um', (/ ('', i=1, 10) /)) 1326 TYPE(ctrl_out), SAVE :: o_fl = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1327 'fl', 'Denominator of Cloud droplet effective radius', ' ', (/ ('', i=1, 10) /)) 1328 TYPE(ctrl_out), SAVE :: o_scdnc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1329 'scdnc', 'Cloud droplet number concentration', 'm-3', (/ ('', i=1, 10) /)) 1330 TYPE(ctrl_out), SAVE :: o_reffclws = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1331 'reffclws', 'Stratiform Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 10) /)) 1332 TYPE(ctrl_out), SAVE :: o_reffclwc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1333 'reffclwc', 'Convective Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 10) /)) 1334 TYPE(ctrl_out), SAVE :: o_lcc3d = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1335 'lcc3d', 'Cloud liquid fraction', '1', (/ ('', i=1, 10) /)) 1336 TYPE(ctrl_out), SAVE :: o_lcc3dcon = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1337 'lcc3dcon', 'Convective cloud liquid fraction', '1', (/ ('', i=1, 10) /)) 1338 TYPE(ctrl_out), SAVE :: o_lcc3dstra = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1339 'lcc3dstra', 'Stratiform cloud liquid fraction', '1', (/ ('', i=1, 10) /)) 1340 TYPE(ctrl_out), SAVE :: o_stratomask = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1341 'stratomask', 'Stratospheric fraction', '1', (/ ('', i=1, 10) /)) 1320 1342 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1321 1343 1322 1344 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_albe_srf = (/ & 1323 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_ter', "Albedo VIS surf. "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &1324 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_lic', "Albedo VIS surf. "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &1325 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_oce', "Albedo VIS surf. "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &1326 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_sic', "Albedo VIS surf. "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)1345 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_ter', "Albedo VIS surf. "//clnsurf(1),"-", (/ ('', i=1, 10) /)), & 1346 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_lic', "Albedo VIS surf. "//clnsurf(2),"-", (/ ('', i=1, 10) /)), & 1347 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_oce', "Albedo VIS surf. "//clnsurf(3),"-", (/ ('', i=1, 10) /)), & 1348 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_sic', "Albedo VIS surf. "//clnsurf(4),"-", (/ ('', i=1, 10) /)) /) 1327 1349 1328 1350 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_ages_srf = (/ & 1329 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_ter', "Snow age", "day", (/ ('', i=1, 9) /)), &1330 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_lic', "Snow age", "day", (/ ('', i=1, 9) /)), &1331 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_oce',"Snow age", "day", (/ ('', i=1, 9) /)), &1332 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_sic',"Snow age", "day", (/ ('', i=1, 9) /)) /)1351 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_ter', "Snow age", "day", (/ ('', i=1, 10) /)), & 1352 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_lic', "Snow age", "day", (/ ('', i=1, 10) /)), & 1353 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_oce',"Snow age", "day", (/ ('', i=1, 10) /)), & 1354 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_sic',"Snow age", "day", (/ ('', i=1, 10) /)) /) 1333 1355 1334 1356 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_snow_srf = (/ & 1335 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_ter', "Snow", "kg/m2", (/ ('', i=1, 9) /)), &1336 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_lic', "Snow", "kg/m2", (/ ('', i=1, 9) /)), &1337 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_oce',"Snow", "kg/m2", (/ ('', i=1, 9) /)), &1338 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_sic',"Snow", "kg/m2", (/ ('', i=1, 9) /)) /)1357 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_ter', "Snow", "kg/m2", (/ ('', i=1, 10) /)), & 1358 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_lic', "Snow", "kg/m2", (/ ('', i=1, 10) /)), & 1359 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_oce',"Snow", "kg/m2", (/ ('', i=1, 10) /)), & 1360 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_sic',"Snow", "kg/m2", (/ ('', i=1, 10) /)) /) 1339 1361 1340 1362 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_z0m_srf = (/ & 1341 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &1342 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &1343 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &1344 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)1363 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 1364 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 1365 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 1366 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 1345 1367 1346 1368 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_z0h_srf = (/ & 1347 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &1348 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &1349 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &1350 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)1351 1352 TYPE(ctrl_out), SAVE :: o_alb1 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 1353 'alb1', 'Surface VIS albedo', '-', (/ ('', i=1, 9) /))1354 TYPE(ctrl_out), SAVE :: o_alb2 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 1355 'alb2', 'Surface Near IR albedo', '-', (/ ('', i=1, 9) /))1356 TYPE(ctrl_out), SAVE :: o_clwcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1357 'clwcon', 'Convective Cloud Liquid water content', 'kg/kg', (/ ('', i=1, 9) /))1358 TYPE(ctrl_out), SAVE :: o_Ma = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1359 'Ma', 'undilute adiab updraft', 'kg/m2/s', (/ ('', i=1, 9) /))1360 TYPE(ctrl_out), SAVE :: o_dnwd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1361 'dnwd', 'saturated downdraft', 'kg/m2/s', (/ ('', i=1, 9) /))1362 TYPE(ctrl_out), SAVE :: o_dnwd0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1363 'dnwd0', 'unsat. downdraft', 'kg/m2/s', (/ ('', i=1, 9) /))1364 TYPE(ctrl_out), SAVE :: o_mc = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 1365 'mc', 'Convective mass flux', 'kg/m2/s', (/ ('', i=1, 9) /))1366 TYPE(ctrl_out), SAVE :: o_ftime_con = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1369 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 1370 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 1371 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 1372 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 1373 1374 TYPE(ctrl_out), SAVE :: o_alb1 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1375 'alb1', 'Surface VIS albedo', '-', (/ ('', i=1, 10) /)) 1376 TYPE(ctrl_out), SAVE :: o_alb2 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1377 'alb2', 'Surface Near IR albedo', '-', (/ ('', i=1, 10) /)) 1378 TYPE(ctrl_out), SAVE :: o_clwcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1379 'clwcon', 'Convective Cloud Liquid water content', 'kg/kg', (/ ('', i=1, 10) /)) 1380 TYPE(ctrl_out), SAVE :: o_Ma = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1381 'Ma', 'undilute adiab updraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1382 TYPE(ctrl_out), SAVE :: o_dnwd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1383 'dnwd', 'saturated downdraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1384 TYPE(ctrl_out), SAVE :: o_dnwd0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1385 'dnwd0', 'unsat. downdraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1386 TYPE(ctrl_out), SAVE :: o_mc = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1387 'mc', 'Convective mass flux', 'kg/m2/s', (/ ('', i=1, 10) /)) 1388 TYPE(ctrl_out), SAVE :: o_ftime_con = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1367 1389 'ftime_con', 'Fraction of time convection Occurs', ' ', & 1368 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) 1369 TYPE(ctrl_out), SAVE :: o_dtdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1370 'dtdyn', 'Dynamics dT', 'K/s', (/ ('', i=1, 9) /)) 1371 TYPE(ctrl_out), SAVE :: o_dqdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1372 'dqdyn', 'Dynamics dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1373 TYPE(ctrl_out), SAVE :: o_dqdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1374 'dqdyn2d', 'Dynamics dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1375 TYPE(ctrl_out), SAVE :: o_dqldyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1376 'dqldyn', 'Dynamics dQL', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1377 TYPE(ctrl_out), SAVE :: o_dqldyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1378 'dqldyn2d', 'Dynamics dQL', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1379 TYPE(ctrl_out), SAVE :: o_dqsdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1380 'dqsdyn', 'Dynamics dQS', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1381 TYPE(ctrl_out), SAVE :: o_dqsdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1382 'dqsdyn2d', 'Dynamics dQS', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1383 TYPE(ctrl_out), SAVE :: o_dudyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1384 'dudyn', 'Dynamics dU', 'm/s2', (/ ('', i=1, 9) /)) 1385 TYPE(ctrl_out), SAVE :: o_dvdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1386 'dvdyn', 'Dynamics dV', 'm/s2', (/ ('', i=1, 9) /)) 1387 TYPE(ctrl_out), SAVE :: o_dtcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1388 'dtcon', 'Convection dT', 'K/s', (/ ('', i=1, 9) /)) 1389 TYPE(ctrl_out), SAVE :: o_ducon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1390 'ducon', 'Convection du', 'm/s2', (/ ('', i=1, 9) /)) 1391 TYPE(ctrl_out), SAVE :: o_dvcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1392 'dvcon', 'Convection dv', 'm/s2', (/ ('', i=1, 9) /)) 1393 TYPE(ctrl_out), SAVE :: o_dqcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1394 'dqcon', 'Convection dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1395 TYPE(ctrl_out), SAVE :: o_dqcon2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1396 'dqcon2d', 'Convection dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1397 TYPE(ctrl_out), SAVE :: o_dtwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1398 'dtwak', 'Wake dT', 'K/s', (/ ('', i=1, 9) /)) 1399 TYPE(ctrl_out), SAVE :: o_dqwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1400 'dqwak', 'Wake dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1401 TYPE(ctrl_out), SAVE :: o_dqwak2d = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1402 'dqwak2d', 'Wake dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1403 TYPE(ctrl_out), SAVE :: o_wake_h = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1404 'wake_h', 'wake_h', '-', (/ ('', i=1, 9) /)) 1405 TYPE(ctrl_out), SAVE :: o_wake_s = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1406 'wake_s', 'wake_s', '-', (/ ('', i=1, 9) /)) 1407 TYPE(ctrl_out), SAVE :: o_wake_deltat = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1408 'wake_deltat', 'wake_deltat', ' ', (/ ('', i=1, 9) /)) 1409 TYPE(ctrl_out), SAVE :: o_wake_deltaq = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1410 'wake_deltaq', 'wake_deltaq', ' ', (/ ('', i=1, 9) /)) 1411 TYPE(ctrl_out), SAVE :: o_wake_omg = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1412 'wake_omg', 'wake_omg', ' ', (/ ('', i=1, 9) /)) 1413 TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 110 /), & 1414 'wdtrainA', 'precipitation from AA', '-', (/ ('', i=1, 9) /)) 1415 TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 110 /), & 1416 'wdtrainM', 'precipitation from mixture', '-', (/ ('', i=1, 9) /)) 1417 TYPE(ctrl_out), SAVE :: o_Vprecip = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1418 'Vprecip', 'precipitation vertical profile', '-', (/ ('', i=1, 9) /)) 1419 TYPE(ctrl_out), SAVE :: o_ftd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1420 'ftd', 'tend temp due aux descentes precip', '-', (/ ('', i=1, 9) /)) 1421 TYPE(ctrl_out), SAVE :: o_fqd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1422 'fqd', 'tend vap eau due aux descentes precip', '-', (/ ('', i=1, 9) /)) 1423 TYPE(ctrl_out), SAVE :: o_dtlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1424 'dtlsc', 'Condensation dT', 'K/s', (/ ('', i=1, 9) /)) 1425 TYPE(ctrl_out), SAVE :: o_dtlschr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1426 'dtlschr', 'Large-scale condensational heating rate', 'K/s', (/ ('', i=1, 9) /)) 1427 TYPE(ctrl_out), SAVE :: o_dqlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1428 'dqlsc', 'Condensation dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1429 TYPE(ctrl_out), SAVE :: o_dqlsc2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1430 'dqlsc2d', 'Condensation dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1431 TYPE(ctrl_out), SAVE :: o_beta_prec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1432 'beta_prec', 'LS Conversion rate to prec', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1433 TYPE(ctrl_out), SAVE :: o_dtvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1434 'dtvdf', 'Boundary-layer dT', 'K/s', (/ ('', i=1, 9) /)) 1435 TYPE(ctrl_out), SAVE :: o_dtdis = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1436 'dtdis', 'TKE dissipation dT', 'K/s', (/ ('', i=1, 9) /)) 1437 TYPE(ctrl_out), SAVE :: o_dqvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1438 'dqvdf', 'Boundary-layer dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1439 TYPE(ctrl_out), SAVE :: o_dqvdf2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1440 'dqvdf2d', 'Boundary-layer dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1441 TYPE(ctrl_out), SAVE :: o_dteva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1442 'dteva', 'Reevaporation dT', 'K/s', (/ ('', i=1, 9) /)) 1443 TYPE(ctrl_out), SAVE :: o_dqeva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1444 'dqeva', 'Reevaporation dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1445 TYPE(ctrl_out), SAVE :: o_dqeva2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1446 'dqeva2d', 'Reevaporation dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1390 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', & 1391 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) 1392 TYPE(ctrl_out), SAVE :: o_dtdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1393 'dtdyn', 'Dynamics dT', 'K/s', (/ ('', i=1, 10) /)) 1394 TYPE(ctrl_out), SAVE :: o_dqdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1395 'dqdyn', 'Dynamics dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1396 TYPE(ctrl_out), SAVE :: o_dqdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1397 'dqdyn2d', 'Dynamics dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1398 TYPE(ctrl_out), SAVE :: o_dqldyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1399 'dqldyn', 'Dynamics dQL', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1400 TYPE(ctrl_out), SAVE :: o_dqldyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1401 'dqldyn2d', 'Dynamics dQL', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1402 TYPE(ctrl_out), SAVE :: o_dqsdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1403 'dqsdyn', 'Dynamics dQS', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1404 TYPE(ctrl_out), SAVE :: o_dqsdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1405 'dqsdyn2d', 'Dynamics dQS', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1406 TYPE(ctrl_out), SAVE :: o_dudyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1407 'dudyn', 'Dynamics dU', 'm/s2', (/ ('', i=1, 10) /)) 1408 TYPE(ctrl_out), SAVE :: o_dvdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1409 'dvdyn', 'Dynamics dV', 'm/s2', (/ ('', i=1, 10) /)) 1410 TYPE(ctrl_out), SAVE :: o_dtcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1411 'dtcon', 'Convection dT', 'K/s', (/ ('', i=1, 10) /)) 1412 TYPE(ctrl_out), SAVE :: o_ducon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1413 'ducon', 'Convection du', 'm/s2', (/ ('', i=1, 10) /)) 1414 TYPE(ctrl_out), SAVE :: o_dvcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1415 'dvcon', 'Convection dv', 'm/s2', (/ ('', i=1, 10) /)) 1416 TYPE(ctrl_out), SAVE :: o_dqcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1417 'dqcon', 'Convection dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1418 TYPE(ctrl_out), SAVE :: o_dqcon2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1419 'dqcon2d', 'Convection dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1420 TYPE(ctrl_out), SAVE :: o_dtwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1421 'dtwak', 'Wake dT', 'K/s', (/ ('', i=1, 10) /)) 1422 TYPE(ctrl_out), SAVE :: o_dqwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1423 'dqwak', 'Wake dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1424 TYPE(ctrl_out), SAVE :: o_dqwak2d = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1425 'dqwak2d', 'Wake dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1426 TYPE(ctrl_out), SAVE :: o_wake_h = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1427 'wake_h', 'wake_h', '-', (/ ('', i=1, 10) /)) 1428 TYPE(ctrl_out), SAVE :: o_wake_s = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1429 'wake_s', 'wake_s', '-', (/ ('', i=1, 10) /)) 1430 TYPE(ctrl_out), SAVE :: o_wake_deltat = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1431 'wake_deltat', 'wake_deltat', ' ', (/ ('', i=1, 10) /)) 1432 TYPE(ctrl_out), SAVE :: o_wake_deltaq = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1433 'wake_deltaq', 'wake_deltaq', ' ', (/ ('', i=1, 10) /)) 1434 TYPE(ctrl_out), SAVE :: o_wake_omg = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1435 'wake_omg', 'wake_omg', ' ', (/ ('', i=1, 10) /)) 1436 TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 11, 11 /), & 1437 'wdtrainA', 'precipitation from AA', '-', (/ ('', i=1, 10) /)) 1438 TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 11, 11 /), & 1439 'wdtrainM', 'precipitation from mixture', '-', (/ ('', i=1, 10) /)) 1440 TYPE(ctrl_out), SAVE :: o_Vprecip = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1441 'Vprecip', 'precipitation vertical profile', '-', (/ ('', i=1, 10) /)) 1442 TYPE(ctrl_out), SAVE :: o_ftd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1443 'ftd', 'tend temp due aux descentes precip', '-', (/ ('', i=1, 10) /)) 1444 TYPE(ctrl_out), SAVE :: o_fqd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1445 'fqd', 'tend vap eau due aux descentes precip', '-', (/ ('', i=1, 10) /)) 1446 TYPE(ctrl_out), SAVE :: o_dtlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1447 'dtlsc', 'Condensation dT', 'K/s', (/ ('', i=1, 10) /)) 1448 TYPE(ctrl_out), SAVE :: o_dtlschr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1449 'dtlschr', 'Large-scale condensational heating rate', 'K/s', (/ ('', i=1, 10) /)) 1450 TYPE(ctrl_out), SAVE :: o_dqlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1451 'dqlsc', 'Condensation dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1452 TYPE(ctrl_out), SAVE :: o_dqlsc2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1453 'dqlsc2d', 'Condensation dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1454 TYPE(ctrl_out), SAVE :: o_beta_prec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1455 'beta_prec', 'LS Conversion rate to prec', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1456 TYPE(ctrl_out), SAVE :: o_dtvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1457 'dtvdf', 'Boundary-layer dT', 'K/s', (/ ('', i=1, 10) /)) 1458 TYPE(ctrl_out), SAVE :: o_dtdis = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1459 'dtdis', 'TKE dissipation dT', 'K/s', (/ ('', i=1, 10) /)) 1460 TYPE(ctrl_out), SAVE :: o_dqvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1461 'dqvdf', 'Boundary-layer dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1462 TYPE(ctrl_out), SAVE :: o_dqvdf2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1463 'dqvdf2d', 'Boundary-layer dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1464 TYPE(ctrl_out), SAVE :: o_dteva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1465 'dteva', 'Reevaporation dT', 'K/s', (/ ('', i=1, 10) /)) 1466 TYPE(ctrl_out), SAVE :: o_dqeva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1467 'dqeva', 'Reevaporation dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1468 TYPE(ctrl_out), SAVE :: o_dqeva2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1469 'dqeva2d', 'Reevaporation dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1447 1470 1448 1471 !!!!!!!!!!!!!!!! Specifique thermiques 1449 TYPE(ctrl_out), SAVE :: o_dqlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1450 'dqlscth', 'dQ therm.', '(kg/kg)/s', (/ ('', i=1, 9) /))1451 TYPE(ctrl_out), SAVE :: o_dqlscth2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1452 'dqlscth2d', 'dQ therm.', '(kg/m2)/s', (/ ('', i=1, 9) /))1453 TYPE(ctrl_out), SAVE :: o_dqlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1454 'dqlscst', 'dQ strat.', '(kg/kg)/s', (/ ('', i=1, 9) /))1455 TYPE(ctrl_out), SAVE :: o_dqlscst2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1456 'dqlscst2d', 'dQ strat.', '(kg/m2)/s', (/ ('', i=1, 9) /))1457 TYPE(ctrl_out), SAVE :: o_dtlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1458 'dtlscth', 'dQ therm.', 'K/s', (/ ('', i=1, 9) /))1459 TYPE(ctrl_out), SAVE :: o_dtlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1460 'dtlscst', 'dQ strat.', 'K/s', (/ ('', i=1, 9) /))1461 TYPE(ctrl_out), SAVE :: o_plulth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1462 'plulth', 'Rainfall therm.', 'K/s', (/ ('', i=1, 9) /))1463 TYPE(ctrl_out), SAVE :: o_plulst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1464 'plulst', 'Rainfall strat.', 'K/s', (/ ('', i=1, 9) /))1465 TYPE(ctrl_out), SAVE :: o_lmaxth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1466 'lmaxth', "Upper level thermals", "", (/ ('', i=1, 9) /))1467 TYPE(ctrl_out), SAVE :: o_ptconvth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1468 'ptconvth', 'POINTS CONVECTIFS therm.', ' ', (/ ('', i=1, 9) /))1472 TYPE(ctrl_out), SAVE :: o_dqlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1473 'dqlscth', 'dQ therm.', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1474 TYPE(ctrl_out), SAVE :: o_dqlscth2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1475 'dqlscth2d', 'dQ therm.', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1476 TYPE(ctrl_out), SAVE :: o_dqlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1477 'dqlscst', 'dQ strat.', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1478 TYPE(ctrl_out), SAVE :: o_dqlscst2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1479 'dqlscst2d', 'dQ strat.', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1480 TYPE(ctrl_out), SAVE :: o_dtlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1481 'dtlscth', 'dQ therm.', 'K/s', (/ ('', i=1, 10) /)) 1482 TYPE(ctrl_out), SAVE :: o_dtlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1483 'dtlscst', 'dQ strat.', 'K/s', (/ ('', i=1, 10) /)) 1484 TYPE(ctrl_out), SAVE :: o_plulth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1485 'plulth', 'Rainfall therm.', 'K/s', (/ ('', i=1, 10) /)) 1486 TYPE(ctrl_out), SAVE :: o_plulst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1487 'plulst', 'Rainfall strat.', 'K/s', (/ ('', i=1, 10) /)) 1488 TYPE(ctrl_out), SAVE :: o_lmaxth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1489 'lmaxth', "Upper level thermals", "", (/ ('', i=1, 10) /)) 1490 TYPE(ctrl_out), SAVE :: o_ptconvth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1491 'ptconvth', 'POINTS CONVECTIFS therm.', ' ', (/ ('', i=1, 10) /)) 1469 1492 !!!!!!!!!!!!!!!!!!!!!!!! 1470 TYPE(ctrl_out), SAVE :: o_ptconv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1471 'ptconv', 'POINTS CONVECTIFS', ' ', (/ ('', i=1, 9) /))1472 TYPE(ctrl_out), SAVE :: o_ratqs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1473 'ratqs', 'RATQS', ' ', (/ ('', i=1, 9) /))1474 TYPE(ctrl_out), SAVE :: o_dtthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1475 'dtthe', 'Thermal dT', 'K/s', (/ ('', i=1, 9) /))1476 TYPE(ctrl_out), SAVE :: o_duthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1477 'duthe', 'Thermal du', 'm/s2', (/ ('', i=1, 9) /))1478 TYPE(ctrl_out), SAVE :: o_dvthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1479 'dvthe', 'Thermal dv', 'm/s2', (/ ('', i=1, 9) /))1480 TYPE(ctrl_out), SAVE :: o_f_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1481 'f_th', 'Thermal plume mass flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))1482 TYPE(ctrl_out), SAVE :: o_e_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1483 'e_th', 'Thermal plume entrainment', 'K/s', (/ ('', i=1, 9) /))1484 TYPE(ctrl_out), SAVE :: o_w_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1485 'w_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 9) /))1486 TYPE(ctrl_out), SAVE :: o_lambda_th = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1487 'lambda_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 9) /))1488 TYPE(ctrl_out), SAVE :: o_ftime_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1489 'ftime_th', 'Fraction of time Shallow convection occurs', ' ', (/ ('', i=1, 9) /))1490 TYPE(ctrl_out), SAVE :: o_q_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1491 'q_th', 'Thermal plume total humidity', 'kg/kg', (/ ('', i=1, 9) /))1492 TYPE(ctrl_out), SAVE :: o_a_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1493 'a_th', "Thermal plume fraction", "", (/ ('', i=1, 9) /))1494 TYPE(ctrl_out), SAVE :: o_d_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1495 'd_th', 'Thermal plume detrainment', 'K/s', (/ ('', i=1, 9) /))1496 TYPE(ctrl_out), SAVE :: o_f0_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1497 'f0_th', 'Thermal closure mass flux', 'K/s', (/ ('', i=1, 9) /))1498 TYPE(ctrl_out), SAVE :: o_zmax_th = ctrl_out((/ 4, 4, 4, 5, 10, 10, 11, 11, 11 1499 'zmax_th', 'Thermal plume height', 'K/s', (/ ('', i=1, 9) /))1500 TYPE(ctrl_out), SAVE :: o_dqthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1501 'dqthe', 'Thermal dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))1502 TYPE(ctrl_out), SAVE :: o_dqthe2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1503 'dqthe2d', 'Thermal dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))1504 TYPE(ctrl_out), SAVE :: o_dtajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1505 'dtajs', 'Dry adjust. dT', 'K/s', (/ ('', i=1, 9) /))1506 TYPE(ctrl_out), SAVE :: o_dqajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1507 'dqajs', 'Dry adjust. dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))1508 TYPE(ctrl_out), SAVE :: o_dqajs2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1509 'dqajs2d', 'Dry adjust. dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))1510 TYPE(ctrl_out), SAVE :: o_dtswr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1511 'dtswr', 'SW radiation dT', 'K/s', (/ ('', i=1, 9) /))1512 TYPE(ctrl_out), SAVE :: o_dtsw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1513 'dtsw0', 'CS SW radiation dT', 'K/s', (/ ('', i=1, 9) /))1514 TYPE(ctrl_out), SAVE :: o_dtlwr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1515 'dtlwr', 'LW radiation dT', 'K/s', (/ ('', i=1, 9) /))1516 TYPE(ctrl_out), SAVE :: o_dtlw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1517 'dtlw0', 'CS LW radiation dT', 'K/s', (/ ('', i=1, 9) /))1518 TYPE(ctrl_out), SAVE :: o_dtec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1519 'dtec', 'Cinetic dissip dT', 'K/s', (/ ('', i=1, 9) /))1520 TYPE(ctrl_out), SAVE :: o_duvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1521 'duvdf', 'Boundary-layer dU', 'm/s2', (/ ('', i=1, 9) /))1522 TYPE(ctrl_out), SAVE :: o_dvvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1523 'dvvdf', 'Boundary-layer dV', 'm/s2', (/ ('', i=1, 9) /))1524 TYPE(ctrl_out), SAVE :: o_duoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1525 'duoro', 'Orography dU', 'm/s2', (/ ('', i=1, 9) /))1526 TYPE(ctrl_out), SAVE :: o_dvoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1527 'dvoro', 'Orography dV', 'm/s2', (/ ('', i=1, 9) /))1528 TYPE(ctrl_out), SAVE :: o_dulif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1529 'dulif', 'Orography dU', 'm/s2', (/ ('', i=1, 9) /))1530 TYPE(ctrl_out), SAVE :: o_dvlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1531 'dvlif', 'Orography dV', 'm/s2', (/ ('', i=1, 9) /))1532 TYPE(ctrl_out), SAVE :: o_du_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1533 'du_gwd_hines', 'Hines GWD dU', 'm/s2', (/ ('', i=1, 9) /))1534 TYPE(ctrl_out), SAVE :: o_dv_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1535 'dv_gwd_hines', 'Hines GWD dV', 'm/s2', (/ ('', i=1, 9) /))1536 TYPE(ctrl_out), SAVE :: o_du_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1537 'du_gwd_front', 'Fronts GWD dU', 'm/s2', (/ ('', i=1, 9) /))1538 TYPE(ctrl_out), SAVE :: o_dv_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1539 'dv_gwd_front', 'Fronts GWD dV', 'm/s2', (/ ('', i=1, 9) /))1540 TYPE(ctrl_out), SAVE :: o_east_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1541 'east_gwstress', 'Eastward GW Stress', 'Pa', (/ ('', i=1, 9) /))1542 TYPE(ctrl_out), SAVE :: o_west_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1543 'west_gwstress', 'Westward GW Stress', 'Pa', (/ ('', i=1, 9) /))1544 TYPE(ctrl_out), SAVE :: o_dtoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1545 'dtoro', 'Orography dT', 'K/s', (/ ('', i=1, 9) /))1546 TYPE(ctrl_out), SAVE :: o_dtlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1547 'dtlif', 'Orography dT', 'K/s', (/ ('', i=1, 9) /))1548 TYPE(ctrl_out), SAVE :: o_dthin = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1549 'dthin', 'Hines GWD dT', 'K/s', (/ ('', i=1, 9) /))1550 TYPE(ctrl_out), SAVE :: o_dqch4 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1551 'dqch4', 'H2O due to CH4 oxidation & photolysis', '(kg/kg)/s', (/ ('', i=1, 9) /))1493 TYPE(ctrl_out), SAVE :: o_ptconv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1494 'ptconv', 'POINTS CONVECTIFS', ' ', (/ ('', i=1, 10) /)) 1495 TYPE(ctrl_out), SAVE :: o_ratqs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1496 'ratqs', 'RATQS', ' ', (/ ('', i=1, 10) /)) 1497 TYPE(ctrl_out), SAVE :: o_dtthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1498 'dtthe', 'Thermal dT', 'K/s', (/ ('', i=1, 10) /)) 1499 TYPE(ctrl_out), SAVE :: o_duthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1500 'duthe', 'Thermal du', 'm/s2', (/ ('', i=1, 10) /)) 1501 TYPE(ctrl_out), SAVE :: o_dvthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1502 'dvthe', 'Thermal dv', 'm/s2', (/ ('', i=1, 10) /)) 1503 TYPE(ctrl_out), SAVE :: o_f_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1504 'f_th', 'Thermal plume mass flux', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1505 TYPE(ctrl_out), SAVE :: o_e_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1506 'e_th', 'Thermal plume entrainment', 'K/s', (/ ('', i=1, 10) /)) 1507 TYPE(ctrl_out), SAVE :: o_w_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1508 'w_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 10) /)) 1509 TYPE(ctrl_out), SAVE :: o_lambda_th = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1510 'lambda_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 10) /)) 1511 TYPE(ctrl_out), SAVE :: o_ftime_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1512 'ftime_th', 'Fraction of time Shallow convection occurs', ' ', (/ ('', i=1, 10) /)) 1513 TYPE(ctrl_out), SAVE :: o_q_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1514 'q_th', 'Thermal plume total humidity', 'kg/kg', (/ ('', i=1, 10) /)) 1515 TYPE(ctrl_out), SAVE :: o_a_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1516 'a_th', "Thermal plume fraction", "", (/ ('', i=1, 10) /)) 1517 TYPE(ctrl_out), SAVE :: o_d_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1518 'd_th', 'Thermal plume detrainment', 'K/s', (/ ('', i=1, 10) /)) 1519 TYPE(ctrl_out), SAVE :: o_f0_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1520 'f0_th', 'Thermal closure mass flux', 'K/s', (/ ('', i=1, 10) /)) 1521 TYPE(ctrl_out), SAVE :: o_zmax_th = ctrl_out((/ 4, 4, 4, 5, 10, 10, 11, 11, 11, 11/), & 1522 'zmax_th', 'Thermal plume height', 'K/s', (/ ('', i=1, 10) /)) 1523 TYPE(ctrl_out), SAVE :: o_dqthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1524 'dqthe', 'Thermal dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1525 TYPE(ctrl_out), SAVE :: o_dqthe2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1526 'dqthe2d', 'Thermal dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1527 TYPE(ctrl_out), SAVE :: o_dtajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1528 'dtajs', 'Dry adjust. dT', 'K/s', (/ ('', i=1, 10) /)) 1529 TYPE(ctrl_out), SAVE :: o_dqajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1530 'dqajs', 'Dry adjust. dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1531 TYPE(ctrl_out), SAVE :: o_dqajs2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1532 'dqajs2d', 'Dry adjust. dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1533 TYPE(ctrl_out), SAVE :: o_dtswr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1534 'dtswr', 'SW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1535 TYPE(ctrl_out), SAVE :: o_dtsw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1536 'dtsw0', 'CS SW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1537 TYPE(ctrl_out), SAVE :: o_dtlwr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1538 'dtlwr', 'LW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1539 TYPE(ctrl_out), SAVE :: o_dtlw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1540 'dtlw0', 'CS LW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1541 TYPE(ctrl_out), SAVE :: o_dtec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1542 'dtec', 'Cinetic dissip dT', 'K/s', (/ ('', i=1, 10) /)) 1543 TYPE(ctrl_out), SAVE :: o_duvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1544 'duvdf', 'Boundary-layer dU', 'm/s2', (/ ('', i=1, 10) /)) 1545 TYPE(ctrl_out), SAVE :: o_dvvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1546 'dvvdf', 'Boundary-layer dV', 'm/s2', (/ ('', i=1, 10) /)) 1547 TYPE(ctrl_out), SAVE :: o_duoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1548 'duoro', 'Orography dU', 'm/s2', (/ ('', i=1, 10) /)) 1549 TYPE(ctrl_out), SAVE :: o_dvoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1550 'dvoro', 'Orography dV', 'm/s2', (/ ('', i=1, 10) /)) 1551 TYPE(ctrl_out), SAVE :: o_dulif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1552 'dulif', 'Orography dU', 'm/s2', (/ ('', i=1, 10) /)) 1553 TYPE(ctrl_out), SAVE :: o_dvlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1554 'dvlif', 'Orography dV', 'm/s2', (/ ('', i=1, 10) /)) 1555 TYPE(ctrl_out), SAVE :: o_du_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1556 'du_gwd_hines', 'Hines GWD dU', 'm/s2', (/ ('', i=1, 10) /)) 1557 TYPE(ctrl_out), SAVE :: o_dv_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1558 'dv_gwd_hines', 'Hines GWD dV', 'm/s2', (/ ('', i=1, 10) /)) 1559 TYPE(ctrl_out), SAVE :: o_du_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1560 'du_gwd_front', 'Fronts GWD dU', 'm/s2', (/ ('', i=1, 10) /)) 1561 TYPE(ctrl_out), SAVE :: o_dv_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1562 'dv_gwd_front', 'Fronts GWD dV', 'm/s2', (/ ('', i=1, 10) /)) 1563 TYPE(ctrl_out), SAVE :: o_east_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1564 'east_gwstress', 'Eastward GW Stress', 'Pa', (/ ('', i=1, 10) /)) 1565 TYPE(ctrl_out), SAVE :: o_west_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1566 'west_gwstress', 'Westward GW Stress', 'Pa', (/ ('', i=1, 10) /)) 1567 TYPE(ctrl_out), SAVE :: o_dtoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1568 'dtoro', 'Orography dT', 'K/s', (/ ('', i=1, 10) /)) 1569 TYPE(ctrl_out), SAVE :: o_dtlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1570 'dtlif', 'Orography dT', 'K/s', (/ ('', i=1, 10) /)) 1571 TYPE(ctrl_out), SAVE :: o_dthin = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1572 'dthin', 'Hines GWD dT', 'K/s', (/ ('', i=1, 10) /)) 1573 TYPE(ctrl_out), SAVE :: o_dqch4 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1574 'dqch4', 'H2O due to CH4 oxidation & photolysis', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1552 1575 1553 1576 type(ctrl_out), save:: o_du_gwd_rando & 1554 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1555 "Random gravity waves dU/dt", "m/s2", (/ ('', i=1, 9) /))1577 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'du_gwd_rando', & 1578 "Random gravity waves dU/dt", "m/s2", (/ ('', i=1, 10) /)) 1556 1579 type(ctrl_out), save:: o_dv_gwd_rando & 1557 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1558 "Random gravity waves dV/dt", "m/s2", (/ ('', i=1, 9) /))1580 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'dv_gwd_rando', & 1581 "Random gravity waves dV/dt", "m/s2", (/ ('', i=1, 10) /)) 1559 1582 type(ctrl_out), save:: o_ustr_gwd_hines & 1560 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1561 "zonal wind stress Hines gravity waves", "Pa", (/ ('', i=1, 9) /))1583 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'ustr_gwd_hines', & 1584 "zonal wind stress Hines gravity waves", "Pa", (/ ('', i=1, 10) /)) 1562 1585 type(ctrl_out), save:: o_vstr_gwd_hines & 1563 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1564 "meridional wind stress Hines gravity waves", "Pa", (/ ('', i=1, 9) /))1586 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'vstr_gwd_hines', & 1587 "meridional wind stress Hines gravity waves", "Pa", (/ ('', i=1, 10) /)) 1565 1588 type(ctrl_out), save:: o_ustr_gwd_front & 1566 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1567 "zonal wind stress fronts gravity waves", "Pa", (/ ('', i=1, 9) /))1589 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'ustr_gwd_front', & 1590 "zonal wind stress fronts gravity waves", "Pa", (/ ('', i=1, 10) /)) 1568 1591 type(ctrl_out), save:: o_vstr_gwd_front & 1569 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1570 "meridional wind stress fronts gravity waves", "Pa", (/ ('', i=1, 9) /))1592 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'vstr_gwd_front', & 1593 "meridional wind stress fronts gravity waves", "Pa", (/ ('', i=1, 10) /)) 1571 1594 type(ctrl_out), save:: o_ustr_gwd_rando & 1572 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1573 "zonal wind stress random gravity waves", "Pa", (/ ('', i=1, 9) /))1595 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'ustr_gwd_rando', & 1596 "zonal wind stress random gravity waves", "Pa", (/ ('', i=1, 10) /)) 1574 1597 type(ctrl_out), save:: o_vstr_gwd_rando & 1575 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1576 "meridional wind stress random gravity waves", "Pa", (/ ('', i=1, 9) /))1598 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'vstr_gwd_rando', & 1599 "meridional wind stress random gravity waves", "Pa", (/ ('', i=1, 10) /)) 1577 1600 1578 1601 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_trac(:) … … 1593 1616 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_dry(:) 1594 1617 1595 TYPE(ctrl_out), SAVE :: o_rsu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1596 'rsu', 'SW upward radiation', 'W m-2', (/ ('', i=1, 9) /))1597 TYPE(ctrl_out), SAVE :: o_rsd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1598 'rsd', 'SW downward radiation', 'W m-2', (/ ('', i=1, 9) /))1599 TYPE(ctrl_out), SAVE :: o_rlu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1600 'rlu', 'LW upward radiation', 'W m-2', (/ ('', i=1, 9) /))1601 TYPE(ctrl_out), SAVE :: o_rld = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1602 'rld', 'LW downward radiation', 'W m-2', (/ ('', i=1, 9) /))1603 TYPE(ctrl_out), SAVE :: o_rsucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1604 'rsucs', 'SW CS upward radiation', 'W m-2', (/ ('', i=1, 9) /))1605 TYPE(ctrl_out), SAVE :: o_rsdcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1606 'rsdcs', 'SW CS downward radiation', 'W m-2', (/ ('', i=1, 9) /))1607 TYPE(ctrl_out), SAVE :: o_rlucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1608 'rlucs', 'LW CS upward radiation', 'W m-2', (/ ('', i=1, 9) /))1609 TYPE(ctrl_out), SAVE :: o_rldcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1610 'rldcs', 'LW CS downward radiation', 'W m-2', (/ ('', i=1, 9) /))1611 TYPE(ctrl_out), SAVE :: o_tnt = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1612 'tnt', 'Tendency of air temperature', 'K s-1', (/ ('', i=1, 9) /))1613 TYPE(ctrl_out), SAVE :: o_tntc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1614 'tntc', 'Tendency of air temperature due to Moist Convection', 'K s-1', (/ ('', i=1, 9) /))1615 TYPE(ctrl_out), SAVE :: o_tntr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1616 'tntr', 'Air temperature tendency due to Radiative heating', 'K s-1', (/ ('', i=1, 9) /))1617 TYPE(ctrl_out), SAVE :: o_tntscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1618 TYPE(ctrl_out), SAVE :: o_rsu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1619 'rsu', 'SW upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1620 TYPE(ctrl_out), SAVE :: o_rsd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1621 'rsd', 'SW downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1622 TYPE(ctrl_out), SAVE :: o_rlu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1623 'rlu', 'LW upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1624 TYPE(ctrl_out), SAVE :: o_rld = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1625 'rld', 'LW downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1626 TYPE(ctrl_out), SAVE :: o_rsucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1627 'rsucs', 'SW CS upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1628 TYPE(ctrl_out), SAVE :: o_rsdcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1629 'rsdcs', 'SW CS downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1630 TYPE(ctrl_out), SAVE :: o_rlucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1631 'rlucs', 'LW CS upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1632 TYPE(ctrl_out), SAVE :: o_rldcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1633 'rldcs', 'LW CS downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1634 TYPE(ctrl_out), SAVE :: o_tnt = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1635 'tnt', 'Tendency of air temperature', 'K s-1', (/ ('', i=1, 10) /)) 1636 TYPE(ctrl_out), SAVE :: o_tntc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1637 'tntc', 'Tendency of air temperature due to Moist Convection', 'K s-1', (/ ('', i=1, 10) /)) 1638 TYPE(ctrl_out), SAVE :: o_tntr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1639 'tntr', 'Air temperature tendency due to Radiative heating', 'K s-1', (/ ('', i=1, 10) /)) 1640 TYPE(ctrl_out), SAVE :: o_tntscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1618 1641 'tntscpbl', 'Air temperature tendency due to St cloud and precipitation and BL mixing', & 1619 'K s-1', (/ ('', i=1, 9) /))1620 TYPE(ctrl_out), SAVE :: o_tnhus = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1621 'tnhus', 'Tendency of specific humidity', 's-1', (/ ('', i=1, 9) /))1622 TYPE(ctrl_out), SAVE :: o_tnhusc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1623 'tnhusc', 'Tendency of specific humidity due to convection', 's-1', (/ ('', i=1, 9) /))1624 TYPE(ctrl_out), SAVE :: o_tnhusscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1625 'tnhusscpbl', 'Tendency of Specific humidity due to ST cl, precip and BL mixing', 's-1', (/ ('', i=1, 9) /))1626 TYPE(ctrl_out), SAVE :: o_evu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1627 'evu', 'Eddy viscosity coefficient for Momentum Variables', 'm2 s-1', (/ ('', i=1, 9) /))1628 TYPE(ctrl_out), SAVE :: o_h2o = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1629 'h2o', 'Mass Fraction of Water', '1', (/ ('', i=1, 9) /))1630 TYPE(ctrl_out), SAVE :: o_mcd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1631 'mcd', 'Downdraft COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))1632 TYPE(ctrl_out), SAVE :: o_dmc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1633 'dmc', 'Deep COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))1634 TYPE(ctrl_out), SAVE :: o_ref_liq = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1635 'ref_liq', 'Effective radius of convective cloud liquid water particle', 'm', (/ ('', i=1, 9) /))1636 TYPE(ctrl_out), SAVE :: o_ref_ice = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1637 'ref_ice', 'Effective radius of startiform cloud ice particle', 'm', (/ ('', i=1, 9) /))1638 TYPE(ctrl_out), SAVE :: o_rsut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1639 'rsut4co2', 'TOA Out SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1640 TYPE(ctrl_out), SAVE :: o_rlut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1641 'rlut4co2', 'TOA Out LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1642 TYPE(ctrl_out), SAVE :: o_rsutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1643 'rsutcs4co2', 'TOA Out CS SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1644 TYPE(ctrl_out), SAVE :: o_rlutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1645 'rlutcs4co2', 'TOA Out CS LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1646 TYPE(ctrl_out), SAVE :: o_rsu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1647 'rsu4co2', 'Upwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1648 TYPE(ctrl_out), SAVE :: o_rlu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1649 'rlu4co2', 'Upwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1650 TYPE(ctrl_out), SAVE :: o_rsucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1651 'rsucs4co2', 'Upwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1652 TYPE(ctrl_out), SAVE :: o_rlucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1653 'rlucs4co2', 'Upwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1654 TYPE(ctrl_out), SAVE :: o_rsd4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1655 'rsd4co2', 'Downwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1656 TYPE(ctrl_out), SAVE :: o_rld4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1657 'rld4co2', 'Downwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1658 TYPE(ctrl_out), SAVE :: o_rsdcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1659 'rsdcs4co2', 'Downwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1660 TYPE(ctrl_out), SAVE :: o_rldcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1661 'rldcs4co2', 'Downwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1662 TYPE(ctrl_out), SAVE :: o_snowsrf = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1663 'snowsrf', 'Snow mass at surface', 'kg/m2', (/ ('', i=1, 9) /))1664 TYPE(ctrl_out), SAVE :: o_qsnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1665 'qsnow', 'Water contained in snow', 'kg/m2', (/ ('', i=1, 9) /))1666 TYPE(ctrl_out), SAVE :: o_snowhgt = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1667 'snowhgt', 'Snow height at surface', 'm', (/ ('', i=1, 9) /))1668 TYPE(ctrl_out), SAVE :: o_toice = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1669 'to_ice', 'Snow passed to ice model', 'kg/m2', (/ ('', i=1, 9) /))1670 TYPE(ctrl_out), SAVE :: o_sissnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1671 'sissnow', 'Snow in snow model', 'kg/m2', (/ ('', i=1, 9) /))1672 TYPE(ctrl_out), SAVE :: o_runoff = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1673 'runoff', 'Run-off rate land ice', 'kg/m2/s', (/ ('', i=1, 9) /))1674 TYPE(ctrl_out), SAVE :: o_albslw3 = ctrl_out((/ 1, 1, 1, 1, 10, 10, 11, 11, 11 1675 'albslw3', 'Surface albedo LW3', '-', (/ ('', i=1, 9) /))1642 'K s-1', (/ ('', i=1, 10) /)) 1643 TYPE(ctrl_out), SAVE :: o_tnhus = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1644 'tnhus', 'Tendency of specific humidity', 's-1', (/ ('', i=1, 10) /)) 1645 TYPE(ctrl_out), SAVE :: o_tnhusc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1646 'tnhusc', 'Tendency of specific humidity due to convection', 's-1', (/ ('', i=1, 10) /)) 1647 TYPE(ctrl_out), SAVE :: o_tnhusscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1648 'tnhusscpbl', 'Tendency of Specific humidity due to ST cl, precip and BL mixing', 's-1', (/ ('', i=1, 10) /)) 1649 TYPE(ctrl_out), SAVE :: o_evu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1650 'evu', 'Eddy viscosity coefficient for Momentum Variables', 'm2 s-1', (/ ('', i=1, 10) /)) 1651 TYPE(ctrl_out), SAVE :: o_h2o = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1652 'h2o', 'Mass Fraction of Water', '1', (/ ('', i=1, 10) /)) 1653 TYPE(ctrl_out), SAVE :: o_mcd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1654 'mcd', 'Downdraft COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1655 TYPE(ctrl_out), SAVE :: o_dmc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1656 'dmc', 'Deep COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1657 TYPE(ctrl_out), SAVE :: o_ref_liq = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1658 'ref_liq', 'Effective radius of convective cloud liquid water particle', 'm', (/ ('', i=1, 10) /)) 1659 TYPE(ctrl_out), SAVE :: o_ref_ice = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1660 'ref_ice', 'Effective radius of startiform cloud ice particle', 'm', (/ ('', i=1, 10) /)) 1661 TYPE(ctrl_out), SAVE :: o_rsut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1662 'rsut4co2', 'TOA Out SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1663 TYPE(ctrl_out), SAVE :: o_rlut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1664 'rlut4co2', 'TOA Out LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1665 TYPE(ctrl_out), SAVE :: o_rsutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1666 'rsutcs4co2', 'TOA Out CS SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1667 TYPE(ctrl_out), SAVE :: o_rlutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1668 'rlutcs4co2', 'TOA Out CS LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1669 TYPE(ctrl_out), SAVE :: o_rsu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1670 'rsu4co2', 'Upwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1671 TYPE(ctrl_out), SAVE :: o_rlu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1672 'rlu4co2', 'Upwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1673 TYPE(ctrl_out), SAVE :: o_rsucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1674 'rsucs4co2', 'Upwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1675 TYPE(ctrl_out), SAVE :: o_rlucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1676 'rlucs4co2', 'Upwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1677 TYPE(ctrl_out), SAVE :: o_rsd4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1678 'rsd4co2', 'Downwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1679 TYPE(ctrl_out), SAVE :: o_rld4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1680 'rld4co2', 'Downwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1681 TYPE(ctrl_out), SAVE :: o_rsdcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1682 'rsdcs4co2', 'Downwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1683 TYPE(ctrl_out), SAVE :: o_rldcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1684 'rldcs4co2', 'Downwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1685 TYPE(ctrl_out), SAVE :: o_snowsrf = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1686 'snowsrf', 'Snow mass at surface', 'kg/m2', (/ ('', i=1, 10) /)) 1687 TYPE(ctrl_out), SAVE :: o_qsnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1688 'qsnow', 'Water contained in snow', 'kg/m2', (/ ('', i=1, 10) /)) 1689 TYPE(ctrl_out), SAVE :: o_snowhgt = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1690 'snowhgt', 'Snow height at surface', 'm', (/ ('', i=1, 10) /)) 1691 TYPE(ctrl_out), SAVE :: o_toice = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1692 'to_ice', 'Snow passed to ice model', 'kg/m2', (/ ('', i=1, 10) /)) 1693 TYPE(ctrl_out), SAVE :: o_sissnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1694 'sissnow', 'Snow in snow model', 'kg/m2', (/ ('', i=1, 10) /)) 1695 TYPE(ctrl_out), SAVE :: o_runoff = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1696 'runoff', 'Run-off rate land ice', 'kg/m2/s', (/ ('', i=1, 10) /)) 1697 TYPE(ctrl_out), SAVE :: o_albslw3 = ctrl_out((/ 1, 1, 1, 1, 10, 10, 11, 11, 11, 11/), & 1698 'albslw3', 'Surface albedo LW3', '-', (/ ('', i=1, 10) /)) 1676 1699 1677 1700 !!!!!!!!!!!!! Sorties niveaux standards de pression NMC 1678 TYPE(ctrl_out), SAVE :: o_tnondef = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1701 TYPE(ctrl_out), SAVE :: o_tnondef = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1679 1702 'tnondef', 'Undefined value of T', 'K', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1680 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1681 TYPE(ctrl_out), SAVE :: o_ta = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1703 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1704 TYPE(ctrl_out), SAVE :: o_ta = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1682 1705 'ta', 'Air temperature', 'K', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1683 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1684 TYPE(ctrl_out), SAVE :: o_zg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1706 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1707 TYPE(ctrl_out), SAVE :: o_zg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1685 1708 'zg', 'Geopotential height', 'm', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1686 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1687 TYPE(ctrl_out), SAVE :: o_hus = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1709 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1710 TYPE(ctrl_out), SAVE :: o_hus = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1688 1711 'hus', 'Specific humidity', '1', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1689 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1690 TYPE(ctrl_out), SAVE :: o_hur = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1712 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1713 TYPE(ctrl_out), SAVE :: o_hur = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1691 1714 'hur', 'Relative humidity', '%', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1692 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1693 TYPE(ctrl_out), SAVE :: o_ua = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1715 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1716 TYPE(ctrl_out), SAVE :: o_ua = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1694 1717 'ua', 'Eastward wind', 'm s-1', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1695 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1696 TYPE(ctrl_out), SAVE :: o_va = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1697 'va', 'Northward wind', 'm s-1', (/ ('', i=1, 9)/))1698 TYPE(ctrl_out), SAVE :: o_wap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1718 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1719 TYPE(ctrl_out), SAVE :: o_va = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1720 'va', 'Northward wind', 'm s-1', (/ ('', i=1, 10)/)) 1721 TYPE(ctrl_out), SAVE :: o_wap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1699 1722 'wap', 'Lagrangian tendency of air pressure', 'Pa s-1', (/ "inst(X)", "inst(X)", "inst(X)", & 1700 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1701 TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1723 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1724 TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1702 1725 'psbg', 'Pressure sfce below ground', '%', (/ "inst(X)", "inst(X)", "inst(X)", & 1703 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1704 TYPE(ctrl_out), SAVE :: o_tro3 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1726 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1727 TYPE(ctrl_out), SAVE :: o_tro3 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1705 1728 'tro3', 'Ozone mole fraction', '1e-9', (/ "inst(X)", "inst(X)", "inst(X)", & 1706 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1707 TYPE(ctrl_out), SAVE :: o_tro3_daylight = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1729 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1730 TYPE(ctrl_out), SAVE :: o_tro3_daylight = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1708 1731 'tro3_daylight', 'Daylight ozone mole fraction', '1e-9', (/ "inst(X)", "inst(X)", "inst(X)", & 1709 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1710 TYPE(ctrl_out), SAVE :: o_uxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1732 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1733 TYPE(ctrl_out), SAVE :: o_uxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1711 1734 'uv', 'uv', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", & 1712 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1713 TYPE(ctrl_out), SAVE :: o_vxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1735 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1736 TYPE(ctrl_out), SAVE :: o_vxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1714 1737 'vxq', 'vxq', 'm/s * (kg/kg)', (/ "inst(X)", "inst(X)", "inst(X)", & 1715 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1716 TYPE(ctrl_out), SAVE :: o_vxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1738 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1739 TYPE(ctrl_out), SAVE :: o_vxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1717 1740 'vT', 'vT', 'mK/s', (/ "inst(X)", "inst(X)", "inst(X)", & 1718 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1719 TYPE(ctrl_out), SAVE :: o_wxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1741 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1742 TYPE(ctrl_out), SAVE :: o_wxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1720 1743 'wq', 'wq', '(Pa/s)*(kg/kg)', (/ "inst(X)", "inst(X)", "inst(X)", & 1721 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1722 TYPE(ctrl_out), SAVE :: o_vxphi = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1744 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1745 TYPE(ctrl_out), SAVE :: o_vxphi = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1723 1746 'vphi', 'vphi', 'm2/s', (/ "inst(X)", "inst(X)", "inst(X)", & 1724 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1725 TYPE(ctrl_out), SAVE :: o_wxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1747 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1748 TYPE(ctrl_out), SAVE :: o_wxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1726 1749 'wT', 'wT', '"K*Pa/s', (/ "inst(X)", "inst(X)", "inst(X)", & 1727 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1728 TYPE(ctrl_out), SAVE :: o_uxu = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1750 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1751 TYPE(ctrl_out), SAVE :: o_uxu = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1729 1752 'u2', 'u2', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", & 1730 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1731 TYPE(ctrl_out), SAVE :: o_vxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1753 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1754 TYPE(ctrl_out), SAVE :: o_vxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1732 1755 'v2', 'v2', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", & 1733 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1734 TYPE(ctrl_out), SAVE :: o_TxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1756 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1757 TYPE(ctrl_out), SAVE :: o_TxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1735 1758 'T2', 'T2', 'K2', (/ "inst(X)", "inst(X)", "inst(X)", & 1736 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1759 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1737 1760 1738 1761 #ifdef CPP_Dust
Note: See TracChangeset
for help on using the changeset viewer.
