| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_mapfields.F |
353 |
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 |
|
./pkg/layers/layers_fluxcalc.F |
179 |
LAYERS_FLUXCALC |
IF (maskW(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
IF (maskS(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
529 |
LAYERS_DIAPYCNAL |
IF (maskC(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./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 |
288 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
339 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
137 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.zeroRS .AND. |
|
./pkg/shelfice/shelfice_init_fixed.F |
105 |
SHELFICE_INIT_FIXED |
IF ( R_shelfIce(i,j,bi,bj).LT.zeroRS |
|
./pkg/shelfice/shelfice_init_fixed.F |
106 |
SHELFICE_INIT_FIXED |
& .AND. hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
75 |
SHELFICE_INIT_FIXED |
& R_shelfIce(i,j,bi,bj).LT.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kLowC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
199 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
440 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.zeroRS) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
441 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.zeroRS) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
480 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
487 |
INI_MASKS_ETC |
IF ( hFacW(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
494 |
INI_MASKS_ETC |
IF ( hFacS(i,j,k,bi,bj).NE.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 |
|
./pkg/debug/debug_stats_rs.F |
35 |
DEBUG_STATS_RS |
I myNr, arr, zeroRS, |
|
./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 ) |