| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc12_forcing.F |
100 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)=a1*ACFC12south + |
|
./pkg/cfc/cfc12_forcing.F |
104 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)=ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
125 |
CFC12_FORCING |
& + (1.0 - xintp(j))*ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
53 |
CFC12_FORCING |
_RL ACFC12north, ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
80 |
CFC12_FORCING |
ACFC12south = ACFC12(lastYear,2)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
84 |
CFC12_FORCING |
ACFC12south = ACFC12(maxYear,2) |
|
./pkg/cfc/cfc12_forcing.F |
87 |
CFC12_FORCING |
& ACFC12north,ACFC12south |