| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
116 |
CFC11_FORCING |
xintp(j) = 1.0 |
|
./pkg/cfc/cfc11_forcing.F |
118 |
CFC11_FORCING |
xintp(j) = 0.0 |
|
./pkg/cfc/cfc11_forcing.F |
120 |
CFC11_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc11_forcing.F |
124 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)= xintp(j) * ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
125 |
CFC11_FORCING |
& + (1.0 - xintp(j))*ACFC11south |
|
./pkg/cfc/cfc11_forcing.F |
48 |
CFC11_FORCING |
_RL xintp(1-OLy:sNy+OLy) |
|
./pkg/cfc/cfc12_forcing.F |
116 |
CFC12_FORCING |
xintp(j) = 1.0 |
|
./pkg/cfc/cfc12_forcing.F |
118 |
CFC12_FORCING |
xintp(j) = 0.0 |
|
./pkg/cfc/cfc12_forcing.F |
120 |
CFC12_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc12_forcing.F |
124 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)= xintp(j) * ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
125 |
CFC12_FORCING |
& + (1.0 - xintp(j))*ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
48 |
CFC12_FORCING |
_RL xintp(1-OLy:sNy+OLy) |