Symbol Description Uses
ifc 118


File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 121 SEAICE_COST_FINAL 
        OPEN(unit=ifc,file=cfname)
./pkg/seaice/seaice_cost_final.F 123 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'fc =', fc
./pkg/seaice/seaice_cost_final.F 124 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_ice   =', f_ice, no_ice
./pkg/seaice/seaice_cost_final.F 125 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_smrarea   =', f_smrarea, no_smrarea
./pkg/seaice/seaice_cost_final.F 126 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_smrsst    =', f_smrsst, no_smrsst
./pkg/seaice/seaice_cost_final.F 127 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_smrsss    =', f_smrsss, no_smrsss
./pkg/seaice/seaice_cost_final.F 129 SEAICE_COST_FINAL 
        CLOSE(ifc)
./pkg/seaice/seaice_cost_final.F 51 SEAICE_COST_FINAL 
      INTEGER ifc
./pkg/seaice/seaice_cost_final.F 64 SEAICE_COST_FINAL 
      ifc = 30
./pkg/shelfice/shelfice_cost_final.F 120 SHELFICE_COST_FINAL 
       ifc = 30
./pkg/shelfice/shelfice_cost_final.F 122 SHELFICE_COST_FINAL 
       OPEN(unit=ifc,file=cfname)
./pkg/shelfice/shelfice_cost_final.F 124 SHELFICE_COST_FINAL 
       WRITE(ifc,*) 'fc =', fc
./pkg/shelfice/shelfice_cost_final.F 126 SHELFICE_COST_FINAL 
       WRITE(ifc,*) 'f_shelfice =', f_shelfice
./pkg/shelfice/shelfice_cost_final.F 127 SHELFICE_COST_FINAL 
       WRITE(ifc,*) 'f_shifwflx =', f_shifwflx, no_shifwflx
./pkg/shelfice/shelfice_cost_final.F 129 SHELFICE_COST_FINAL 
       CLOSE(ifc)
./pkg/shelfice/shelfice_cost_final.F 55 SHELFICE_COST_FINAL 
      INTEGER ifc
./pkg/ecco/ecco_cost_final.F 1331 ECCO_COST_FINAL 
        open(unit=ifc,file=cfname)
./pkg/ecco/ecco_cost_final.F 1334 ECCO_COST_FINAL 
        write(ifc,*)
./pkg/ecco/ecco_cost_final.F 1336 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1340 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1342 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1344 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1346 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1348 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1350 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1352 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1354 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1356 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1358 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1360 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1362 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1364 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1366 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1368 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1370 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1372 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1374 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1376 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1378 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1380 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1382 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1384 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1386 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1388 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1390 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1392 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1394 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1396 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1398 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1400 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1402 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1404 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1406 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1408 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1410 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1412 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1414 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1416 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1418 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1420 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1422 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1424 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1426 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1428 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1430 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1432 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1434 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1436 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1438 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1440 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1442 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1444 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1446 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1448 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1450 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1452 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1454 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1456 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1458 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1460 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1462 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1464 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1466 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1468 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1470 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1472 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1474 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1476 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1478 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1480 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1482 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1484 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1486 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1488 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1490 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1492 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1494 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1496 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1498 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1500 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1502 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1504 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1506 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1508 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1513 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1515 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1517 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1519 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1522 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1533 ECCO_COST_FINAL 
         write(ifc,'(4A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1543 ECCO_COST_FINAL 
         write(ifc,'(3A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1557 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1570 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1584 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1598 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1607 ECCO_COST_FINAL 
        close(ifc)
./pkg/ecco/ecco_cost_final.F 185 ECCO_COST_FINAL 
      ifc = 30
./pkg/ecco/ecco_cost_final.F 64 ECCO_COST_FINAL 
      integer ifc