| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
100 |
CHEAPAML_INIT_FIXED |
IF (jG.LT.Ny-xmw+1) THEN |
|
./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 |
105 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
107 |
CHEAPAML_INIT_FIXED |
ELSEIF (iG.GE.Nx-xmw+1) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
113 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
115 |
CHEAPAML_INIT_FIXED |
ELSEIF (iG.GE.Nx-xmw+1) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
187 |
CHEAPAML_INIT_FIXED |
xmw = Cheapaml_mask_width |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
188 |
CHEAPAML_INIT_FIXED |
tmpVar = xmw |
|
./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 |
200 |
CHEAPAML_INIT_FIXED |
IF (jG.LE.xmw) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
202 |
CHEAPAML_INIT_FIXED |
IF (jG.GE.Ny-xmw+1) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
45 |
CHEAPAML_INIT_FIXED |
INTEGER xmw |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
89 |
CHEAPAML_INIT_FIXED |
xmw = Cheapaml_mask_width |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
90 |
CHEAPAML_INIT_FIXED |
recipMW = ( xmw - 1 ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
91 |
CHEAPAML_INIT_FIXED |
IF ( xmw.NE.1 ) recipMW = 1. _d 0 / recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
99 |
CHEAPAML_INIT_FIXED |
IF (jG.GT.xmw) THEN |