| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/CHEAPAML.h |
34 |
NO PROCEDURE |
& wavesh, wavesp, Cheapmask, CheapHgrid, |
|
./pkg/cheapaml/CHEAPAML.h |
54 |
NO PROCEDURE |
_RL Cheapmask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
183 |
CHEAPAML_INIT_VARIA |
CALL READ_FLD_XY_RL( cheapMaskFile,' ',Cheapmask,0,myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
218 |
CHEAPAML_INIT_VARIA |
Cheapmask(i,j,bi,bj) = xmf*cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_varia.F |
231 |
CHEAPAML_INIT_VARIA |
Cheapmask(i,j,bi,bj)=cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_varia.F |
233 |
CHEAPAML_INIT_VARIA |
ELSEIF( Cheapmask(i,j,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
234 |
CHEAPAML_INIT_VARIA |
Cheapmask(i,j,bi,bj)=cheapaml_taurelaxocean |
|
./pkg/cheapaml/cheapaml_init_varia.F |
240 |
CHEAPAML_INIT_VARIA |
_EXCH_XY_RL(Cheapmask, myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
247 |
CHEAPAML_INIT_VARIA |
IF (Cheapmask(i,j,bi,bj).NE.0.) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
248 |
CHEAPAML_INIT_VARIA |
xgs(i,j,bi,bj)=1. _d 0/Cheapmask(i,j,bi,bj)/8.64 _d 4 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
309 |
CHEAPAML_INIT_VARIA |
Cheapmask(i,j,bi,bj)=Cheapmask(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
315 |
CHEAPAML_INIT_VARIA |
Cheapmask(i,j,bi,bj)=Cheapmask(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
75 |
CHEAPAML_INIT_VARIA |
Cheapmask (i,j,bi,bj) = 0. _d 0 |