Symbol Description Uses
ifc 117


File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 112 SEAICE_COST_FINAL 
        OPEN(unit=ifc,file=cfname)
./pkg/seaice/seaice_cost_final.F 114 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'fc =', fc
./pkg/seaice/seaice_cost_final.F 115 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_ice   =', f_ice, no_ice
./pkg/seaice/seaice_cost_final.F 116 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_smrarea   =', f_smrarea, no_smrarea
./pkg/seaice/seaice_cost_final.F 117 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_smrsst    =', f_smrsst, no_smrsst
./pkg/seaice/seaice_cost_final.F 118 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_smrsss    =', f_smrsss, no_smrsss
./pkg/seaice/seaice_cost_final.F 120 SEAICE_COST_FINAL 
        CLOSE(ifc)
./pkg/seaice/seaice_cost_final.F 42 SEAICE_COST_FINAL 
      INTEGER ifc
./pkg/seaice/seaice_cost_final.F 55 SEAICE_COST_FINAL 
      ifc = 30
./pkg/shelfice/shelfice_cost_final.F 114 SHELFICE_COST_FINAL 
       ifc = 30
./pkg/shelfice/shelfice_cost_final.F 116 SHELFICE_COST_FINAL 
       OPEN(unit=ifc,file=cfname)
./pkg/shelfice/shelfice_cost_final.F 118 SHELFICE_COST_FINAL 
       WRITE(ifc,*) 'fc =', fc
./pkg/shelfice/shelfice_cost_final.F 120 SHELFICE_COST_FINAL 
       WRITE(ifc,*) 'f_shelfice =', f_shelfice
./pkg/shelfice/shelfice_cost_final.F 121 SHELFICE_COST_FINAL 
       WRITE(ifc,*) 'f_shifwflx =', f_shifwflx, no_shifwflx
./pkg/shelfice/shelfice_cost_final.F 123 SHELFICE_COST_FINAL 
       CLOSE(ifc)
./pkg/shelfice/shelfice_cost_final.F 49 SHELFICE_COST_FINAL 
      INTEGER ifc
./pkg/ecco/ecco_cost_final.F 1204 ECCO_COST_FINAL 
        open(unit=ifc,file=cfname)
./pkg/ecco/ecco_cost_final.F 1207 ECCO_COST_FINAL 
        write(ifc,*)
./pkg/ecco/ecco_cost_final.F 1209 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1212 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1214 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1216 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1218 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1220 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1222 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1224 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1226 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1228 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1230 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1232 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1234 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1236 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1238 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1240 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1242 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1244 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1246 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1248 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1250 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1252 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1254 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1256 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1258 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1260 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1262 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1264 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1266 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1268 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1270 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1272 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1274 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1276 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1278 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1280 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1282 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1284 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1286 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1288 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1290 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1292 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1294 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1296 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1298 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1300 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1302 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1304 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1306 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1308 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1310 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1312 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1314 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1316 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1318 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1320 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1322 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1324 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1326 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1328 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1330 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1332 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1334 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1336 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1338 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 1398 ECCO_COST_FINAL 
         write(ifc,'(4A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1411 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1421 ECCO_COST_FINAL 
         write(ifc,'(A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1431 ECCO_COST_FINAL 
         write(ifc,'(A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1444 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1453 ECCO_COST_FINAL 
        close(ifc)
./pkg/ecco/ecco_cost_final.F 160 ECCO_COST_FINAL 
      ifc = 30
./pkg/ecco/ecco_cost_final.F 53 ECCO_COST_FINAL 
      integer ifc