Changeset 6639 for branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
- Timestamp:
- 2016-05-27T14:58:40+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
r5726 r6639 22 22 USE sms_medusa ! sms trends 23 23 USE iom ! I/O manager 24 !!USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag 24 25 25 26 !! AXY (04/02/14): necessary to find NaNs on HECTOR … … 29 30 PRIVATE 30 31 31 PUBLIC trc_nam_medusa ! called by trcnam.F90 module 32 PUBLIC trc_nam_medusa ! called by trcnam.F90 module 33 PUBLIC trc_nam_iom_medusa ! called by trcnam.F90 module 32 34 33 35 !!* Substitution … … 83 85 & xsdiss, & 84 86 & vsed,xhr, & 85 & sedlam,sedlostpoc,jpkb,jdms 87 & sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model 86 88 #if defined key_roam 87 89 NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit, & … … 138 140 IF( ( .NOT.lk_iomput .AND. ln_diatrc ) .OR. ( ln_diatrc .AND. lk_medusa ) ) THEN 139 141 ! 140 ! Namelist nam pisdia142 ! Namelist nammeddia 141 143 ! ------------------- 142 REWIND( numnatp_ref ) ! Namelist nam pisdia in reference namelist : Piscesdiagnostics144 REWIND( numnatp_ref ) ! Namelist nammeddia in reference namelist : MEDUSA diagnostics 143 145 READ ( numnatp_ref, nammeddia, IOSTAT = ios, ERR = 901) 144 146 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 145 147 146 REWIND( numnatp_cfg ) ! Namelist nam pisdia in configuration namelist : Piscesdiagnostics148 REWIND( numnatp_cfg ) ! Namelist nammeddia in configuration namelist : MEDUSA diagnostics 147 149 READ ( numnatp_cfg, nammeddia, IOSTAT = ios, ERR = 902 ) 148 150 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) … … 338 340 jpkb = 0. 339 341 jdms = 0 342 jdms_input = 0 343 jdms_input = 3 340 344 341 345 !REWIND(numnatm) … … 343 347 ! Namelist natbio 344 348 ! ------------------- 345 REWIND( numnatp_ref ) ! Namelist na mpisdia in reference namelist : Piscesdiagnostics346 READ ( numnatp_ref, natbio, IOSTAT = ios, ERR = 90 1)347 90 1 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddiain reference namelist', lwp )348 349 REWIND( numnatp_cfg ) ! Namelist na mpisdia in configuration namelist : Piscesdiagnostics350 READ ( numnatp_cfg, natbio, IOSTAT = ios, ERR = 90 2)351 90 2 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddiain configuration namelist', lwp )349 REWIND( numnatp_ref ) ! Namelist natbio in reference namelist : MEDUSA diagnostics 350 READ ( numnatp_ref, natbio, IOSTAT = ios, ERR = 903) 351 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'natbio in reference namelist', lwp ) 352 353 REWIND( numnatp_cfg ) ! Namelist natbio in configuration namelist : MEDUSA diagnostics 354 READ ( numnatp_cfg, natbio, IOSTAT = ios, ERR = 904 ) 355 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'natbio in configuration namelist', lwp ) 352 356 IF(lwm) WRITE ( numonp, natbio ) 353 357 … … 488 492 !! UKESM1 - new diagnostics !! Jpalm 489 493 !! jdms : include dms diagnostics 490 !! 491 !! 492 !! 493 494 !! jdms_input : use instant (0) or diel-avg (1) inputs 495 !! jdms_model : choice of DMS model passed to atmosphere 496 !! 1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL 497 !! 494 498 IF(lwp) THEN 495 499 !! … … 510 514 & ' key_axy_carbchem = INACTIVE' 511 515 #endif 516 #if defined key_mocsy 517 WRITE(numout,*) & 518 & ' key_mocsy = ACTIVE' 519 #else 520 WRITE(numout,*) & 521 & ' key_mocsy = INACTIVE' 522 #endif 523 #if defined key_avgqsr_medusa 524 WRITE(numout,*) & 525 & ' key_avgqsr_medusa = ACTIVE' 526 #else 527 WRITE(numout,*) & 528 & ' key_avgqsr_medusa = INACTIVE' 529 #endif 512 530 #if defined key_bs_axy_zforce 513 531 WRITE(numout,*) & … … 544 562 WRITE(numout,*) & 545 563 & ' key_axy_pi_co2 = INACTIVE' 564 # endif 565 # if defined key_debug_medusa 566 WRITE(numout,*) & 567 & ' key_debug_medusa = ACTIVE' 568 #else 569 WRITE(numout,*) & 570 & ' key_debug_medusa = INACTIVE' 546 571 # endif 547 572 WRITE(numout,*) ' ' … … 971 996 & ' Vert layer for diagnostic of vertical flux, jpkp = ', jpkb 972 997 !! 973 !! UKESM1 - new diagnostics !! Jpalm 998 !! UKESM1 - new diagnostics !! Jpalm; AXY (08/07/15) 974 999 WRITE(numout,*) '=== UKESM1-related parameters' 975 1000 WRITE(numout,*) & 976 1001 & ' include DMS diagnostic?, jdms = ', jdms 1002 if (jdms_input .eq. 0) then 1003 WRITE(numout,*) & 1004 & ' use instant (0) or diel-avg (1) inputs, jdms_input = instantaneous' 1005 else 1006 WRITE(numout,*) & 1007 & ' use instant (0) or diel-avg (1) inputs, jdms_input = diel-average' 1008 endif 1009 if (jdms_model .eq. 1) then 1010 WRITE(numout,*) & 1011 & ' choice of DMS model passed to atmosphere, jdms_model = Anderson et al. (2001)' 1012 elseif (jdms_model .eq. 2) then 1013 WRITE(numout,*) & 1014 & ' choice of DMS model passed to atmosphere, jdms_model = Simo & Dachs (2002)' 1015 elseif (jdms_model .eq. 3) then 1016 WRITE(numout,*) & 1017 & ' choice of DMS model passed to atmosphere, jdms_model = Aranami & Tsunogai (2004)' 1018 elseif (jdms_model .eq. 4) then 1019 WRITE(numout,*) & 1020 & ' choice of DMS model passed to atmosphere, jdms_model = Halloran et al. (2010)' 1021 endif 977 1022 !! 978 1023 ENDIF … … 1032 1077 1033 1078 !READ(numnatm,natroam) 1034 ! Namelist nat bio1079 ! Namelist natroam 1035 1080 ! ------------------- 1036 REWIND( numnatp_ref ) ! Namelist na mpisdia in reference namelist : Piscesdiagnostics1037 READ ( numnatp_ref, nat bio, IOSTAT = ios, ERR = 901)1038 90 1 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddiain reference namelist', lwp )1039 1040 REWIND( numnatp_cfg ) ! Namelist na mpisdia in configuration namelist : Piscesdiagnostics1041 READ ( numnatp_cfg, nat bio, IOSTAT = ios, ERR = 902)1042 90 2 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddiain configuration namelist', lwp )1043 IF(lwm) WRITE ( numonp, nat bio)1081 REWIND( numnatp_ref ) ! Namelist natroam in reference namelist : MEDUSA diagnostics 1082 READ ( numnatp_ref, natroam, IOSTAT = ios, ERR = 905) 1083 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'natroam in reference namelist', lwp ) 1084 1085 REWIND( numnatp_cfg ) ! Namelist natroam in configuration namelist : MEDUSA diagnostics 1086 READ ( numnatp_cfg, natroam, IOSTAT = ios, ERR = 906 ) 1087 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'natroam in configuration namelist', lwp ) 1088 IF(lwm) WRITE ( numonp, natroam ) 1044 1089 1045 1090 !! ROAM carbon, alkalinity and oxygen cycle parameters … … 1086 1131 ! Namelist natopt 1087 1132 ! ------------------- 1088 REWIND( numnatp_ref ) ! Namelist na mpisdia in reference namelist : Piscesdiagnostics1089 READ ( numnatp_ref, natopt, IOSTAT = ios, ERR = 90 1)1090 90 1 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddiain reference namelist', lwp )1091 1092 REWIND( numnatp_cfg ) ! Namelist na mpisdia in configuration namelist : Piscesdiagnostics1093 READ ( numnatp_cfg, natopt, IOSTAT = ios, ERR = 90 2)1094 90 2 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddiain configuration namelist', lwp )1133 REWIND( numnatp_ref ) ! Namelist natopt in reference namelist : MEDUSA diagnostics 1134 READ ( numnatp_ref, natopt, IOSTAT = ios, ERR = 907) 1135 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'natopt in reference namelist', lwp ) 1136 1137 REWIND( numnatp_cfg ) ! Namelist natopt in configuration namelist : MEDUSA diagnostics 1138 READ ( numnatp_cfg, natopt, IOSTAT = ios, ERR = 908 ) 1139 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'natopt in configuration namelist', lwp ) 1095 1140 IF(lwm) WRITE ( numonp, natopt ) 1096 1141 … … 1126 1171 END SUBROUTINE trc_nam_medusa 1127 1172 1173 SUBROUTINE trc_nam_iom_medusa 1174 !!--------------------------------------------------------------------- 1175 !! *** ROUTINE trc_nam_iom_medusa *** 1176 !! 1177 !! ** Purpose : read all diag requested in iodef file through iom_use 1178 !! So it is done only once 1179 !! ** All diagnostic MEDUSA could asked are registered in 1180 !! the med_diag type with a boolean value 1181 !! So if required, one diagnostic will be true. 1182 !! 1183 !!--------------------------------------------------------------------- 1184 !! 1185 !! 1186 !!---------------------------------------------------------------------- 1187 !! Variable conventions 1188 !!---------------------------------------------------------------------- 1189 !! 1190 IF (iom_use("INVTN")) THEN 1191 med_diag%INVTN%dgsave = .TRUE. 1192 ELSE 1193 med_diag%INVTN%dgsave = .FALSE. 1194 ENDIF 1195 IF (iom_use("INVTSI")) THEN 1196 med_diag%INVTSI%dgsave = .TRUE. 1197 ELSE 1198 med_diag%INVTSI%dgsave = .FALSE. 1199 ENDIF 1200 IF (iom_use("INVTFE")) THEN 1201 med_diag%INVTFE%dgsave = .TRUE. 1202 ELSE 1203 med_diag%INVTFE%dgsave = .FALSE. 1204 ENDIF 1205 IF (iom_use("PRN")) THEN 1206 med_diag%PRN%dgsave = .TRUE. 1207 ELSE 1208 med_diag%PRN%dgsave = .FALSE. 1209 ENDIF 1210 IF (iom_use("MPN")) THEN 1211 med_diag%MPN%dgsave = .TRUE. 1212 ELSE 1213 med_diag%MPN%dgsave = .FALSE. 1214 ENDIF 1215 IF (iom_use("PRD")) THEN 1216 med_diag%PRD%dgsave = .TRUE. 1217 ELSE 1218 med_diag%PRD%dgsave = .FALSE. 1219 ENDIF 1220 IF (iom_use("MPD")) THEN 1221 med_diag%MPD%dgsave = .TRUE. 1222 ELSE 1223 med_diag%MPD%dgsave = .FALSE. 1224 ENDIF 1225 IF (iom_use("DSED")) THEN 1226 med_diag%DSED%dgsave = .TRUE. 1227 ELSE 1228 med_diag%DSED%dgsave = .FALSE. 1229 ENDIF 1230 IF (iom_use("OPAL")) THEN 1231 med_diag%OPAL%dgsave = .TRUE. 1232 ELSE 1233 med_diag%OPAL%dgsave = .FALSE. 1234 ENDIF 1235 IF (iom_use("OPALDISS")) THEN 1236 med_diag%OPALDISS%dgsave = .TRUE. 1237 ELSE 1238 med_diag%OPALDISS%dgsave = .FALSE. 1239 ENDIF 1240 IF (iom_use("GMIPn")) THEN 1241 med_diag%GMIPn%dgsave = .TRUE. 1242 ELSE 1243 med_diag%GMIPn%dgsave = .FALSE. 1244 ENDIF 1245 IF (iom_use("GMID")) THEN 1246 med_diag%GMID%dgsave = .TRUE. 1247 ELSE 1248 med_diag%GMID%dgsave = .FALSE. 1249 ENDIF 1250 IF (iom_use("MZMI")) THEN 1251 med_diag%MZMI%dgsave = .TRUE. 1252 ELSE 1253 med_diag%MZMI%dgsave = .FALSE. 1254 ENDIF 1255 IF (iom_use("GMEPN")) THEN 1256 med_diag%GMEPN%dgsave = .TRUE. 1257 ELSE 1258 med_diag%GMEPN%dgsave = .FALSE. 1259 ENDIF 1260 IF (iom_use("GMEPD")) THEN 1261 med_diag%GMEPD%dgsave = .TRUE. 1262 ELSE 1263 med_diag%GMEPD%dgsave = .FALSE. 1264 ENDIF 1265 IF (iom_use("GMEZMI")) THEN 1266 med_diag%GMEZMI%dgsave = .TRUE. 1267 ELSE 1268 med_diag%GMEZMI%dgsave = .FALSE. 1269 ENDIF 1270 IF (iom_use("GMED")) THEN 1271 med_diag%GMED%dgsave = .TRUE. 1272 ELSE 1273 med_diag%GMED%dgsave = .FALSE. 1274 ENDIF 1275 IF (iom_use("MZME")) THEN 1276 med_diag%MZME%dgsave = .TRUE. 1277 ELSE 1278 med_diag%MZME%dgsave = .FALSE. 1279 ENDIF 1280 IF (iom_use("DEXP")) THEN 1281 med_diag%DEXP%dgsave = .TRUE. 1282 ELSE 1283 med_diag%DEXP%dgsave = .FALSE. 1284 ENDIF 1285 IF (iom_use("DETN")) THEN 1286 med_diag%DETN%dgsave = .TRUE. 1287 ELSE 1288 med_diag%DETN%dgsave = .FALSE. 1289 ENDIF 1290 IF (iom_use("MDET")) THEN 1291 med_diag%MDET%dgsave = .TRUE. 1292 ELSE 1293 med_diag%MDET%dgsave = .FALSE. 1294 ENDIF 1295 IF (iom_use("AEOLIAN")) THEN 1296 med_diag%AEOLIAN%dgsave = .TRUE. 1297 ELSE 1298 med_diag%AEOLIAN%dgsave = .FALSE. 1299 ENDIF 1300 IF (iom_use("BENTHIC")) THEN 1301 med_diag%BENTHIC%dgsave = .TRUE. 1302 ELSE 1303 med_diag%BENTHIC%dgsave = .FALSE. 1304 ENDIF 1305 IF (iom_use("SCAVENGE")) THEN 1306 med_diag%SCAVENGE%dgsave = .TRUE. 1307 ELSE 1308 med_diag%SCAVENGE%dgsave = .FALSE. 1309 ENDIF 1310 IF (iom_use("PN_JLIM")) THEN 1311 med_diag%PN_JLIM%dgsave = .TRUE. 1312 ELSE 1313 med_diag%PN_JLIM%dgsave = .FALSE. 1314 ENDIF 1315 IF (iom_use("PN_NLIM")) THEN 1316 med_diag%PN_NLIM%dgsave = .TRUE. 1317 ELSE 1318 med_diag%PN_NLIM%dgsave = .FALSE. 1319 ENDIF 1320 IF (iom_use("PN_FELIM")) THEN 1321 med_diag%PN_FELIM%dgsave = .TRUE. 1322 ELSE 1323 med_diag%PN_FELIM%dgsave = .FALSE. 1324 ENDIF 1325 IF (iom_use("PD_JLIM")) THEN 1326 med_diag%PD_JLIM%dgsave = .TRUE. 1327 ELSE 1328 med_diag%PD_JLIM%dgsave = .FALSE. 1329 ENDIF 1330 IF (iom_use("PD_NLIM")) THEN 1331 med_diag%PD_NLIM%dgsave = .TRUE. 1332 ELSE 1333 med_diag%PD_NLIM%dgsave = .FALSE. 1334 ENDIF 1335 IF (iom_use("PD_FELIM")) THEN 1336 med_diag%PD_FELIM%dgsave = .TRUE. 1337 ELSE 1338 med_diag%PD_FELIM%dgsave = .FALSE. 1339 ENDIF 1340 IF (iom_use("PD_SILIM")) THEN 1341 med_diag%PD_SILIM%dgsave = .TRUE. 1342 ELSE 1343 med_diag%PD_SILIM%dgsave = .FALSE. 1344 ENDIF 1345 IF (iom_use("PDSILIM2")) THEN 1346 med_diag%PDSILIM2%dgsave = .TRUE. 1347 ELSE 1348 med_diag%PDSILIM2%dgsave = .FALSE. 1349 ENDIF 1350 IF (iom_use("SDT__100")) THEN 1351 med_diag%SDT__100%dgsave = .TRUE. 1352 ELSE 1353 med_diag%SDT__100%dgsave = .FALSE. 1354 ENDIF 1355 IF (iom_use("SDT__200")) THEN 1356 med_diag%SDT__200%dgsave = .TRUE. 1357 ELSE 1358 med_diag%SDT__200%dgsave = .FALSE. 1359 ENDIF 1360 IF (iom_use("SDT__500")) THEN 1361 med_diag%SDT__500%dgsave = .TRUE. 1362 ELSE 1363 med_diag%SDT__500%dgsave = .FALSE. 1364 ENDIF 1365 IF (iom_use("SDT_1000")) THEN 1366 med_diag%SDT_1000%dgsave = .TRUE. 1367 ELSE 1368 med_diag%SDT_1000%dgsave = .FALSE. 1369 ENDIF 1370 IF (iom_use("TOTREG_N")) THEN 1371 med_diag%TOTREG_N%dgsave = .TRUE. 1372 ELSE 1373 med_diag%TOTREG_N%dgsave = .FALSE. 1374 ENDIF 1375 IF (iom_use("TOTRG_SI")) THEN 1376 med_diag%TOTRG_SI%dgsave = .TRUE. 1377 ELSE 1378 med_diag%TOTRG_SI%dgsave = .FALSE. 1379 ENDIF 1380 IF (iom_use("REG__100")) THEN 1381 med_diag%REG__100%dgsave = .TRUE. 1382 ELSE 1383 med_diag%REG__100%dgsave = .FALSE. 1384 ENDIF 1385 IF (iom_use("REG__200")) THEN 1386 med_diag%REG__200%dgsave = .TRUE. 1387 ELSE 1388 med_diag%REG__200%dgsave = .FALSE. 1389 ENDIF 1390 IF (iom_use("REG__500")) THEN 1391 med_diag%REG__500%dgsave = .TRUE. 1392 ELSE 1393 med_diag%REG__500%dgsave = .FALSE. 1394 ENDIF 1395 IF (iom_use("REG_1000")) THEN 1396 med_diag%REG_1000%dgsave = .TRUE. 1397 ELSE 1398 med_diag%REG_1000%dgsave = .FALSE. 1399 ENDIF 1400 IF (iom_use("FASTN")) THEN 1401 med_diag%FASTN%dgsave = .TRUE. 1402 ELSE 1403 med_diag%FASTN%dgsave = .FALSE. 1404 ENDIF 1405 IF (iom_use("FASTSI")) THEN 1406 med_diag%FASTSI%dgsave = .TRUE. 1407 ELSE 1408 med_diag%FASTSI%dgsave = .FALSE. 1409 ENDIF 1410 IF (iom_use("FASTFE")) THEN 1411 med_diag%FASTFE%dgsave = .TRUE. 1412 ELSE 1413 med_diag%FASTFE%dgsave = .FALSE. 1414 ENDIF 1415 IF (iom_use("FASTC")) THEN 1416 med_diag%FASTC%dgsave = .TRUE. 1417 ELSE 1418 med_diag%FASTC%dgsave = .FALSE. 1419 ENDIF 1420 IF (iom_use("FASTCA")) THEN 1421 med_diag%FASTCA%dgsave = .TRUE. 1422 ELSE 1423 med_diag%FASTCA%dgsave = .FALSE. 1424 ENDIF 1425 IF (iom_use("FDT__100")) THEN 1426 med_diag%FDT__100%dgsave = .TRUE. 1427 ELSE 1428 med_diag%FDT__100%dgsave = .FALSE. 1429 ENDIF 1430 IF (iom_use("FDT__200")) THEN 1431 med_diag%FDT__200%dgsave = .TRUE. 1432 ELSE 1433 med_diag%FDT__200%dgsave = .FALSE. 1434 ENDIF 1435 IF (iom_use("FDT__500")) THEN 1436 med_diag%FDT__500%dgsave = .TRUE. 1437 ELSE 1438 med_diag%FDT__500%dgsave = .FALSE. 1439 ENDIF 1440 IF (iom_use("FDT_1000")) THEN 1441 med_diag%FDT_1000%dgsave = .TRUE. 1442 ELSE 1443 med_diag%FDT_1000%dgsave = .FALSE. 1444 ENDIF 1445 IF (iom_use("RG__100F")) THEN 1446 med_diag%RG__100F%dgsave = .TRUE. 1447 ELSE 1448 med_diag%RG__100F%dgsave = .FALSE. 1449 ENDIF 1450 IF (iom_use("RG__200F")) THEN 1451 med_diag%RG__200F%dgsave = .TRUE. 1452 ELSE 1453 med_diag%RG__200F%dgsave = .FALSE. 1454 ENDIF 1455 IF (iom_use("RG__500F")) THEN 1456 med_diag%RG__500F%dgsave = .TRUE. 1457 ELSE 1458 med_diag%RG__500F%dgsave = .FALSE. 1459 ENDIF 1460 IF (iom_use("RG_1000F")) THEN 1461 med_diag%RG_1000F%dgsave = .TRUE. 1462 ELSE 1463 med_diag%RG_1000F%dgsave = .FALSE. 1464 ENDIF 1465 IF (iom_use("FDS__100")) THEN 1466 med_diag%FDS__100%dgsave = .TRUE. 1467 ELSE 1468 med_diag%FDS__100%dgsave = .FALSE. 1469 ENDIF 1470 IF (iom_use("FDS__200")) THEN 1471 med_diag%FDS__200%dgsave = .TRUE. 1472 ELSE 1473 med_diag%FDS__200%dgsave = .FALSE. 1474 ENDIF 1475 IF (iom_use("FDS__500")) THEN 1476 med_diag%FDS__500%dgsave = .TRUE. 1477 ELSE 1478 med_diag%FDS__500%dgsave = .FALSE. 1479 ENDIF 1480 IF (iom_use("FDS_1000")) THEN 1481 med_diag%FDS_1000%dgsave = .TRUE. 1482 ELSE 1483 med_diag%FDS_1000%dgsave = .FALSE. 1484 ENDIF 1485 IF (iom_use("RGS_100F")) THEN 1486 med_diag%RGS_100F%dgsave = .TRUE. 1487 ELSE 1488 med_diag%RGS_100F%dgsave = .FALSE. 1489 ENDIF 1490 IF (iom_use("RGS_200F")) THEN 1491 med_diag%RGS_200F%dgsave = .TRUE. 1492 ELSE 1493 med_diag%RGS_200F%dgsave = .FALSE. 1494 ENDIF 1495 IF (iom_use("RGS_500F")) THEN 1496 med_diag%RGS_500F%dgsave = .TRUE. 1497 ELSE 1498 med_diag%RGS_500F%dgsave = .FALSE. 1499 ENDIF 1500 IF (iom_use("RGS1000F")) THEN 1501 med_diag%RGS1000F%dgsave = .TRUE. 1502 ELSE 1503 med_diag%RGS1000F%dgsave = .FALSE. 1504 ENDIF 1505 IF (iom_use("REMINN")) THEN 1506 med_diag%REMINN%dgsave = .TRUE. 1507 ELSE 1508 med_diag%REMINN%dgsave = .FALSE. 1509 ENDIF 1510 IF (iom_use("REMINSI")) THEN 1511 med_diag%REMINSI%dgsave = .TRUE. 1512 ELSE 1513 med_diag%REMINSI%dgsave = .FALSE. 1514 ENDIF 1515 IF (iom_use("REMINFE")) THEN 1516 med_diag%REMINFE%dgsave = .TRUE. 1517 ELSE 1518 med_diag%REMINFE%dgsave = .FALSE. 1519 ENDIF 1520 IF (iom_use("REMINC")) THEN 1521 med_diag%REMINC%dgsave = .TRUE. 1522 ELSE 1523 med_diag%REMINC%dgsave = .FALSE. 1524 ENDIF 1525 IF (iom_use("REMINCA")) THEN 1526 med_diag%REMINCA%dgsave = .TRUE. 1527 ELSE 1528 med_diag%REMINCA%dgsave = .FALSE. 1529 ENDIF 1530 IF (iom_use("SEAFLRN")) THEN 1531 med_diag%SEAFLRN%dgsave = .TRUE. 1532 ELSE 1533 med_diag%SEAFLRN%dgsave = .FALSE. 1534 ENDIF 1535 IF (iom_use("SEAFLRSI")) THEN 1536 med_diag%SEAFLRSI%dgsave = .TRUE. 1537 ELSE 1538 med_diag%SEAFLRSI%dgsave = .FALSE. 1539 ENDIF 1540 IF (iom_use("SEAFLRFE")) THEN 1541 med_diag%SEAFLRFE%dgsave = .TRUE. 1542 ELSE 1543 med_diag%SEAFLRFE%dgsave = .FALSE. 1544 ENDIF 1545 IF (iom_use("SEAFLRC")) THEN 1546 med_diag%SEAFLRC%dgsave = .TRUE. 1547 ELSE 1548 med_diag%SEAFLRC%dgsave = .FALSE. 1549 ENDIF 1550 IF (iom_use("SEAFLRCA")) THEN 1551 med_diag%SEAFLRCA%dgsave = .TRUE. 1552 ELSE 1553 med_diag%SEAFLRCA%dgsave = .FALSE. 1554 ENDIF 1555 IF (iom_use("MED_QSR")) THEN 1556 med_diag%MED_QSR%dgsave = .TRUE. 1557 ELSE 1558 med_diag%MED_QSR%dgsave = .FALSE. 1559 ENDIF 1560 IF (iom_use("MED_XPAR")) THEN 1561 med_diag%MED_XPAR%dgsave = .TRUE. 1562 ELSE 1563 med_diag%MED_XPAR%dgsave = .FALSE. 1564 ENDIF 1565 IF (iom_use("INTFLX_N")) THEN 1566 med_diag%INTFLX_N%dgsave = .TRUE. 1567 ELSE 1568 med_diag%INTFLX_N%dgsave = .FALSE. 1569 ENDIF 1570 IF (iom_use("INTFLX_SI")) THEN 1571 med_diag%INTFLX_SI%dgsave = .TRUE. 1572 ELSE 1573 med_diag%INTFLX_SI%dgsave = .FALSE. 1574 ENDIF 1575 IF (iom_use("INTFLX_FE")) THEN 1576 med_diag%INTFLX_FE%dgsave = .TRUE. 1577 ELSE 1578 med_diag%INTFLX_FE%dgsave = .FALSE. 1579 ENDIF 1580 IF (iom_use("INT_PN")) THEN 1581 med_diag%INT_PN%dgsave = .TRUE. 1582 ELSE 1583 med_diag%INT_PN%dgsave = .FALSE. 1584 ENDIF 1585 IF (iom_use("INT_PD")) THEN 1586 med_diag%INT_PD%dgsave = .TRUE. 1587 ELSE 1588 med_diag%INT_PD%dgsave = .FALSE. 1589 ENDIF 1590 IF (iom_use("ML_PRN")) THEN 1591 med_diag%ML_PRN%dgsave = .TRUE. 1592 ELSE 1593 med_diag%ML_PRN%dgsave = .FALSE. 1594 ENDIF 1595 IF (iom_use("ML_PRD")) THEN 1596 med_diag%ML_PRD%dgsave = .TRUE. 1597 ELSE 1598 med_diag%ML_PRD%dgsave = .FALSE. 1599 ENDIF 1600 IF (iom_use("OCAL_CCD")) THEN 1601 med_diag%OCAL_CCD%dgsave = .TRUE. 1602 ELSE 1603 med_diag%OCAL_CCD%dgsave = .FALSE. 1604 ENDIF 1605 IF (iom_use("OCAL_LVL")) THEN 1606 med_diag%OCAL_LVL%dgsave = .TRUE. 1607 ELSE 1608 med_diag%OCAL_LVL%dgsave = .FALSE. 1609 ENDIF 1610 IF (iom_use("FE_0000")) THEN 1611 med_diag%FE_0000%dgsave = .TRUE. 1612 ELSE 1613 med_diag%FE_0000%dgsave = .FALSE. 1614 ENDIF 1615 IF (iom_use("FE_0100")) THEN 1616 med_diag%FE_0100%dgsave = .TRUE. 1617 ELSE 1618 med_diag%FE_0100%dgsave = .FALSE. 1619 ENDIF 1620 IF (iom_use("FE_0200")) THEN 1621 med_diag%FE_0200%dgsave = .TRUE. 1622 ELSE 1623 med_diag%FE_0200%dgsave = .FALSE. 1624 ENDIF 1625 IF (iom_use("FE_0500")) THEN 1626 med_diag%FE_0500%dgsave = .TRUE. 1627 ELSE 1628 med_diag%FE_0500%dgsave = .FALSE. 1629 ENDIF 1630 IF (iom_use("FE_1000")) THEN 1631 med_diag%FE_1000%dgsave = .TRUE. 1632 ELSE 1633 med_diag%FE_1000%dgsave = .FALSE. 1634 ENDIF 1635 IF (iom_use("MED_XZE")) THEN 1636 med_diag%MED_XZE%dgsave = .TRUE. 1637 ELSE 1638 med_diag%MED_XZE%dgsave = .FALSE. 1639 ENDIF 1640 IF (iom_use("WIND")) THEN 1641 med_diag%WIND%dgsave = .TRUE. 1642 ELSE 1643 med_diag%WIND%dgsave = .FALSE. 1644 ENDIF 1645 IF (iom_use("ATM_PCO2")) THEN 1646 med_diag%ATM_PCO2%dgsave = .TRUE. 1647 ELSE 1648 med_diag%ATM_PCO2%dgsave = .FALSE. 1649 ENDIF 1650 IF (iom_use("OCN_PH")) THEN 1651 med_diag%OCN_PH%dgsave = .TRUE. 1652 ELSE 1653 med_diag%OCN_PH%dgsave = .FALSE. 1654 ENDIF 1655 IF (iom_use("OCN_PCO2")) THEN 1656 med_diag%OCN_PCO2%dgsave = .TRUE. 1657 ELSE 1658 med_diag%OCN_PCO2%dgsave = .FALSE. 1659 ENDIF 1660 IF (iom_use("OCNH2CO3")) THEN 1661 med_diag%OCNH2CO3%dgsave = .TRUE. 1662 ELSE 1663 med_diag%OCNH2CO3%dgsave = .FALSE. 1664 ENDIF 1665 IF (iom_use("OCN_HCO3")) THEN 1666 med_diag%OCN_HCO3%dgsave = .TRUE. 1667 ELSE 1668 med_diag%OCN_HCO3%dgsave = .FALSE. 1669 ENDIF 1670 IF (iom_use("OCN_CO3")) THEN 1671 med_diag%OCN_CO3%dgsave = .TRUE. 1672 ELSE 1673 med_diag%OCN_CO3%dgsave = .FALSE. 1674 ENDIF 1675 IF (iom_use("CO2FLUX")) THEN 1676 med_diag%CO2FLUX%dgsave = .TRUE. 1677 ELSE 1678 med_diag%CO2FLUX%dgsave = .FALSE. 1679 ENDIF 1680 IF (iom_use("OM_CAL")) THEN 1681 med_diag%OM_CAL%dgsave = .TRUE. 1682 ELSE 1683 med_diag%OM_CAL%dgsave = .FALSE. 1684 ENDIF 1685 IF (iom_use("OM_ARG")) THEN 1686 med_diag%OM_ARG%dgsave = .TRUE. 1687 ELSE 1688 med_diag%OM_ARG%dgsave = .FALSE. 1689 ENDIF 1690 IF (iom_use("TCO2")) THEN 1691 med_diag%TCO2%dgsave = .TRUE. 1692 ELSE 1693 med_diag%TCO2%dgsave = .FALSE. 1694 ENDIF 1695 IF (iom_use("TALK")) THEN 1696 med_diag%TALK%dgsave = .TRUE. 1697 ELSE 1698 med_diag%TALK%dgsave = .FALSE. 1699 ENDIF 1700 IF (iom_use("KW660")) THEN 1701 med_diag%KW660%dgsave = .TRUE. 1702 ELSE 1703 med_diag%KW660%dgsave = .FALSE. 1704 ENDIF 1705 IF (iom_use("ATM_PP0")) THEN 1706 med_diag%ATM_PP0%dgsave = .TRUE. 1707 ELSE 1708 med_diag%ATM_PP0%dgsave = .FALSE. 1709 ENDIF 1710 IF (iom_use("O2FLUX")) THEN 1711 med_diag%O2FLUX%dgsave = .TRUE. 1712 ELSE 1713 med_diag%O2FLUX%dgsave = .FALSE. 1714 ENDIF 1715 IF (iom_use("O2SAT")) THEN 1716 med_diag%O2SAT%dgsave = .TRUE. 1717 ELSE 1718 med_diag%O2SAT%dgsave = .FALSE. 1719 ENDIF 1720 IF (iom_use("CAL_CCD")) THEN 1721 med_diag%CAL_CCD%dgsave = .TRUE. 1722 ELSE 1723 med_diag%CAL_CCD%dgsave = .FALSE. 1724 ENDIF 1725 IF (iom_use("ARG_CCD")) THEN 1726 med_diag%ARG_CCD%dgsave = .TRUE. 1727 ELSE 1728 med_diag%ARG_CCD%dgsave = .FALSE. 1729 ENDIF 1730 IF (iom_use("SFR_OCAL")) THEN 1731 med_diag%SFR_OCAL%dgsave = .TRUE. 1732 ELSE 1733 med_diag%SFR_OCAL%dgsave = .FALSE. 1734 ENDIF 1735 IF (iom_use("SFR_OARG")) THEN 1736 med_diag%SFR_OARG%dgsave = .TRUE. 1737 ELSE 1738 med_diag%SFR_OARG%dgsave = .FALSE. 1739 ENDIF 1740 IF (iom_use("N_PROD")) THEN 1741 med_diag%N_PROD%dgsave = .TRUE. 1742 ELSE 1743 med_diag%N_PROD%dgsave = .FALSE. 1744 ENDIF 1745 IF (iom_use("N_CONS")) THEN 1746 med_diag%N_CONS%dgsave = .TRUE. 1747 ELSE 1748 med_diag%N_CONS%dgsave = .FALSE. 1749 ENDIF 1750 IF (iom_use("C_PROD")) THEN 1751 med_diag%C_PROD%dgsave = .TRUE. 1752 ELSE 1753 med_diag%C_PROD%dgsave = .FALSE. 1754 ENDIF 1755 IF (iom_use("C_CONS")) THEN 1756 med_diag%C_CONS%dgsave = .TRUE. 1757 ELSE 1758 med_diag%C_CONS%dgsave = .FALSE. 1759 ENDIF 1760 IF (iom_use("O2_PROD")) THEN 1761 med_diag%O2_PROD%dgsave = .TRUE. 1762 ELSE 1763 med_diag%O2_PROD%dgsave = .FALSE. 1764 ENDIF 1765 IF (iom_use("O2_CONS")) THEN 1766 med_diag%O2_CONS%dgsave = .TRUE. 1767 ELSE 1768 med_diag%O2_CONS%dgsave = .FALSE. 1769 ENDIF 1770 IF (iom_use("O2_ANOX")) THEN 1771 med_diag%O2_ANOX%dgsave = .TRUE. 1772 ELSE 1773 med_diag%O2_ANOX%dgsave = .FALSE. 1774 ENDIF 1775 IF (iom_use("RR_0100")) THEN 1776 med_diag%RR_0100%dgsave = .TRUE. 1777 ELSE 1778 med_diag%RR_0100%dgsave = .FALSE. 1779 ENDIF 1780 IF (iom_use("RR_0500")) THEN 1781 med_diag%RR_0500%dgsave = .TRUE. 1782 ELSE 1783 med_diag%RR_0500%dgsave = .FALSE. 1784 ENDIF 1785 IF (iom_use("RR_1000")) THEN 1786 med_diag%RR_1000%dgsave = .TRUE. 1787 ELSE 1788 med_diag%RR_1000%dgsave = .FALSE. 1789 ENDIF 1790 IF (iom_use("IBEN_N")) THEN 1791 med_diag%IBEN_N%dgsave = .TRUE. 1792 ELSE 1793 med_diag%IBEN_N%dgsave = .FALSE. 1794 ENDIF 1795 IF (iom_use("IBEN_FE")) THEN 1796 med_diag%IBEN_FE%dgsave = .TRUE. 1797 ELSE 1798 med_diag%IBEN_FE%dgsave = .FALSE. 1799 ENDIF 1800 IF (iom_use("IBEN_C")) THEN 1801 med_diag%IBEN_C%dgsave = .TRUE. 1802 ELSE 1803 med_diag%IBEN_C%dgsave = .FALSE. 1804 ENDIF 1805 IF (iom_use("IBEN_SI")) THEN 1806 med_diag%IBEN_SI%dgsave = .TRUE. 1807 ELSE 1808 med_diag%IBEN_SI%dgsave = .FALSE. 1809 ENDIF 1810 IF (iom_use("IBEN_CA")) THEN 1811 med_diag%IBEN_CA%dgsave = .TRUE. 1812 ELSE 1813 med_diag%IBEN_CA%dgsave = .FALSE. 1814 ENDIF 1815 IF (iom_use("OBEN_N")) THEN 1816 med_diag%OBEN_N%dgsave = .TRUE. 1817 ELSE 1818 med_diag%OBEN_N%dgsave = .FALSE. 1819 ENDIF 1820 IF (iom_use("OBEN_FE")) THEN 1821 med_diag%OBEN_FE%dgsave = .TRUE. 1822 ELSE 1823 med_diag%OBEN_FE%dgsave = .FALSE. 1824 ENDIF 1825 IF (iom_use("OBEN_C")) THEN 1826 med_diag%OBEN_C%dgsave = .TRUE. 1827 ELSE 1828 med_diag%OBEN_C%dgsave = .FALSE. 1829 ENDIF 1830 IF (iom_use("OBEN_SI")) THEN 1831 med_diag%OBEN_SI%dgsave = .TRUE. 1832 ELSE 1833 med_diag%OBEN_SI%dgsave = .FALSE. 1834 ENDIF 1835 IF (iom_use("OBEN_CA")) THEN 1836 med_diag%OBEN_CA%dgsave = .TRUE. 1837 ELSE 1838 med_diag%OBEN_CA%dgsave = .FALSE. 1839 ENDIF 1840 IF (iom_use("BEN_N")) THEN 1841 med_diag%BEN_N%dgsave = .TRUE. 1842 ELSE 1843 med_diag%BEN_N%dgsave = .FALSE. 1844 ENDIF 1845 IF (iom_use("BEN_FE")) THEN 1846 med_diag%BEN_FE%dgsave = .TRUE. 1847 ELSE 1848 med_diag%BEN_FE%dgsave = .FALSE. 1849 ENDIF 1850 IF (iom_use("BEN_C")) THEN 1851 med_diag%BEN_C%dgsave = .TRUE. 1852 ELSE 1853 med_diag%BEN_C%dgsave = .FALSE. 1854 ENDIF 1855 IF (iom_use("BEN_SI")) THEN 1856 med_diag%BEN_SI%dgsave = .TRUE. 1857 ELSE 1858 med_diag%BEN_SI%dgsave = .FALSE. 1859 ENDIF 1860 IF (iom_use("BEN_CA")) THEN 1861 med_diag%BEN_CA%dgsave = .TRUE. 1862 ELSE 1863 med_diag%BEN_CA%dgsave = .FALSE. 1864 ENDIF 1865 IF (iom_use("RUNOFF")) THEN 1866 med_diag%RUNOFF%dgsave = .TRUE. 1867 ELSE 1868 med_diag%RUNOFF%dgsave = .FALSE. 1869 ENDIF 1870 IF (iom_use("RIV_N")) THEN 1871 med_diag%RIV_N%dgsave = .TRUE. 1872 ELSE 1873 med_diag%RIV_N%dgsave = .FALSE. 1874 ENDIF 1875 IF (iom_use("RIV_SI")) THEN 1876 med_diag%RIV_SI%dgsave = .TRUE. 1877 ELSE 1878 med_diag%RIV_SI%dgsave = .FALSE. 1879 ENDIF 1880 IF (iom_use("RIV_C")) THEN 1881 med_diag%RIV_C%dgsave = .TRUE. 1882 ELSE 1883 med_diag%RIV_C%dgsave = .FALSE. 1884 ENDIF 1885 IF (iom_use("RIV_ALK")) THEN 1886 med_diag%RIV_ALK%dgsave = .TRUE. 1887 ELSE 1888 med_diag%RIV_ALK%dgsave = .FALSE. 1889 ENDIF 1890 IF (iom_use("DETC")) THEN 1891 med_diag%DETC%dgsave = .TRUE. 1892 ELSE 1893 med_diag%DETC%dgsave = .FALSE. 1894 ENDIF 1895 IF (iom_use("SDC__100")) THEN 1896 med_diag%SDC__100%dgsave = .TRUE. 1897 ELSE 1898 med_diag%SDC__100%dgsave = .FALSE. 1899 ENDIF 1900 IF (iom_use("SDC__200")) THEN 1901 med_diag%SDC__200%dgsave = .TRUE. 1902 ELSE 1903 med_diag%SDC__200%dgsave = .FALSE. 1904 ENDIF 1905 IF (iom_use("SDC__500")) THEN 1906 med_diag%SDC__500%dgsave = .TRUE. 1907 ELSE 1908 med_diag%SDC__500%dgsave = .FALSE. 1909 ENDIF 1910 IF (iom_use("SDC_1000")) THEN 1911 med_diag%SDC_1000%dgsave = .TRUE. 1912 ELSE 1913 med_diag%SDC_1000%dgsave = .FALSE. 1914 ENDIF 1915 IF (iom_use("INVTC")) THEN 1916 med_diag%INVTC%dgsave = .TRUE. 1917 ELSE 1918 med_diag%INVTC%dgsave = .FALSE. 1919 ENDIF 1920 IF (iom_use("INVTALK")) THEN 1921 med_diag%INVTALK%dgsave = .TRUE. 1922 ELSE 1923 med_diag%INVTALK%dgsave = .FALSE. 1924 ENDIF 1925 IF (iom_use("INVTO2")) THEN 1926 med_diag%INVTO2%dgsave = .TRUE. 1927 ELSE 1928 med_diag%INVTO2%dgsave = .FALSE. 1929 ENDIF 1930 IF (iom_use("LYSO_CA")) THEN 1931 med_diag%LYSO_CA%dgsave = .TRUE. 1932 ELSE 1933 med_diag%LYSO_CA%dgsave = .FALSE. 1934 ENDIF 1935 IF (iom_use("COM_RESP")) THEN 1936 med_diag%COM_RESP%dgsave = .TRUE. 1937 ELSE 1938 med_diag%COM_RESP%dgsave = .FALSE. 1939 ENDIF 1940 IF (iom_use("PN_LLOSS")) THEN 1941 med_diag%PN_LLOSS%dgsave = .TRUE. 1942 ELSE 1943 med_diag%PN_LLOSS%dgsave = .FALSE. 1944 ENDIF 1945 IF (iom_use("PD_LLOSS")) THEN 1946 med_diag%PD_LLOSS%dgsave = .TRUE. 1947 ELSE 1948 med_diag%PD_LLOSS%dgsave = .FALSE. 1949 ENDIF 1950 IF (iom_use("ZI_LLOSS")) THEN 1951 med_diag%ZI_LLOSS%dgsave = .TRUE. 1952 ELSE 1953 med_diag%ZI_LLOSS%dgsave = .FALSE. 1954 ENDIF 1955 IF (iom_use("ZE_LLOSS")) THEN 1956 med_diag%ZE_LLOSS%dgsave = .TRUE. 1957 ELSE 1958 med_diag%ZE_LLOSS%dgsave = .FALSE. 1959 ENDIF 1960 IF (iom_use("ZI_MES_N")) THEN 1961 med_diag%ZI_MES_N%dgsave = .TRUE. 1962 ELSE 1963 med_diag%ZI_MES_N%dgsave = .FALSE. 1964 ENDIF 1965 IF (iom_use("ZI_MES_D")) THEN 1966 med_diag%ZI_MES_D%dgsave = .TRUE. 1967 ELSE 1968 med_diag%ZI_MES_D%dgsave = .FALSE. 1969 ENDIF 1970 IF (iom_use("ZI_MES_C")) THEN 1971 med_diag%ZI_MES_C%dgsave = .TRUE. 1972 ELSE 1973 med_diag%ZI_MES_C%dgsave = .FALSE. 1974 ENDIF 1975 IF (iom_use("ZI_MESDC")) THEN 1976 med_diag%ZI_MESDC%dgsave = .TRUE. 1977 ELSE 1978 med_diag%ZI_MESDC%dgsave = .FALSE. 1979 ENDIF 1980 IF (iom_use("ZI_EXCR")) THEN 1981 med_diag%ZI_EXCR%dgsave = .TRUE. 1982 ELSE 1983 med_diag%ZI_EXCR%dgsave = .FALSE. 1984 ENDIF 1985 IF (iom_use("ZI_RESP")) THEN 1986 med_diag%ZI_RESP%dgsave = .TRUE. 1987 ELSE 1988 med_diag%ZI_RESP%dgsave = .FALSE. 1989 ENDIF 1990 IF (iom_use("ZI_GROW")) THEN 1991 med_diag%ZI_GROW%dgsave = .TRUE. 1992 ELSE 1993 med_diag%ZI_GROW%dgsave = .FALSE. 1994 ENDIF 1995 IF (iom_use("ZE_MES_N")) THEN 1996 med_diag%ZE_MES_N%dgsave = .TRUE. 1997 ELSE 1998 med_diag%ZE_MES_N%dgsave = .FALSE. 1999 ENDIF 2000 IF (iom_use("ZE_MES_D")) THEN 2001 med_diag%ZE_MES_D%dgsave = .TRUE. 2002 ELSE 2003 med_diag%ZE_MES_D%dgsave = .FALSE. 2004 ENDIF 2005 IF (iom_use("ZE_MES_C")) THEN 2006 med_diag%ZE_MES_C%dgsave = .TRUE. 2007 ELSE 2008 med_diag%ZE_MES_C%dgsave = .FALSE. 2009 ENDIF 2010 IF (iom_use("ZE_MESDC")) THEN 2011 med_diag%ZE_MESDC%dgsave = .TRUE. 2012 ELSE 2013 med_diag%ZE_MESDC%dgsave = .FALSE. 2014 ENDIF 2015 IF (iom_use("ZE_EXCR")) THEN 2016 med_diag%ZE_EXCR%dgsave = .TRUE. 2017 ELSE 2018 med_diag%ZE_EXCR%dgsave = .FALSE. 2019 ENDIF 2020 IF (iom_use("ZE_RESP")) THEN 2021 med_diag%ZE_RESP%dgsave = .TRUE. 2022 ELSE 2023 med_diag%ZE_RESP%dgsave = .FALSE. 2024 ENDIF 2025 IF (iom_use("ZE_GROW")) THEN 2026 med_diag%ZE_GROW%dgsave = .TRUE. 2027 ELSE 2028 med_diag%ZE_GROW%dgsave = .FALSE. 2029 ENDIF 2030 IF (iom_use("MDETC")) THEN 2031 med_diag%MDETC%dgsave = .TRUE. 2032 ELSE 2033 med_diag%MDETC%dgsave = .FALSE. 2034 ENDIF 2035 IF (iom_use("GMIDC")) THEN 2036 med_diag%GMIDC%dgsave = .TRUE. 2037 ELSE 2038 med_diag%GMIDC%dgsave = .FALSE. 2039 ENDIF 2040 IF (iom_use("GMEDC")) THEN 2041 med_diag%GMEDC%dgsave = .TRUE. 2042 ELSE 2043 med_diag%GMEDC%dgsave = .FALSE. 2044 ENDIF 2045 IF (iom_use("BASIN_01")) THEN 2046 med_diag%BASIN_01%dgsave = .TRUE. 2047 ELSE 2048 med_diag%BASIN_01%dgsave = .FALSE. 2049 ENDIF 2050 IF (iom_use("BASIN_02")) THEN 2051 med_diag%BASIN_02%dgsave = .TRUE. 2052 ELSE 2053 med_diag%BASIN_02%dgsave = .FALSE. 2054 ENDIF 2055 IF (iom_use("BASIN_03")) THEN 2056 med_diag%BASIN_03%dgsave = .TRUE. 2057 ELSE 2058 med_diag%BASIN_03%dgsave = .FALSE. 2059 ENDIF 2060 IF (iom_use("BASIN_04")) THEN 2061 med_diag%BASIN_04%dgsave = .TRUE. 2062 ELSE 2063 med_diag%BASIN_04%dgsave = .FALSE. 2064 ENDIF 2065 IF (iom_use("BASIN_05")) THEN 2066 med_diag%BASIN_05%dgsave = .TRUE. 2067 ELSE 2068 med_diag%BASIN_05%dgsave = .FALSE. 2069 ENDIF 2070 IF (iom_use("BASIN_06")) THEN 2071 med_diag%BASIN_06%dgsave = .TRUE. 2072 ELSE 2073 med_diag%BASIN_06%dgsave = .FALSE. 2074 ENDIF 2075 IF (iom_use("BASIN_07")) THEN 2076 med_diag%BASIN_07%dgsave = .TRUE. 2077 ELSE 2078 med_diag%BASIN_07%dgsave = .FALSE. 2079 ENDIF 2080 IF (iom_use("BASIN_08")) THEN 2081 med_diag%BASIN_08%dgsave = .TRUE. 2082 ELSE 2083 med_diag%BASIN_08%dgsave = .FALSE. 2084 ENDIF 2085 IF (iom_use("BASIN_09")) THEN 2086 med_diag%BASIN_09%dgsave = .TRUE. 2087 ELSE 2088 med_diag%BASIN_09%dgsave = .FALSE. 2089 ENDIF 2090 IF (iom_use("BASIN_10")) THEN 2091 med_diag%BASIN_10%dgsave = .TRUE. 2092 ELSE 2093 med_diag%BASIN_10%dgsave = .FALSE. 2094 ENDIF 2095 IF (iom_use("BASIN_11")) THEN 2096 med_diag%BASIN_11%dgsave = .TRUE. 2097 ELSE 2098 med_diag%BASIN_11%dgsave = .FALSE. 2099 ENDIF 2100 IF (iom_use("BASIN_12")) THEN 2101 med_diag%BASIN_12%dgsave = .TRUE. 2102 ELSE 2103 med_diag%BASIN_12%dgsave = .FALSE. 2104 ENDIF 2105 IF (iom_use("BASIN_13")) THEN 2106 med_diag%BASIN_13%dgsave = .TRUE. 2107 ELSE 2108 med_diag%BASIN_13%dgsave = .FALSE. 2109 ENDIF 2110 IF (iom_use("BASIN_14")) THEN 2111 med_diag%BASIN_14%dgsave = .TRUE. 2112 ELSE 2113 med_diag%BASIN_14%dgsave = .FALSE. 2114 ENDIF 2115 IF (iom_use("BASIN_15")) THEN 2116 med_diag%BASIN_15%dgsave = .TRUE. 2117 ELSE 2118 med_diag%BASIN_15%dgsave = .FALSE. 2119 ENDIF 2120 IF (iom_use("BASIN_16")) THEN 2121 med_diag%BASIN_16%dgsave = .TRUE. 2122 ELSE 2123 med_diag%BASIN_16%dgsave = .FALSE. 2124 ENDIF 2125 IF (iom_use("BASIN_17")) THEN 2126 med_diag%BASIN_17%dgsave = .TRUE. 2127 ELSE 2128 med_diag%BASIN_17%dgsave = .FALSE. 2129 ENDIF 2130 IF (iom_use("BASIN_18")) THEN 2131 med_diag%BASIN_18%dgsave = .TRUE. 2132 ELSE 2133 med_diag%BASIN_18%dgsave = .FALSE. 2134 ENDIF 2135 IF (iom_use("BASIN_19")) THEN 2136 med_diag%BASIN_19%dgsave = .TRUE. 2137 ELSE 2138 med_diag%BASIN_19%dgsave = .FALSE. 2139 ENDIF 2140 IF (iom_use("BASIN_20")) THEN 2141 med_diag%BASIN_20%dgsave = .TRUE. 2142 ELSE 2143 med_diag%BASIN_20%dgsave = .FALSE. 2144 ENDIF 2145 IF (iom_use("BASIN_21")) THEN 2146 med_diag%BASIN_21%dgsave = .TRUE. 2147 ELSE 2148 med_diag%BASIN_21%dgsave = .FALSE. 2149 ENDIF 2150 IF (iom_use("BASIN_22")) THEN 2151 med_diag%BASIN_22%dgsave = .TRUE. 2152 ELSE 2153 med_diag%BASIN_22%dgsave = .FALSE. 2154 ENDIF 2155 IF (iom_use("BASIN_23")) THEN 2156 med_diag%BASIN_23%dgsave = .TRUE. 2157 ELSE 2158 med_diag%BASIN_23%dgsave = .FALSE. 2159 ENDIF 2160 IF (iom_use("BASIN_24")) THEN 2161 med_diag%BASIN_24%dgsave = .TRUE. 2162 ELSE 2163 med_diag%BASIN_24%dgsave = .FALSE. 2164 ENDIF 2165 IF (iom_use("BASIN_25")) THEN 2166 med_diag%BASIN_25%dgsave = .TRUE. 2167 ELSE 2168 med_diag%BASIN_25%dgsave = .FALSE. 2169 ENDIF 2170 IF (iom_use("BASIN_26")) THEN 2171 med_diag%BASIN_26%dgsave = .TRUE. 2172 ELSE 2173 med_diag%BASIN_26%dgsave = .FALSE. 2174 ENDIF 2175 IF (iom_use("BASIN_27")) THEN 2176 med_diag%BASIN_27%dgsave = .TRUE. 2177 ELSE 2178 med_diag%BASIN_27%dgsave = .FALSE. 2179 ENDIF 2180 IF (iom_use("BASIN_28")) THEN 2181 med_diag%BASIN_28%dgsave = .TRUE. 2182 ELSE 2183 med_diag%BASIN_28%dgsave = .FALSE. 2184 ENDIF 2185 IF (iom_use("BASIN_29")) THEN 2186 med_diag%BASIN_29%dgsave = .TRUE. 2187 ELSE 2188 med_diag%BASIN_29%dgsave = .FALSE. 2189 ENDIF 2190 IF (iom_use("BASIN_30")) THEN 2191 med_diag%BASIN_30%dgsave = .TRUE. 2192 ELSE 2193 med_diag%BASIN_30%dgsave = .FALSE. 2194 ENDIF 2195 IF (iom_use("BASIN_31")) THEN 2196 med_diag%BASIN_31%dgsave = .TRUE. 2197 ELSE 2198 med_diag%BASIN_31%dgsave = .FALSE. 2199 ENDIF 2200 IF (iom_use("BASIN_32")) THEN 2201 med_diag%BASIN_32%dgsave = .TRUE. 2202 ELSE 2203 med_diag%BASIN_32%dgsave = .FALSE. 2204 ENDIF 2205 IF (iom_use("BASIN_33")) THEN 2206 med_diag%BASIN_33%dgsave = .TRUE. 2207 ELSE 2208 med_diag%BASIN_33%dgsave = .FALSE. 2209 ENDIF 2210 IF (iom_use("BASIN_34")) THEN 2211 med_diag%BASIN_34%dgsave = .TRUE. 2212 ELSE 2213 med_diag%BASIN_34%dgsave = .FALSE. 2214 ENDIF 2215 IF (iom_use("BASIN_35")) THEN 2216 med_diag%BASIN_35%dgsave = .TRUE. 2217 ELSE 2218 med_diag%BASIN_35%dgsave = .FALSE. 2219 ENDIF 2220 IF (iom_use("BASIN_36")) THEN 2221 med_diag%BASIN_36%dgsave = .TRUE. 2222 ELSE 2223 med_diag%BASIN_36%dgsave = .FALSE. 2224 ENDIF 2225 IF (iom_use("BASIN_37")) THEN 2226 med_diag%BASIN_37%dgsave = .TRUE. 2227 ELSE 2228 med_diag%BASIN_37%dgsave = .FALSE. 2229 ENDIF 2230 IF (iom_use("BASIN_38")) THEN 2231 med_diag%BASIN_38%dgsave = .TRUE. 2232 ELSE 2233 med_diag%BASIN_38%dgsave = .FALSE. 2234 ENDIF 2235 IF (iom_use("BASIN_39")) THEN 2236 med_diag%BASIN_39%dgsave = .TRUE. 2237 ELSE 2238 med_diag%BASIN_39%dgsave = .FALSE. 2239 ENDIF 2240 IF (iom_use("BASIN_40")) THEN 2241 med_diag%BASIN_40%dgsave = .TRUE. 2242 ELSE 2243 med_diag%BASIN_40%dgsave = .FALSE. 2244 ENDIF 2245 IF (iom_use("BASIN_41")) THEN 2246 med_diag%BASIN_41%dgsave = .TRUE. 2247 ELSE 2248 med_diag%BASIN_41%dgsave = .FALSE. 2249 ENDIF 2250 IF (iom_use("BASIN_42")) THEN 2251 med_diag%BASIN_42%dgsave = .TRUE. 2252 ELSE 2253 med_diag%BASIN_42%dgsave = .FALSE. 2254 ENDIF 2255 IF (iom_use("BASIN_43")) THEN 2256 med_diag%BASIN_43%dgsave = .TRUE. 2257 ELSE 2258 med_diag%BASIN_43%dgsave = .FALSE. 2259 ENDIF 2260 IF (iom_use("BASIN_44")) THEN 2261 med_diag%BASIN_44%dgsave = .TRUE. 2262 ELSE 2263 med_diag%BASIN_44%dgsave = .FALSE. 2264 ENDIF 2265 IF (iom_use("BASIN_45")) THEN 2266 med_diag%BASIN_45%dgsave = .TRUE. 2267 ELSE 2268 med_diag%BASIN_45%dgsave = .FALSE. 2269 ENDIF 2270 IF (iom_use("INT_ZMI")) THEN 2271 med_diag%INT_ZMI%dgsave = .TRUE. 2272 ELSE 2273 med_diag%INT_ZMI%dgsave = .FALSE. 2274 ENDIF 2275 IF (iom_use("INT_ZME")) THEN 2276 med_diag%INT_ZME%dgsave = .TRUE. 2277 ELSE 2278 med_diag%INT_ZME%dgsave = .FALSE. 2279 ENDIF 2280 IF (iom_use("INT_DET")) THEN 2281 med_diag%INT_DET%dgsave = .TRUE. 2282 ELSE 2283 med_diag%INT_DET%dgsave = .FALSE. 2284 ENDIF 2285 IF (iom_use("INT_DTC")) THEN 2286 med_diag%INT_DTC%dgsave = .TRUE. 2287 ELSE 2288 med_diag%INT_DTC%dgsave = .FALSE. 2289 ENDIF 2290 IF (iom_use("DMS_SURF")) THEN 2291 med_diag%DMS_SURF%dgsave = .TRUE. 2292 ELSE 2293 med_diag%DMS_SURF%dgsave = .FALSE. 2294 ENDIF 2295 IF (iom_use("DMS_ANDR")) THEN 2296 med_diag%DMS_ANDR%dgsave = .TRUE. 2297 ELSE 2298 med_diag%DMS_ANDR%dgsave = .FALSE. 2299 ENDIF 2300 IF (iom_use("DMS_SIMO")) THEN 2301 med_diag%DMS_SIMO%dgsave = .TRUE. 2302 ELSE 2303 med_diag%DMS_SIMO%dgsave = .FALSE. 2304 ENDIF 2305 IF (iom_use("DMS_ARAN")) THEN 2306 med_diag%DMS_ARAN%dgsave = .TRUE. 2307 ELSE 2308 med_diag%DMS_ARAN%dgsave = .FALSE. 2309 ENDIF 2310 IF (iom_use("DMS_HALL")) THEN 2311 med_diag%DMS_HALL%dgsave = .TRUE. 2312 ELSE 2313 med_diag%DMS_HALL%dgsave = .FALSE. 2314 ENDIF 2315 IF (iom_use("TPP3")) THEN 2316 med_diag%TPP3%dgsave = .TRUE. 2317 ELSE 2318 med_diag%TPP3%dgsave = .FALSE. 2319 ENDIF 2320 IF (iom_use("DETFLUX3")) THEN 2321 med_diag%DETFLUX3%dgsave = .TRUE. 2322 ELSE 2323 med_diag%DETFLUX3%dgsave = .FALSE. 2324 ENDIF 2325 IF (iom_use("REMIN3N")) THEN 2326 med_diag%REMIN3N%dgsave = .TRUE. 2327 ELSE 2328 med_diag%REMIN3N%dgsave = .FALSE. 2329 ENDIF 2330 IF (iom_use("PH3")) THEN 2331 med_diag%PH3%dgsave = .TRUE. 2332 ELSE 2333 med_diag%PH3%dgsave = .FALSE. 2334 ENDIF 2335 IF (iom_use("OM_CAL3")) THEN 2336 med_diag%OM_CAL3%dgsave = .TRUE. 2337 ELSE 2338 med_diag%OM_CAL3%dgsave = .FALSE. 2339 ENDIF 2340 !! 2341 !! 2342 END SUBROUTINE trc_nam_iom_medusa 2343 1128 2344 #else 1129 2345 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.