Symbol Description Uses
ifc 98


File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 138 SEAICE_COST_FINAL 
        open(unit=ifc,file=cfname)
./pkg/seaice/seaice_cost_final.F 140 SEAICE_COST_FINAL 
        write(ifc,*) 'fc =', fc
./pkg/seaice/seaice_cost_final.F 141 SEAICE_COST_FINAL 
        write(ifc,*) 'f_ice   =', f_ice, no_ice
./pkg/seaice/seaice_cost_final.F 142 SEAICE_COST_FINAL 
        write(ifc,*) 'f_smrarea   =', f_smrarea, no_smrarea
./pkg/seaice/seaice_cost_final.F 143 SEAICE_COST_FINAL 
        write(ifc,*) 'f_smrsst    =', f_smrsst, no_smrsst
./pkg/seaice/seaice_cost_final.F 144 SEAICE_COST_FINAL 
        write(ifc,*) 'f_smrsss    =', f_smrsss, no_smrsss
./pkg/seaice/seaice_cost_final.F 146 SEAICE_COST_FINAL 
        close(ifc)
./pkg/seaice/seaice_cost_final.F 44 SEAICE_COST_FINAL 
      integer ifc
./pkg/seaice/seaice_cost_final.F 69 SEAICE_COST_FINAL 
      ifc = 30
./pkg/ecco/ecco_cost_final.F 1021 ECCO_COST_FINAL 
        open(unit=ifc,file=cfname)
./pkg/ecco/ecco_cost_final.F 1023 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1025 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1027 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1029 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1031 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1033 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1035 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1037 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1039 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1041 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1043 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1045 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1047 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1049 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1051 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1053 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1055 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1057 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1059 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1061 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1063 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1065 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1067 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1069 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1071 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1073 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1075 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1077 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1079 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1081 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1083 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1085 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1087 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1089 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1091 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1093 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1095 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1097 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1099 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1101 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1103 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1105 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1107 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1109 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1111 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1113 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1115 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1117 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1119 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1121 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1123 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1125 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1127 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1129 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1131 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1133 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1135 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1137 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1139 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1141 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1143 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1145 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1147 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1149 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1151 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1153 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1155 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1157 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1159 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1161 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1163 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1165 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1167 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1169 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1171 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1173 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1175 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1177 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1179 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1181 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1183 ECCO_COST_FINAL 
        write(ifc,'(A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1191 ECCO_COST_FINAL 
         write(ifc,'(4A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1204 ECCO_COST_FINAL 
         write(ifc,'(2A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1214 ECCO_COST_FINAL 
         write(ifc,'(A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1224 ECCO_COST_FINAL 
         write(ifc,'(A,i2.0,A,2D22.15)')
./pkg/ecco/ecco_cost_final.F 1232 ECCO_COST_FINAL 
        close(ifc)
./pkg/ecco/ecco_cost_final.F 129 ECCO_COST_FINAL 
      ifc = 30
./pkg/ecco/ecco_cost_final.F 53 ECCO_COST_FINAL 
      integer ifc