| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
203 |
NO PROCEDURE |
& thSIce_diffK, stressReduction, |
|
./pkg/thsice/THSICE_PARAMS.h |
209 |
NO PROCEDURE |
_RL thSIce_diffK, stressReduction |
|
./pkg/thsice/thsice_do_advect.F |
128 |
THSICE_DO_ADVECT |
IF ( stressReduction.GT. 0. _d 0 ) |
|
./pkg/thsice/thsice_main.F |
260 |
THSICE_MAIN |
& .OR. stressReduction.GT.zeroRL ) THEN |
|
./pkg/thsice/thsice_main.F |
308 |
THSICE_MAIN |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_main.F |
311 |
THSICE_MAIN |
tauFac = stressReduction |
|
./pkg/thsice/thsice_main.F |
318 |
THSICE_MAIN |
tauFac = stressReduction |
|
./pkg/thsice/thsice_readparms.F |
164 |
THSICE_READPARMS |
stressReduction = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
165 |
THSICE_READPARMS |
IF ( useSEAICE ) stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
258 |
THSICE_READPARMS |
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_readparms.F |
269 |
THSICE_READPARMS |
stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
333 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:','stressReduction =',stressReduction |
|
./pkg/thsice/thsice_readparms.F |
70 |
THSICE_READPARMS |
& thSIce_diffK, thSIceAdvScheme, stressReduction, |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
101 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
103 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
78 |
ATM_STORE_AIM_WNDSTR |
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
86 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
88 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |