| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
278 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
279 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
100 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*( |
|
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
119 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
267 |
DYNSOLVER |
& -QUART* |
|
./pkg/seaice/dynsolver.F |
280 |
DYNSOLVER |
& +QUART* |
|
./pkg/seaice/dynsolver.F |
319 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
320 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
325 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
326 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
349 |
DYNSOLVER |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
386 |
DYNSOLVER |
& -QUART* |
|
./pkg/seaice/dynsolver.F |
399 |
DYNSOLVER |
& +QUART* |
|
./pkg/seaice/dynsolver.F |
438 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
439 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
444 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
445 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
464 |
DYNSOLVER |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
468 |
DYNSOLVER |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
129 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*( |
|
./pkg/seaice/lsr.F |
132 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*( |
|
./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 |
430 |
SEAICE_EVP |
TEMPVAR = QUART*( |
|
./pkg/seaice/seaice_evp.F |
436 |
SEAICE_EVP |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_evp.F |
437 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
442 |
SEAICE_EVP |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/seaice_evp.F |
443 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
220 |
SEAICE_LSR |
TEMPVAR = QUART*( |
|
./pkg/seaice/seaice_lsr.F |
226 |
SEAICE_LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
227 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
232 |
SEAICE_LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
233 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
278 |
NO PROCEDURE |
_RL QUART , HALF |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
279 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |