| 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_advection.F |
299 |
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/salt_plume/salt_plume_volfrac.F |
101 |
SALT_PLUME_VOLFRAC |
I imt,oneRS,temp, |
|
./model/src/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./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 |
83 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
83 |
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 |
|
./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 ) |