| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
230 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(exconcbar,nnzbar,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
258 |
COST_GENCOST_SEAICEV4 |
call COST_GENREAD(fname1,exconcbar,localtmp,irec,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
304 |
COST_GENCOST_SEAICEV4 |
I localobs,nnzsiv4,areabar,exconcbar,deconcbar,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
326 |
COST_GENCOST_SEAICEV4 |
I localobs,nnzsiv4,areabar,exconcbar,deconcbar,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
356 |
GET_EXCONC_DECONC |
I localobs,nnzobs,concbar,exconcbar,deconcbar,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
391 |
GET_EXCONC_DECONC |
_RL exconcbar (1-olx:snx+olx,1-oly:sny+oly,1,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
505 |
GET_EXCONC_DECONC |
& (exconcbar(i,j,k,bi,bj) .GT. SEAICE_cutoff_heff)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
514 |
GET_EXCONC_DECONC |
& - max(exconcbar(i,j,k,bi,bj),epsilonHEFF)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
516 |
GET_EXCONC_DECONC |
& - exconcbar(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
57 |
COST_GENCOST_SEAICEV4 |
_RL exconcbar (1-olx:snx+olx,1-oly:sny+oly,1,nsx,nsy) |