| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
48 |
CFC11_FORCING |
INTEGER myYear, lastYear, thisYear |
|
./pkg/cfc/cfc11_forcing.F |
66 |
CFC11_FORCING |
thisYear=lastYear+1 |
|
./pkg/cfc/cfc11_forcing.F |
68 |
CFC11_FORCING |
if (thisYear.lt.maxYear) then |
|
./pkg/cfc/cfc11_forcing.F |
75 |
CFC11_FORCING |
& + ACFC11(thisYear,1)*aWght |
|
./pkg/cfc/cfc11_forcing.F |
77 |
CFC11_FORCING |
& + ACFC11(thisYear,2)*aWght |
|
./pkg/cfc/cfc12_forcing.F |
49 |
CFC12_FORCING |
INTEGER lastYear, thisYear |
|
./pkg/cfc/cfc12_forcing.F |
66 |
CFC12_FORCING |
thisYear=lastYear+1 |
|
./pkg/cfc/cfc12_forcing.F |
68 |
CFC12_FORCING |
if (thisYear.lt.maxYear) then |
|
./pkg/cfc/cfc12_forcing.F |
75 |
CFC12_FORCING |
& + ACFC12(thisYear,1)*aWght |
|
./pkg/cfc/cfc12_forcing.F |
77 |
CFC12_FORCING |
& + ACFC12(thisYear,2)*aWght |