| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
109 |
CFC11_FORCING |
ySouth = -10.0 |
|
./pkg/cfc/cfc11_forcing.F |
114 |
CFC11_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
117 |
CFC11_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc11_forcing.F |
118 |
CFC11_FORCING |
& (yNorth - ySouth) |
|
./pkg/cfc/cfc11_forcing.F |
53 |
CFC11_FORCING |
_RL yNorth, ySouth |
|
./pkg/cfc/cfc12_forcing.F |
109 |
CFC12_FORCING |
ySouth = -10.0 |
|
./pkg/cfc/cfc12_forcing.F |
114 |
CFC12_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
117 |
CFC12_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc12_forcing.F |
118 |
CFC12_FORCING |
& (yNorth - ySouth) |
|
./pkg/cfc/cfc12_forcing.F |
54 |
CFC12_FORCING |
_RL yNorth, ySouth |