| 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 |
152 |
SHELFICE_COST_SHIFWFLX |
& *wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
153 |
SHELFICE_COST_SHIFWFLX |
if ( wshifwflx(i,j,bi,bj) .ne. 0. ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
121 |
SHELFICE_INIT_FIXED |
CALL READ_REC_XY_RL( shifwflx_errfile, wshifwflx, 1, 0, myThid ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
129 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .LT. -9900.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
130 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
133 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
134 |
SHELFICE_INIT_FIXED |
& max(wshifwflx(i,j,bi,bj),wshifwflx0) |
|
./pkg/shelfice/shelfice_init_fixed.F |
136 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .NE. 0.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
137 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
138 |
SHELFICE_INIT_FIXED |
& 1./wshifwflx(i,j,bi,bj)/wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
144 |
SHELFICE_INIT_FIXED |
CALL ACTIVE_WRITE_XY_LOC( 'wshifwflx', wshifwflx, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
236 |
SHELFICE_THERMODYNAMICS |
& wshifwflx, |