| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
198 |
NO PROCEDURE |
& thSIce_diffK, stressReduction, |
|
./pkg/thsice/THSICE_PARAMS.h |
204 |
NO PROCEDURE |
_RL thSIce_diffK, stressReduction |
|
./pkg/thsice/thsice_main.F |
258 |
THSICE_MAIN |
ELSEIF ( useEXF .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_main.F |
274 |
THSICE_MAIN |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_main.F |
277 |
THSICE_MAIN |
tauFac = stressReduction |
|
./pkg/thsice/thsice_main.F |
284 |
THSICE_MAIN |
tauFac = stressReduction |
|
./pkg/thsice/thsice_main.F |
70 |
THSICE_MAIN |
ELSEIF ( stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_readparms.F |
142 |
THSICE_READPARMS |
stressReduction = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
143 |
THSICE_READPARMS |
IF ( useSEAICE ) stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
237 |
THSICE_READPARMS |
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_readparms.F |
249 |
THSICE_READPARMS |
stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
298 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: stressReduction =',stressReduction |
|
./pkg/thsice/thsice_readparms.F |
67 |
THSICE_READPARMS |
& thSIce_diffK, thSIceAdvScheme, stressReduction, |
|
./pkg/aim_compon_interf/atm_store_taux.F |
62 |
ATM_STORE_TAUX |
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
70 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
72 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
62 |
ATM_STORE_TAUY |
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
70 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
72 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |