/[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.46 by adcroft, Mon Aug 30 18:25:33 1999 UTC revision 1.47 by adcroft, Mon Aug 30 18:29:26 1999 UTC
# Line 37  C     == Routine arguments == Line 37  C     == Routine arguments ==
37  C     myTime - Current time in simulation  C     myTime - Current time in simulation
38  C     myIter - Current iteration number in simulation  C     myIter - Current iteration number in simulation
39  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
       INTEGER myThid  
40        _RL myTime        _RL myTime
41        INTEGER myIter        INTEGER myIter
42          INTEGER myThid
43    
44  C     == Local variables  C     == Local variables
45  C     xA, yA                 - Per block temporaries holding face areas  C     xA, yA                 - Per block temporaries holding face areas
# Line 453  C--      Get temporary terms used by ten Line 453  C--      Get temporary terms used by ten
453       I        bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,       I        bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
454       O        xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp,       O        xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp,
455       I        myThid)       I        myThid)
456    #ifdef ALLOW_OBCS
457            IF (openBoundaries) THEN
458             CALL APPLY_OBCS3( bi, bj, K, Kup, rTrans, rVel, myThid )
459            ENDIF
460    #endif
461  #ifdef  INCLUDE_CALC_DIFFUSIVITY_CALL  #ifdef  INCLUDE_CALC_DIFFUSIVITY_CALL
462  C--      Calculate the total vertical diffusivity  C--      Calculate the total vertical diffusivity
463           CALL CALC_DIFFUSIVITY(           CALL CALC_DIFFUSIVITY(
# Line 488  C--      Calculate active tracer tendenc Line 493  C--      Calculate active tracer tendenc
493       U         aTerm,xTerm,fZon,fMer,fVerS,       U         aTerm,xTerm,fZon,fMer,fVerS,
494       I         myTime, myThid)       I         myTime, myThid)
495           ENDIF           ENDIF
496    #ifdef ALLOW_OBCS
497    C--      Calculate future values on open boundaries
498             IF (openBoundaries) THEN
499    Caja      CALL CYCLE_OBCS( K, bi, bj, myThid )
500              CALL SET_OBCS( K, bi, bj, myTime+deltaTclock, myThid )
501             ENDIF
502    #endif
503  C--      Prediction step (step forward all model variables)  C--      Prediction step (step forward all model variables)
504           CALL TIMESTEP(           CALL TIMESTEP(
505       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22