| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_final.F |
111 |
SEAICE_COST_FINAL |
WRITE(cfname,'(A,i4.4)') 'costfunction_seaice',optimcycle |
|
./pkg/seaice/seaice_cost_final.F |
112 |
SEAICE_COST_FINAL |
OPEN(unit=ifc,file=cfname) |
|
./pkg/seaice/seaice_cost_final.F |
51 |
SEAICE_COST_FINAL |
CHARACTER*23 cfname |
|
./pkg/shelfice/shelfice_cost_final.F |
115 |
SHELFICE_COST_FINAL |
WRITE(cfname,'(A,i4.4)') 'costfunction_shelfice',optimcycle |
|
./pkg/shelfice/shelfice_cost_final.F |
116 |
SHELFICE_COST_FINAL |
OPEN(unit=ifc,file=cfname) |
|
./pkg/shelfice/shelfice_cost_final.F |
50 |
SHELFICE_COST_FINAL |
CHARACTER*(25) cfname |
|
./pkg/ecco/ecco_cost_final.F |
1203 |
ECCO_COST_FINAL |
write(cfname,'(A,i4.4)') 'costfunction',optimcycle |
|
./pkg/ecco/ecco_cost_final.F |
1204 |
ECCO_COST_FINAL |
open(unit=ifc,file=cfname) |
|
./pkg/ecco/ecco_cost_final.F |
144 |
ECCO_COST_FINAL |
character*20 cfname |