| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
48 |
CFC11_FORCING |
INTEGER myYear, lastYear, thisYear |
|
./pkg/cfc/cfc11_forcing.F |
65 |
CFC11_FORCING |
lastYear=1+int(myYear+0.5) |
|
./pkg/cfc/cfc11_forcing.F |
66 |
CFC11_FORCING |
thisYear=lastYear+1 |
|
./pkg/cfc/cfc11_forcing.F |
69 |
CFC11_FORCING |
dtinc=myYear-float(lastYear-1) |
|
./pkg/cfc/cfc11_forcing.F |
74 |
CFC11_FORCING |
ACFC11north = ACFC11(lastYear,1)*bWght |
|
./pkg/cfc/cfc11_forcing.F |
76 |
CFC11_FORCING |
ACFC11south = ACFC11(lastYear,2)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
49 |
CFC12_FORCING |
INTEGER lastYear, thisYear |
|
./pkg/cfc/cfc12_forcing.F |
65 |
CFC12_FORCING |
lastYear=1+int(myYear+0.5) |
|
./pkg/cfc/cfc12_forcing.F |
66 |
CFC12_FORCING |
thisYear=lastYear+1 |
|
./pkg/cfc/cfc12_forcing.F |
69 |
CFC12_FORCING |
dtinc=myYear-(lastYear-1.d0) |
|
./pkg/cfc/cfc12_forcing.F |
74 |
CFC12_FORCING |
ACFC12north = ACFC12(lastYear,1)*bWght |
|
./pkg/cfc/cfc12_forcing.F |
76 |
CFC12_FORCING |
ACFC12south = ACFC12(lastYear,2)*bWght |