| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_main.F |
158 |
THSICE_MAIN |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_main.F |
161 |
THSICE_MAIN |
tauFac = stressReduction |
|
./pkg/thsice/thsice_main.F |
168 |
THSICE_MAIN |
tauFac = stressReduction |
|
./pkg/thsice/thsice_main.F |
61 |
THSICE_MAIN |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/THSICE_PARAMS.h |
171 |
NO PROCEDURE |
& stressReduction, |
|
./pkg/thsice/THSICE_PARAMS.h |
176 |
NO PROCEDURE |
_RL stressReduction |
|
./pkg/thsice/thsice_readparms.F |
130 |
THSICE_READPARMS |
stressReduction = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
234 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: stressReduction =',stressReduction |
|
./pkg/thsice/thsice_readparms.F |
65 |
THSICE_READPARMS |
& 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) |
|
./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) |