/[MITgcm]/MITgcm/pkg/ptracers/ptracers_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_forcing.F

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

revision 1.1 by adcroft, Mon Mar 4 19:01:29 2002 UTC revision 1.2 by heimbach, Fri Jun 27 01:56:17 2003 UTC
# Line 60  C Example of how to add forcing at the s Line 60  C Example of how to add forcing at the s
60  C Here, we'll copy the exact forcing used for salinity to allow us  C Here, we'll copy the exact forcing used for salinity to allow us
61  C to test everything is working.  C to test everything is working.
62            gPtracer(i,j,k,bi,bj)=gPtracer(i,j,k,bi,bj)            gPtracer(i,j,k,bi,bj)=gPtracer(i,j,k,bi,bj)
63       &      + EmPmR(i,j,bi,bj)*convertFW2Salt       &   +maskC(i,j,k,bi,bj)*surfaceTendencyS(i,j,bi,bj)
64       &           *recip_drF(1)*recip_hFacC(i,j,1,bi,bj)  
65       &      - lambdaSaltClimRelax*  cph     &      + EmPmR(i,j,bi,bj)*convertFW2Salt
66       &           (pTracer(i,j,k,bi,bj,iTracer)-SSS(i,j,bi,bj))  cph     &           *recip_drF(1)*recip_hFacC(i,j,1,bi,bj)
67    cph     &      - lambdaSaltClimRelax*
68    cph     &           (pTracer(i,j,k,bi,bj,iTracer)-SSS(i,j,bi,bj))
69    
70           ENDDO           ENDDO
71          ENDDO          ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22