| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
109 |
NO PROCEDURE |
& DWATN, PRESS0, FORCEX0, FORCEY0, ZMAX, ZMIN |
|
./pkg/seaice/SEAICE.h |
110 |
NO PROCEDURE |
_RL DWATN (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
320 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
326 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
332 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
334 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
337 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
340 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
439 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
441 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
445 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
447 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
451 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
453 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
456 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
459 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
72 |
OSTRES |
fuIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
80 |
OSTRES |
fvIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )*( |
|
./pkg/seaice/seaice_evp.F |
437 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
443 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
445 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_evp.F |
459 |
SEAICE_EVP |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
462 |
SEAICE_EVP |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
465 |
SEAICE_EVP |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
470 |
SEAICE_EVP |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
473 |
SEAICE_EVP |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
476 |
SEAICE_EVP |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_init_varia.F |
118 |
SEAICE_INIT_VARIA |
DWATN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
227 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
229 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
233 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
235 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
240 |
SEAICE_LSR |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
249 |
SEAICE_LSR |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
252 |
SEAICE_LSR |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
255 |
SEAICE_LSR |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
260 |
SEAICE_LSR |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
263 |
SEAICE_LSR |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
266 |
SEAICE_LSR |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& + DWATN(I-1,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
105 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I,J ,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& + DWATN(I,J-1,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
94 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I ,J,bi,bj) * |