| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
119 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf*cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
132 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj)=cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
134 |
CHEAPAML_INIT_FIXED |
ELSEIF( relaxMask(i,j,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
135 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj)=cheapaml_taurelaxocean |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
141 |
CHEAPAML_INIT_FIXED |
_EXCH_XY_RL( relaxMask, myThid ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
148 |
CHEAPAML_INIT_FIXED |
IF (relaxMask(i,j,bi,bj).NE.0.) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
149 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=1. _d 0/relaxMask(i,j,bi,bj)/8.64 _d 4 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
171 |
CHEAPAML_INIT_FIXED |
CALL READ_FLD_XY_RL( cheapMaskFile,' ',relaxMask,0,myThid ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
183 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
205 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
212 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = MAX( relaxMask(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
219 |
CHEAPAML_INIT_FIXED |
_EXCH_XY_RL( relaxMask, myThid ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
234 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = relaxMask(i,j,bi,bj)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
259 |
CHEAPAML_INIT_FIXED |
CALL WRITE_FLD_XY_RL('CheapMask', ' ', relaxMask, 0, myThid ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
47 |
CHEAPAML_INIT_FIXED |
_RL relaxMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
65 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
84 |
CHEAPAML_INIT_FIXED |
CALL READ_FLD_XY_RL( cheapMaskFile,' ',relaxMask,0,myThid ) |