| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
113 |
CFC11_FORCING |
xintp(j) = 1.0 |
|
./pkg/cfc/cfc11_forcing.F |
115 |
CFC11_FORCING |
xintp(j) = 0.0 |
|
./pkg/cfc/cfc11_forcing.F |
117 |
CFC11_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc11_forcing.F |
121 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)= xintp(j) * ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
122 |
CFC11_FORCING |
& + (1.0 - xintp(j))*ACFC11south |
|
./pkg/cfc/cfc11_forcing.F |
46 |
CFC11_FORCING |
_RL xintp(1-OLy:sNy+OLy) |
|
./pkg/cfc/cfc12_forcing.F |
113 |
CFC12_FORCING |
xintp(j) = 1.0 |
|
./pkg/cfc/cfc12_forcing.F |
115 |
CFC12_FORCING |
xintp(j) = 0.0 |
|
./pkg/cfc/cfc12_forcing.F |
117 |
CFC12_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc12_forcing.F |
121 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)= xintp(j) * ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
122 |
CFC12_FORCING |
& + (1.0 - xintp(j))*ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
46 |
CFC12_FORCING |
_RL xintp(1-OLy:sNy+OLy) |