| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
101 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = 1. _d 0 - (iG-1 )*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
102 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = 1. _d 0 - (Nx-iG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
104 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
106 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (iG-1 )*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
108 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
112 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
114 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (iG-1 )*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
116 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
119 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf*cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
192 |
CHEAPAML_INIT_FIXED |
xmf = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
196 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = oneRL - (iG-1 )*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
197 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = oneRL - (Nx-iG)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
201 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (jG-1 )*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
203 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (Ny-jG)*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
205 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
46 |
CHEAPAML_INIT_FIXED |
_RL xmf, tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
96 |
CHEAPAML_INIT_FIXED |
xmf = 0. _d 0 |