72 |
C Determine surface flux (Fcfc11) |
C Determine surface flux (Fcfc11) |
73 |
Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj) |
Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj) |
74 |
& *AtmosCFC11(i,j,bi,bj) |
& *AtmosCFC11(i,j,bi,bj) |
75 |
Kwexch(i,j) = pisvel(i,j,bi,bj) |
Kwexch(i,j) = (1.0 - fice(i,j,bi,bj))*pisvel(i,j,bi,bj) |
76 |
& / sqrt(SchmidtNoCFC11(i,j)/660.0) |
& / sqrt(SchmidtNoCFC11(i,j)/660.0) |
77 |
FluxCFC11(i,j) = |
FluxCFC11(i,j) = |
78 |
& Kwexch(i,j)*(Csat(i,j) - PTR_CFC11(i,j,1)) |
& Kwexch(i,j)*(Csat(i,j) - PTR_CFC11(i,j,1)) |