| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_mapfields.F |
334 |
EXF_MAPFIELDS |
& MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
283 |
GAD_SOM_ADV_R |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
311 |
GAD_SOM_ADV_R |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
233 |
GAD_SOM_ADV_X |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
261 |
GAD_SOM_ADV_X |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
234 |
GAD_SOM_ADV_Y |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
262 |
GAD_SOM_ADV_Y |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
114 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
121 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
58 |
ADD_WALLS2MASKS |
tmpFldW(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
59 |
ADD_WALLS2MASKS |
tmpFldS(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
85 |
ADD_WALLS2MASKS |
IF ( dyG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
87 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
92 |
ADD_WALLS2MASKS |
IF ( dxG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
94 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/calc_gw.F |
209 |
CALC_GW |
rThickC_C(i,j) = MAX( zeroRS, |
|
./model/src/calc_gw.F |
217 |
CALC_GW |
rThickC_W(i,j) = MAX( zeroRS, |
|
./model/src/calc_gw.F |
228 |
CALC_GW |
rThickC_S(i,j) = MAX( zeroRS, |
|
./model/src/calc_gw.F |
255 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
259 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
263 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
266 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
263 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
300 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
134 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.zeroRS .AND. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
64 |
SHELFICE_FORCING_SURF |
IF ( R_shelfIce(i,j,bi,bj).LT.zeroRS ) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
70 |
CFC11_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
70 |
CFC12_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./eesupp/inc/EEPARAMS.h |
77 |
NO PROCEDURE |
_RS zeroRS, oneRS, twoRS, halfRS |
|
./eesupp/inc/EEPARAMS.h |
78 |
NO PROCEDURE |
PARAMETER ( zeroRS = 0.0 _d 0 , oneRS = 1.0 _d 0 ) |