| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
50 |
CFC11_FORCING |
INTEGER myYear, lastYear, thisYear |
|
./pkg/cfc/cfc11_forcing.F |
70 |
CFC11_FORCING |
thisYear=lastYear+1 |
|
./pkg/cfc/cfc11_forcing.F |
72 |
CFC11_FORCING |
if (thisYear.lt.maxYear) then |
|
./pkg/cfc/cfc11_forcing.F |
79 |
CFC11_FORCING |
& + ACFC11(thisYear,1)*aWght |
|
./pkg/cfc/cfc11_forcing.F |
81 |
CFC11_FORCING |
& + ACFC11(thisYear,2)*aWght |
|
./pkg/cfc/cfc12_forcing.F |
51 |
CFC12_FORCING |
INTEGER lastYear, thisYear |
|
./pkg/cfc/cfc12_forcing.F |
70 |
CFC12_FORCING |
thisYear=lastYear+1 |
|
./pkg/cfc/cfc12_forcing.F |
72 |
CFC12_FORCING |
if (thisYear.lt.maxYear) then |
|
./pkg/cfc/cfc12_forcing.F |
79 |
CFC12_FORCING |
& + ACFC12(thisYear,1)*aWght |
|
./pkg/cfc/cfc12_forcing.F |
81 |
CFC12_FORCING |
& + ACFC12(thisYear,2)*aWght |