/[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.2 by heimbach, Mon Aug 13 18:05:26 2001 UTC revision 1.3 by adcroft, Wed Aug 15 15:51:46 2001 UTC
# Line 74  C     bi, bj Line 74  C     bi, bj
74  C     k, kup,        - Index for layer above and below. kup and kDown  C     k, kup,        - Index for layer above and below. kup and kDown
75  C     kDown, km1       are switched with layer to be the appropriate  C     kDown, km1       are switched with layer to be the appropriate
76  C                      index into fVerTerm.  C                      index into fVerTerm.
 C     tauAB - Adams-Bashforth timestepping weight: 0=forward ; 1/2=Adams-Bashf.  
77        _RS xA      (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS xA      (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
78        _RS yA      (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS yA      (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
79        _RL uTrans  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL uTrans  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 94  C     tauAB - Adams-Bashforth timesteppi Line 93  C     tauAB - Adams-Bashforth timesteppi
93        _RL sigmaX  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sigmaX  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
94        _RL sigmaY  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sigmaY  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
95        _RL sigmaR  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sigmaR  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
       _RL tauAB  
96    
97  C This is currently used by IVDC and Diagnostics  C This is currently used by IVDC and Diagnostics
98        _RL ConvectCount (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL ConvectCount (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
# Line 493  C        and step forward storing result Line 491  C        and step forward storing result
491       I         KappaRT,       I         KappaRT,
492       U         fVerT,       U         fVerT,
493       I         myTime, myThid)       I         myTime, myThid)
            tauAB = 0.5d0 + abEps  
494             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
495       I         bi,bj,iMin,iMax,jMin,jMax,k,tauAB,       I         bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,
496       I         theta, gT,       I         theta, gT,
497       U         gTnm1,       U         gTnm1,
498       I         myIter, myThid)       I         myIter, myThid)
# Line 507  C        and step forward storing result Line 504  C        and step forward storing result
504       I         KappaRS,       I         KappaRS,
505       U         fVerS,       U         fVerS,
506       I         myTime, myThid)       I         myTime, myThid)
            tauAB = 0.5d0 + abEps  
507             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
508       I         bi,bj,iMin,iMax,jMin,jMax,k,tauAB,       I         bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,
509       I         salt, gS,       I         salt, gS,
510       U         gSnm1,       U         gSnm1,
511       I         myIter, myThid)       I         myIter, myThid)
# Line 522  C        and step forward storing result Line 518  C        and step forward storing result
518       I         KappaRT,       I         KappaRT,
519       U         fVerTr1,       U         fVerTr1,
520       I         myTime, myThid)       I         myTime, myThid)
            tauAB = 0.5d0 + abEps  
521             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
522       I         bi,bj,iMin,iMax,jMin,jMax,k,tauAB,       I         bi,bj,iMin,iMax,jMin,jMax,k,tracerAdvScheme,
523       I         Tr1, gTr1,       I         Tr1, gTr1,
524       U         gTr1NM1,       U         gTr1NM1,
525       I         myIter, myThid)       I         myIter, myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22