| File |
Line number |
Procedure |
Code |
|
./pkg/cfc/cfc11_forcing.F |
144 |
CFC11_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc11_forcing.F |
145 |
CFC11_FORCING |
weight = MAX( zeroRL, MIN( oneRL, weight ) ) |
|
./pkg/cfc/cfc11_forcing.F |
146 |
CFC11_FORCING |
AtmosCFC11(i,j)= weight * ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
147 |
CFC11_FORCING |
& + ( oneRL - weight )*ACFC11south |
|
./pkg/cfc/cfc11_forcing.F |
74 |
CFC11_FORCING |
_RL recip_dLat, weight |
|
./pkg/cfc/cfc12_forcing.F |
145 |
CFC12_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc12_forcing.F |
146 |
CFC12_FORCING |
weight = MAX( zeroRL, MIN( oneRL, weight ) ) |
|
./pkg/cfc/cfc12_forcing.F |
147 |
CFC12_FORCING |
AtmosCFC12(i,j)= weight * ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
148 |
CFC12_FORCING |
& + ( oneRL - weight )*ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
75 |
CFC12_FORCING |
_RL recip_dLat, weight |