| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_forcing.F |
148 |
SHELFICE_FORCING_S |
_RS drLoc |
|
./pkg/shelfice/shelfice_forcing.F |
158 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
159 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
161 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
165 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
56 |
SHELFICE_FORCING_T |
_RS drLoc |
|
./pkg/shelfice/shelfice_forcing.F |
66 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
67 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
69 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
73 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
114 |
DIAGSTATS_LOCAL |
drLoc = drF(k) |
|
./pkg/diagnostics/diagstats_local.F |
115 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'L') drLoc = drC(k) |
|
./pkg/diagnostics/diagstats_local.F |
116 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./pkg/diagnostics/diagstats_local.F |
129 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
141 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
152 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
185 |
DIAGSTATS_LOCAL |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagstats_local.F |
196 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
207 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
218 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
90 |
DIAGSTATS_LOCAL |
_RL drLoc |
|
./pkg/diagnostics/diagstats_others_calc.F |
108 |
DIAGSTATS_LM_CALC |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
122 |
DIAGSTATS_LM_CALC |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
207 |
DIAGSTATS_G_CALC |
_RL drLoc |
|
./pkg/diagnostics/diagstats_others_calc.F |
213 |
DIAGSTATS_G_CALC |
drLoc = land_dzF(kl) |
|
./pkg/diagnostics/diagstats_others_calc.F |
215 |
DIAGSTATS_G_CALC |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagstats_others_calc.F |
226 |
DIAGSTATS_G_CALC |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
83 |
DIAGSTATS_LM_CALC |
_RL drLoc |
|
./pkg/diagnostics/diagstats_others_calc.F |
98 |
DIAGSTATS_LM_CALC |
drLoc = 1. _d 0 |