/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_carbon_chem.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/dic_carbon_chem.F

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

revision 1.2 by stephd, Wed Apr 20 19:19:27 2011 UTC revision 1.3 by stephd, Mon May 9 20:17:39 2011 UTC
# Line 678  C ttemp and stemp are local theta and sa Line 678  C ttemp and stemp are local theta and sa
678  C dont really need to pass T and S in, could use theta, salt in  C dont really need to pass T and S in, could use theta, salt in
679  C common block in DYNVARS.h, but this way keeps subroutine more  C common block in DYNVARS.h, but this way keeps subroutine more
680  C general  C general
681          _RL  ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)          _RL  ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
682          _RL  stemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)          _RL  stemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
683          INTEGER bi,bj,iMin,iMax,jMin,jMax          INTEGER bi,bj,iMin,iMax,jMin,jMax
684          INTEGER myThid          INTEGER myThid
685  CEndOfInterface  CEndOfInterface
# Line 730  C....................................... Line 730  C.......................................
730          do i=imin,imax          do i=imin,imax
731           do j=jmin,jmax           do j=jmin,jmax
732            if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then            if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
733             t = ttemp(i,j,1,bi,bj)             t = ttemp(i,j)
734             s = stemp(i,j,1,bi,bj)             s = stemp(i,j)
735  C terms used more than once  C terms used more than once
736             tk = 273.15 _d 0 + t             tk = 273.15 _d 0 + t
737             tk100 = tk/100. _d 0             tk100 = tk/100. _d 0
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22