Changeset 7224 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
- Timestamp:
- 2016-11-14T16:47:26+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
r6715 r7224 10 10 !! - ! 2011-04 (A. Yool) updated for ROAM project 11 11 !! - ! 2013-05 (A. Yool) renamed (from trclsm) for v3.5 12 !! - ! 2015-11 (J. Palmieri) added iom_use for diags 13 !! - ! 2016-11 (A. Yool) updated diags for CMIP6 12 14 !!---------------------------------------------------------------------- 13 15 #if defined key_medusa … … 1180 1182 1181 1183 SUBROUTINE trc_nam_iom_medusa 1182 !!---------------------------------------------------------------------1184 !!--------------------------------------------------------------------- 1183 1185 !! *** ROUTINE trc_nam_iom_medusa *** 1184 1186 !! … … 2051 2053 med_diag%GMEDC%dgsave = .FALSE. 2052 2054 ENDIF 2053 IF (iom_use("BASIN_01")) THEN2054 med_diag%BASIN_01%dgsave = .TRUE.2055 ELSE2056 med_diag%BASIN_01%dgsave = .FALSE.2057 ENDIF2058 IF (iom_use("BASIN_02")) THEN2059 med_diag%BASIN_02%dgsave = .TRUE.2060 ELSE2061 med_diag%BASIN_02%dgsave = .FALSE.2062 ENDIF2063 IF (iom_use("BASIN_03")) THEN2064 med_diag%BASIN_03%dgsave = .TRUE.2065 ELSE2066 med_diag%BASIN_03%dgsave = .FALSE.2067 ENDIF2068 IF (iom_use("BASIN_04")) THEN2069 med_diag%BASIN_04%dgsave = .TRUE.2070 ELSE2071 med_diag%BASIN_04%dgsave = .FALSE.2072 ENDIF2073 IF (iom_use("BASIN_05")) THEN2074 med_diag%BASIN_05%dgsave = .TRUE.2075 ELSE2076 med_diag%BASIN_05%dgsave = .FALSE.2077 ENDIF2078 IF (iom_use("BASIN_06")) THEN2079 med_diag%BASIN_06%dgsave = .TRUE.2080 ELSE2081 med_diag%BASIN_06%dgsave = .FALSE.2082 ENDIF2083 IF (iom_use("BASIN_07")) THEN2084 med_diag%BASIN_07%dgsave = .TRUE.2085 ELSE2086 med_diag%BASIN_07%dgsave = .FALSE.2087 ENDIF2088 IF (iom_use("BASIN_08")) THEN2089 med_diag%BASIN_08%dgsave = .TRUE.2090 ELSE2091 med_diag%BASIN_08%dgsave = .FALSE.2092 ENDIF2093 IF (iom_use("BASIN_09")) THEN2094 med_diag%BASIN_09%dgsave = .TRUE.2095 ELSE2096 med_diag%BASIN_09%dgsave = .FALSE.2097 ENDIF2098 IF (iom_use("BASIN_10")) THEN2099 med_diag%BASIN_10%dgsave = .TRUE.2100 ELSE2101 med_diag%BASIN_10%dgsave = .FALSE.2102 ENDIF2103 IF (iom_use("BASIN_11")) THEN2104 med_diag%BASIN_11%dgsave = .TRUE.2105 ELSE2106 med_diag%BASIN_11%dgsave = .FALSE.2107 ENDIF2108 IF (iom_use("BASIN_12")) THEN2109 med_diag%BASIN_12%dgsave = .TRUE.2110 ELSE2111 med_diag%BASIN_12%dgsave = .FALSE.2112 ENDIF2113 IF (iom_use("BASIN_13")) THEN2114 med_diag%BASIN_13%dgsave = .TRUE.2115 ELSE2116 med_diag%BASIN_13%dgsave = .FALSE.2117 ENDIF2118 IF (iom_use("BASIN_14")) THEN2119 med_diag%BASIN_14%dgsave = .TRUE.2120 ELSE2121 med_diag%BASIN_14%dgsave = .FALSE.2122 ENDIF2123 IF (iom_use("BASIN_15")) THEN2124 med_diag%BASIN_15%dgsave = .TRUE.2125 ELSE2126 med_diag%BASIN_15%dgsave = .FALSE.2127 ENDIF2128 IF (iom_use("BASIN_16")) THEN2129 med_diag%BASIN_16%dgsave = .TRUE.2130 ELSE2131 med_diag%BASIN_16%dgsave = .FALSE.2132 ENDIF2133 IF (iom_use("BASIN_17")) THEN2134 med_diag%BASIN_17%dgsave = .TRUE.2135 ELSE2136 med_diag%BASIN_17%dgsave = .FALSE.2137 ENDIF2138 IF (iom_use("BASIN_18")) THEN2139 med_diag%BASIN_18%dgsave = .TRUE.2140 ELSE2141 med_diag%BASIN_18%dgsave = .FALSE.2142 ENDIF2143 IF (iom_use("BASIN_19")) THEN2144 med_diag%BASIN_19%dgsave = .TRUE.2145 ELSE2146 med_diag%BASIN_19%dgsave = .FALSE.2147 ENDIF2148 IF (iom_use("BASIN_20")) THEN2149 med_diag%BASIN_20%dgsave = .TRUE.2150 ELSE2151 med_diag%BASIN_20%dgsave = .FALSE.2152 ENDIF2153 IF (iom_use("BASIN_21")) THEN2154 med_diag%BASIN_21%dgsave = .TRUE.2155 ELSE2156 med_diag%BASIN_21%dgsave = .FALSE.2157 ENDIF2158 IF (iom_use("BASIN_22")) THEN2159 med_diag%BASIN_22%dgsave = .TRUE.2160 ELSE2161 med_diag%BASIN_22%dgsave = .FALSE.2162 ENDIF2163 IF (iom_use("BASIN_23")) THEN2164 med_diag%BASIN_23%dgsave = .TRUE.2165 ELSE2166 med_diag%BASIN_23%dgsave = .FALSE.2167 ENDIF2168 IF (iom_use("BASIN_24")) THEN2169 med_diag%BASIN_24%dgsave = .TRUE.2170 ELSE2171 med_diag%BASIN_24%dgsave = .FALSE.2172 ENDIF2173 IF (iom_use("BASIN_25")) THEN2174 med_diag%BASIN_25%dgsave = .TRUE.2175 ELSE2176 med_diag%BASIN_25%dgsave = .FALSE.2177 ENDIF2178 IF (iom_use("BASIN_26")) THEN2179 med_diag%BASIN_26%dgsave = .TRUE.2180 ELSE2181 med_diag%BASIN_26%dgsave = .FALSE.2182 ENDIF2183 IF (iom_use("BASIN_27")) THEN2184 med_diag%BASIN_27%dgsave = .TRUE.2185 ELSE2186 med_diag%BASIN_27%dgsave = .FALSE.2187 ENDIF2188 IF (iom_use("BASIN_28")) THEN2189 med_diag%BASIN_28%dgsave = .TRUE.2190 ELSE2191 med_diag%BASIN_28%dgsave = .FALSE.2192 ENDIF2193 IF (iom_use("BASIN_29")) THEN2194 med_diag%BASIN_29%dgsave = .TRUE.2195 ELSE2196 med_diag%BASIN_29%dgsave = .FALSE.2197 ENDIF2198 IF (iom_use("BASIN_30")) THEN2199 med_diag%BASIN_30%dgsave = .TRUE.2200 ELSE2201 med_diag%BASIN_30%dgsave = .FALSE.2202 ENDIF2203 IF (iom_use("BASIN_31")) THEN2204 med_diag%BASIN_31%dgsave = .TRUE.2205 ELSE2206 med_diag%BASIN_31%dgsave = .FALSE.2207 ENDIF2208 IF (iom_use("BASIN_32")) THEN2209 med_diag%BASIN_32%dgsave = .TRUE.2210 ELSE2211 med_diag%BASIN_32%dgsave = .FALSE.2212 ENDIF2213 IF (iom_use("BASIN_33")) THEN2214 med_diag%BASIN_33%dgsave = .TRUE.2215 ELSE2216 med_diag%BASIN_33%dgsave = .FALSE.2217 ENDIF2218 IF (iom_use("BASIN_34")) THEN2219 med_diag%BASIN_34%dgsave = .TRUE.2220 ELSE2221 med_diag%BASIN_34%dgsave = .FALSE.2222 ENDIF2223 IF (iom_use("BASIN_35")) THEN2224 med_diag%BASIN_35%dgsave = .TRUE.2225 ELSE2226 med_diag%BASIN_35%dgsave = .FALSE.2227 ENDIF2228 IF (iom_use("BASIN_36")) THEN2229 med_diag%BASIN_36%dgsave = .TRUE.2230 ELSE2231 med_diag%BASIN_36%dgsave = .FALSE.2232 ENDIF2233 IF (iom_use("BASIN_37")) THEN2234 med_diag%BASIN_37%dgsave = .TRUE.2235 ELSE2236 med_diag%BASIN_37%dgsave = .FALSE.2237 ENDIF2238 IF (iom_use("BASIN_38")) THEN2239 med_diag%BASIN_38%dgsave = .TRUE.2240 ELSE2241 med_diag%BASIN_38%dgsave = .FALSE.2242 ENDIF2243 IF (iom_use("BASIN_39")) THEN2244 med_diag%BASIN_39%dgsave = .TRUE.2245 ELSE2246 med_diag%BASIN_39%dgsave = .FALSE.2247 ENDIF2248 IF (iom_use("BASIN_40")) THEN2249 med_diag%BASIN_40%dgsave = .TRUE.2250 ELSE2251 med_diag%BASIN_40%dgsave = .FALSE.2252 ENDIF2253 IF (iom_use("BASIN_41")) THEN2254 med_diag%BASIN_41%dgsave = .TRUE.2255 ELSE2256 med_diag%BASIN_41%dgsave = .FALSE.2257 ENDIF2258 IF (iom_use("BASIN_42")) THEN2259 med_diag%BASIN_42%dgsave = .TRUE.2260 ELSE2261 med_diag%BASIN_42%dgsave = .FALSE.2262 ENDIF2263 IF (iom_use("BASIN_43")) THEN2264 med_diag%BASIN_43%dgsave = .TRUE.2265 ELSE2266 med_diag%BASIN_43%dgsave = .FALSE.2267 ENDIF2268 IF (iom_use("BASIN_44")) THEN2269 med_diag%BASIN_44%dgsave = .TRUE.2270 ELSE2271 med_diag%BASIN_44%dgsave = .FALSE.2272 ENDIF2273 IF (iom_use("BASIN_45")) THEN2274 med_diag%BASIN_45%dgsave = .TRUE.2275 ELSE2276 med_diag%BASIN_45%dgsave = .FALSE.2277 ENDIF2278 2055 IF (iom_use("INT_ZMI")) THEN 2279 2056 med_diag%INT_ZMI%dgsave = .TRUE. … … 2347 2124 ENDIF 2348 2125 !! 2126 !!---------------------------------------------------------------------- 2127 !! AXY (03/11/16): add in additional CMIP6 diagnostics 2128 !!---------------------------------------------------------------------- 2349 2129 !! 2130 !! 2D fields 2131 IF (iom_use("epC100")) THEN 2132 med_diag%epC100%dgsave = .TRUE. 2133 ELSE 2134 med_diag%epC100%dgsave = .FALSE. 2135 ENDIF 2136 IF (iom_use("epCALC100")) THEN 2137 med_diag%epCALC100%dgsave = .TRUE. 2138 ELSE 2139 med_diag%epCALC100%dgsave = .FALSE. 2140 ENDIF 2141 IF (iom_use("epN100")) THEN 2142 med_diag%epN100%dgsave = .TRUE. 2143 ELSE 2144 med_diag%epN100%dgsave = .FALSE. 2145 ENDIF 2146 IF (iom_use("epSI100")) THEN 2147 med_diag%epSI100%dgsave = .TRUE. 2148 ELSE 2149 med_diag%epSI100%dgsave = .FALSE. 2150 ENDIF 2151 IF (iom_use("FGCO2")) THEN 2152 med_diag%FGCO2%dgsave = .TRUE. 2153 ELSE 2154 med_diag%FGCO2%dgsave = .FALSE. 2155 ENDIF 2156 IF (iom_use("INTDISSIC")) THEN 2157 med_diag%INTDISSIC%dgsave = .TRUE. 2158 ELSE 2159 med_diag%INTDISSIC%dgsave = .FALSE. 2160 ENDIF 2161 IF (iom_use("INTDISSIN")) THEN 2162 med_diag%INTDISSIN%dgsave = .TRUE. 2163 ELSE 2164 med_diag%INTDISSIN%dgsave = .FALSE. 2165 ENDIF 2166 IF (iom_use("INTDISSISI")) THEN 2167 med_diag%INTDISSISI%dgsave = .TRUE. 2168 ELSE 2169 med_diag%INTDISSISI%dgsave = .FALSE. 2170 ENDIF 2171 IF (iom_use("INTTALK")) THEN 2172 med_diag%INTTALK%dgsave = .TRUE. 2173 ELSE 2174 med_diag%INTTALK%dgsave = .FALSE. 2175 ENDIF 2176 IF (iom_use("O2min")) THEN 2177 med_diag%O2min%dgsave = .TRUE. 2178 ELSE 2179 med_diag%O2min%dgsave = .FALSE. 2180 ENDIF 2181 IF (iom_use("ZO2min")) THEN 2182 med_diag%ZO2min%dgsave = .TRUE. 2183 ELSE 2184 med_diag%ZO2min%dgsave = .FALSE. 2185 ENDIF 2186 !! 2187 !! 3D 2188 IF (iom_use("TPPD3")) THEN 2189 med_diag%TPPD3%dgsave = .TRUE. 2190 ELSE 2191 med_diag%TPPD3%dgsave = .FALSE. 2192 ENDIF 2193 IF (iom_use("BDDTALK3")) THEN 2194 med_diag%BDDTALK3%dgsave = .TRUE. 2195 ELSE 2196 med_diag%BDDTALK3%dgsave = .FALSE. 2197 ENDIF 2198 IF (iom_use("BDDTDIC3")) THEN 2199 med_diag%BDDTDIC3%dgsave = .TRUE. 2200 ELSE 2201 med_diag%BDDTDIC3%dgsave = .FALSE. 2202 ENDIF 2203 IF (iom_use("BDDTDIFE3")) THEN 2204 med_diag%BDDTDIFE3%dgsave = .TRUE. 2205 ELSE 2206 med_diag%BDDTDIFE3%dgsave = .FALSE. 2207 ENDIF 2208 IF (iom_use("BDDTDISI3")) THEN 2209 med_diag%BDDTDISI3%dgsave = .TRUE. 2210 ELSE 2211 med_diag%BDDTDISI3%dgsave = .FALSE. 2212 ENDIF 2213 IF (iom_use("FD_NIT3")) THEN 2214 med_diag%FD_NIT3%dgsave = .TRUE. 2215 ELSE 2216 med_diag%FD_NIT3%dgsave = .FALSE. 2217 ENDIF 2218 IF (iom_use("FD_SIL3")) THEN 2219 med_diag%FD_SIL3%dgsave = .TRUE. 2220 ELSE 2221 med_diag%FD_SIL3%dgsave = .FALSE. 2222 ENDIF 2223 IF (iom_use("FD_CAR3")) THEN 2224 med_diag%FD_CAR3%dgsave = .TRUE. 2225 ELSE 2226 med_diag%FD_CAR3%dgsave = .FALSE. 2227 ENDIF 2228 IF (iom_use("FD_CAL3")) THEN 2229 med_diag%FD_CAL3%dgsave = .TRUE. 2230 ELSE 2231 med_diag%FD_CAL3%dgsave = .FALSE. 2232 ENDIF 2233 IF (iom_use("CO33")) THEN 2234 med_diag%CO33%dgsave = .TRUE. 2235 ELSE 2236 med_diag%CO33%dgsave = .FALSE. 2237 ENDIF 2238 IF (iom_use("CO3SATARAG3")) THEN 2239 med_diag%CO3SATARAG3%dgsave = .TRUE. 2240 ELSE 2241 med_diag%CO3SATARAG3%dgsave = .FALSE. 2242 ENDIF 2243 IF (iom_use("CO3SATCALC3")) THEN 2244 med_diag%CO3SATCALC3%dgsave = .TRUE. 2245 ELSE 2246 med_diag%CO3SATCALC3%dgsave = .FALSE. 2247 ENDIF 2248 IF (iom_use("DCALC3")) THEN 2249 med_diag%DCALC3%dgsave = .TRUE. 2250 ELSE 2251 med_diag%DCALC3%dgsave = .FALSE. 2252 ENDIF 2253 IF (iom_use("EXPC3")) THEN 2254 med_diag%EXPC3%dgsave = .TRUE. 2255 ELSE 2256 med_diag%EXPC3%dgsave = .FALSE. 2257 ENDIF 2258 IF (iom_use("EXPN3")) THEN 2259 med_diag%EXPN3%dgsave = .TRUE. 2260 ELSE 2261 med_diag%EXPN3%dgsave = .FALSE. 2262 ENDIF 2263 IF (iom_use("EXPCALC3")) THEN 2264 med_diag%EXPCALC3%dgsave = .TRUE. 2265 ELSE 2266 med_diag%EXPCALC3%dgsave = .FALSE. 2267 ENDIF 2268 IF (iom_use("EXPSI3")) THEN 2269 med_diag%EXPSI3%dgsave = .TRUE. 2270 ELSE 2271 med_diag%EXPSI3%dgsave = .FALSE. 2272 ENDIF 2273 IF (iom_use("FEDISS3")) THEN 2274 med_diag%FEDISS3%dgsave = .TRUE. 2275 ELSE 2276 med_diag%FEDISS3%dgsave = .FALSE. 2277 ENDIF 2278 IF (iom_use("FESCAV3")) THEN 2279 med_diag%FESCAV3%dgsave = .TRUE. 2280 ELSE 2281 med_diag%FESCAV3%dgsave = .FALSE. 2282 ENDIF 2283 IF (iom_use("MIGRAZP3")) THEN 2284 med_diag%MIGRAZP3%dgsave = .TRUE. 2285 ELSE 2286 med_diag%MIGRAZP3%dgsave = .FALSE. 2287 ENDIF 2288 IF (iom_use("MIGRAZD3")) THEN 2289 med_diag%MIGRAZD3%dgsave = .TRUE. 2290 ELSE 2291 med_diag%MIGRAZD3%dgsave = .FALSE. 2292 ENDIF 2293 IF (iom_use("MEGRAZP3")) THEN 2294 med_diag%MEGRAZP3%dgsave = .TRUE. 2295 ELSE 2296 med_diag%MEGRAZP3%dgsave = .FALSE. 2297 ENDIF 2298 IF (iom_use("MEGRAZD3")) THEN 2299 med_diag%MEGRAZD3%dgsave = .TRUE. 2300 ELSE 2301 med_diag%MEGRAZD3%dgsave = .FALSE. 2302 ENDIF 2303 IF (iom_use("MEGRAZZ3")) THEN 2304 med_diag%MEGRAZZ3%dgsave = .TRUE. 2305 ELSE 2306 med_diag%MEGRAZZ3%dgsave = .FALSE. 2307 ENDIF 2308 IF (iom_use("O2SAT3")) THEN 2309 med_diag%O2SAT3%dgsave = .TRUE. 2310 ELSE 2311 med_diag%O2SAT3%dgsave = .FALSE. 2312 ENDIF 2313 IF (iom_use("PBSI3")) THEN 2314 med_diag%PBSI3%dgsave = .TRUE. 2315 ELSE 2316 med_diag%PBSI3%dgsave = .FALSE. 2317 ENDIF 2318 IF (iom_use("PCAL3")) THEN 2319 med_diag%PCAL3%dgsave = .TRUE. 2320 ELSE 2321 med_diag%PCAL3%dgsave = .FALSE. 2322 ENDIF 2323 IF (iom_use("REMOC3")) THEN 2324 med_diag%REMOC3%dgsave = .TRUE. 2325 ELSE 2326 med_diag%REMOC3%dgsave = .FALSE. 2327 ENDIF 2328 IF (iom_use("PNLIMJ3")) THEN 2329 med_diag%PNLIMJ3%dgsave = .TRUE. 2330 ELSE 2331 med_diag%PNLIMJ3%dgsave = .FALSE. 2332 ENDIF 2333 IF (iom_use("PNLIMN3")) THEN 2334 med_diag%PNLIMN3%dgsave = .TRUE. 2335 ELSE 2336 med_diag%PNLIMN3%dgsave = .FALSE. 2337 ENDIF 2338 IF (iom_use("PNLIFEJ3")) THEN 2339 med_diag%PNLIMFE3%dgsave = .TRUE. 2340 ELSE 2341 med_diag%PNLIMFE3%dgsave = .FALSE. 2342 ENDIF 2343 IF (iom_use("PDLIMJ3")) THEN 2344 med_diag%PDLIMJ3%dgsave = .TRUE. 2345 ELSE 2346 med_diag%PDLIMJ3%dgsave = .FALSE. 2347 ENDIF 2348 IF (iom_use("PDLIMN3")) THEN 2349 med_diag%PDLIMN3%dgsave = .TRUE. 2350 ELSE 2351 med_diag%PDLIMN3%dgsave = .FALSE. 2352 ENDIF 2353 IF (iom_use("PDLIMFE3")) THEN 2354 med_diag%PDLIMFE3%dgsave = .TRUE. 2355 ELSE 2356 med_diag%PDLIMFE3%dgsave = .FALSE. 2357 ENDIF 2358 IF (iom_use("PDLIMSI3")) THEN 2359 med_diag%PDLIMSI3%dgsave = .TRUE. 2360 ELSE 2361 med_diag%PDLIMSI3%dgsave = .FALSE. 2362 ENDIF 2363 2350 2364 END SUBROUTINE trc_nam_iom_medusa 2351 2365
Note: See TracChangeset
for help on using the changeset viewer.
