| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/SHELFICE_COST.h |
34 |
NO PROCEDURE |
COMMON /SHELFICE_COST_WEIGHTS/ wshifwflx |
|
./pkg/shelfice/SHELFICE_COST.h |
35 |
NO PROCEDURE |
_RL wshifwflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
146 |
SHELFICE_COST_SHIFWFLX |
& *wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
147 |
SHELFICE_COST_SHIFWFLX |
if ( wshifwflx(i,j,bi,bj) .ne. 0. ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
103 |
SHELFICE_INIT_FIXED |
CALL ACTIVE_WRITE_XY_LOC( 'wshifwflx', wshifwflx, |
|
./pkg/shelfice/shelfice_init_fixed.F |
80 |
SHELFICE_INIT_FIXED |
CALL READ_REC_XY_RL( shifwflx_errfile, wshifwflx, 1, 0, myThid ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
88 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .LT. -9900.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
89 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
92 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
93 |
SHELFICE_INIT_FIXED |
& max(wshifwflx(i,j,bi,bj),wshifwflx0) |
|
./pkg/shelfice/shelfice_init_fixed.F |
95 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .NE. 0.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
96 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
97 |
SHELFICE_INIT_FIXED |
& 1./wshifwflx(i,j,bi,bj)/wshifwflx(i,j,bi,bj) |