72 |
C Determine surface flux (Fcfc12) |
C Determine surface flux (Fcfc12) |
73 |
Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj) |
Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj) |
74 |
& *AtmosCFC12(i,j,bi,bj) |
& *AtmosCFC12(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(SchmidtNoCFC12(i,j)/660.0) |
& / sqrt(SchmidtNoCFC12(i,j)/660.0) |
77 |
FluxCFC12(i,j) = |
FluxCFC12(i,j) = |
78 |
& Kwexch(i,j)*(Csat(i,j) - PTR_CFC12(i,j,1)) |
& Kwexch(i,j)*(Csat(i,j) - PTR_CFC12(i,j,1)) |