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