| 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_advection.F |
303 |
GAD_ADVECTION |
& + ( oneRS - maskC(i,j,k,bi,bj) ) |
|
./model/src/add_walls2masks.F |
112 |
ADD_WALLS2MASKS |
IF ( tmpFldW(i,j,bi,bj).EQ.oneRS ) THEN |
|
./model/src/add_walls2masks.F |
119 |
ADD_WALLS2MASKS |
IF ( tmpFldS(i,j,bi,bj).EQ.oneRS ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
108 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
108 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.oneRS) |
|
./model/src/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./pkg/salt_plume/salt_plume_volfrac.F |
101 |
SALT_PLUME_VOLFRAC |
I imt,oneRS,temp, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
89 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
89 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
168 |
AIM_DYN2AIM |
IF ( maskC(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
70 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = OBCS_insideMask( i , j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
71 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1, j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
72 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask( i ,j-1,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
73 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1,j-1,bi,bj).EQ.oneRS |
|
./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 ) |