/[MITgcm]/MITgcm/pkg/cfc/cfc11_surfforcing.F
ViewVC logotype

Diff of /MITgcm/pkg/cfc/cfc11_surfforcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by stephd, Mon Oct 6 20:03:06 2003 UTC revision 1.2 by stephd, Wed May 4 19:57:16 2005 UTC
# Line 72  c     conversion from mol/(m^3 * atm) to Line 72  c     conversion from mol/(m^3 * atm) to
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))
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22