/[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.15 by jmc, Sun Dec 16 18:46:22 2001 UTC revision 1.16 by jmc, Fri Feb 8 22:15:33 2002 UTC
# Line 339  CADJ STORE wvel (:,:,:,bi,bj) = comlev1_ Line 339  CADJ STORE wvel (:,:,:,bi,bj) = comlev1_
339  #ifdef  ALLOW_OBCS  #ifdef  ALLOW_OBCS
340  C--     Calculate future values on open boundaries  C--     Calculate future values on open boundaries
341          IF (useOBCS) THEN          IF (useOBCS) THEN
342            CALL OBCS_CALC( bi, bj, myTime+deltaT,            CALL OBCS_CALC( bi, bj, myTime+deltaT, myIter+1,
343       I            uVel, vVel, wVel, theta, salt,       I            uVel, vVel, wVel, theta, salt,
344       I            myThid )       I            myThid )
345          ENDIF          ENDIF
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22