/[MITgcm]/MITgcm/model/src/thermodynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/thermodynamics.F

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

revision 1.79 by jmc, Tue Oct 19 02:39:58 2004 UTC revision 1.80 by jmc, Thu Oct 21 21:25:32 2004 UTC
# Line 437  C        and step forward storing result Line 437  C        and step forward storing result
437             CALL CALC_GT(             CALL CALC_GT(
438       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
439       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
440       I         KappaRT,       I         KappaRT(1-Olx,1-Oly,k),
441       U         fVerT,       U         fVerT,
442       I         myTime,myIter,myThid)       I         myTime,myIter,myThid)
443             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
# Line 452  C        and step forward storing result Line 452  C        and step forward storing result
452             CALL CALC_GS(             CALL CALC_GS(
453       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
454       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
455       I         KappaRS,       I         KappaRS(1-Olx,1-Oly,k),
456       U         fVerS,       U         fVerS,
457       I         myTime,myIter,myThid)       I         myTime,myIter,myThid)
458             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
# Line 466  C        and step forward storing result Line 466  C        and step forward storing result
466             CALL PTRACERS_INTEGRATE(             CALL PTRACERS_INTEGRATE(
467       I         bi,bj,k,       I         bi,bj,k,
468       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
469       X         fVerP, KappaRS,       U         fVerP,
470         I         KappaRS(1-Olx,1-Oly,k),
471       I         myIter,myTime,myThid)       I         myIter,myTime,myThid)
472           ENDIF           ENDIF
473  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22