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

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

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

revision 1.36 by cnh, Wed Oct 28 03:11:37 1998 UTC revision 1.37 by cnh, Tue Nov 3 15:28:04 1998 UTC
# Line 380  C--      Calculate active tracer tendenc Line 380  C--      Calculate active tracer tendenc
380       I         xA,yA,uTrans,vTrans,rTrans,maskUp,maskC,       I         xA,yA,uTrans,vTrans,rTrans,maskUp,maskC,
381       I         K13,K23,KappaRT,KapGM,       I         K13,K23,KappaRT,KapGM,
382       U         aTerm,xTerm,fZon,fMer,fVerT,       U         aTerm,xTerm,fZon,fMer,fVerT,
383       I         myThid)       I         myTime, myThid)
384           ENDIF           ENDIF
385           IF ( saltStepping ) THEN           IF ( saltStepping ) THEN
386            CALL CALC_GS(            CALL CALC_GS(
# Line 388  C--      Calculate active tracer tendenc Line 388  C--      Calculate active tracer tendenc
388       I         xA,yA,uTrans,vTrans,rTrans,maskUp,maskC,       I         xA,yA,uTrans,vTrans,rTrans,maskUp,maskC,
389       I         K13,K23,KappaRS,KapGM,       I         K13,K23,KappaRS,KapGM,
390       U         aTerm,xTerm,fZon,fMer,fVerS,       U         aTerm,xTerm,fZon,fMer,fVerS,
391       I         myThid)       I         myTime, myThid)
392           ENDIF           ENDIF
393  C--      Prediction step (step forward all model variables)  C--      Prediction step (step forward all model variables)
394           CALL TIMESTEP(           CALL TIMESTEP(
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22