| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_final.F |
120 |
SEAICE_COST_FINAL |
WRITE(cfname,'(A,i4.4)') 'costfunction_seaice',optimcycle |
|
./pkg/seaice/seaice_cost_final.F |
121 |
SEAICE_COST_FINAL |
OPEN(unit=ifc,file=cfname) |
|
./pkg/seaice/seaice_cost_final.F |
60 |
SEAICE_COST_FINAL |
CHARACTER*23 cfname |
|
./pkg/shelfice/shelfice_cost_final.F |
121 |
SHELFICE_COST_FINAL |
WRITE(cfname,'(A,i4.4)') 'costfunction_shelfice',optimcycle |
|
./pkg/shelfice/shelfice_cost_final.F |
122 |
SHELFICE_COST_FINAL |
OPEN(unit=ifc,file=cfname) |
|
./pkg/shelfice/shelfice_cost_final.F |
56 |
SHELFICE_COST_FINAL |
CHARACTER*(25) cfname |
|
./pkg/ecco/ecco_cost_final.F |
1330 |
ECCO_COST_FINAL |
write(cfname,'(A,i4.4)') 'costfunction',eccoiter |
|
./pkg/ecco/ecco_cost_final.F |
1331 |
ECCO_COST_FINAL |
open(unit=ifc,file=cfname) |
|
./pkg/ecco/ecco_cost_final.F |
171 |
ECCO_COST_FINAL |
character*20 cfname |