/[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.6 by adcroft, Fri Sep 14 17:22:58 2001 UTC revision 1.7 by adcroft, Wed Sep 19 02:43:27 2001 UTC
# Line 517  C        and step forward storing result Line 517  C        and step forward storing result
517       I         xA,yA,uTrans,vTrans,rTrans,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,maskUp,
518       I         KappaRT,       I         KappaRT,
519       U         fVerT,       U         fVerT,
520       I         myTime, myThid)       I         myTime,myIter,myThid)
521             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
522       I         bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,       I         bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,
523       I         theta, gT,       I         theta, gT,
# Line 530  C        and step forward storing result Line 530  C        and step forward storing result
530       I         xA,yA,uTrans,vTrans,rTrans,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,maskUp,
531       I         KappaRS,       I         KappaRS,
532       U         fVerS,       U         fVerS,
533       I         myTime, myThid)       I         myTime,myIter,myThid)
534             CALL TIMESTEP_TRACER(             CALL TIMESTEP_TRACER(
535       I         bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,       I         bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,
536       I         salt, gS,       I         salt, gS,
# Line 549  C        and step forward storing result Line 549  C        and step forward storing result
549       I         bi,bj,iMin,iMax,jMin,jMax,k,tracerAdvScheme,       I         bi,bj,iMin,iMax,jMin,jMax,k,tracerAdvScheme,
550       I         Tr1, gTr1,       I         Tr1, gTr1,
551       U         gTr1NM1,       U         gTr1NM1,
552       I         myIter, myThid)       I         myIter,myIter,myThid)
553           ENDIF           ENDIF
554  #endif  #endif
555    
556  #ifdef   ALLOW_OBCS  #ifdef   ALLOW_OBCS
557  C--      Apply open boundary conditions  C--      Apply open boundary conditions
558           IF (useOBCS) THEN           IF (useOBCS) THEN
559             CALL OBCS_APPLY_TS( bi, bj, k, gTnm1, gSnm1, myThid )             CALL OBCS_APPLY_TS( bi, bj, k, gT, gS, myThid )
560           END IF           END IF
561  #endif   /* ALLOW_OBCS */  #endif   /* ALLOW_OBCS */
562    
# Line 594  CADJ STORE gTNm1(:,:,:,bi,bj) = comlev1_ Line 594  CADJ STORE gTNm1(:,:,:,bi,bj) = comlev1_
594              CALL IMPLDIFF(              CALL IMPLDIFF(
595       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
596       I         deltaTtracer, KappaRT, recip_HFacC,       I         deltaTtracer, KappaRT, recip_HFacC,
597       U         gTNm1,       U         gT,
598       I         myThid )       I         myThid )
599           ENDIF           ENDIF
600    
# Line 606  CADJ STORE gSNm1(:,:,:,bi,bj) = comlev1_ Line 606  CADJ STORE gSNm1(:,:,:,bi,bj) = comlev1_
606              CALL IMPLDIFF(              CALL IMPLDIFF(
607       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
608       I         deltaTtracer, KappaRS, recip_HFacC,       I         deltaTtracer, KappaRS, recip_HFacC,
609       U         gSNm1,       U         gS,
610       I         myThid )       I         myThid )
611           ENDIF           ENDIF
612    
# Line 618  CADJ STORE gTr1Nm1(:,:,:,bi,bj) = comlev Line 618  CADJ STORE gTr1Nm1(:,:,:,bi,bj) = comlev
618            CALL IMPLDIFF(            CALL IMPLDIFF(
619       I      bi, bj, iMin, iMax, jMin, jMax,       I      bi, bj, iMin, iMax, jMin, jMax,
620       I      deltaTtracer, KappaRT, recip_HFacC,       I      deltaTtracer, KappaRT, recip_HFacC,
621       U      gTr1Nm1,       U      gTr1,
622       I      myThid )       I      myThid )
623           ENDIF           ENDIF
624  #endif  #endif
# Line 627  CADJ STORE gTr1Nm1(:,:,:,bi,bj) = comlev Line 627  CADJ STORE gTr1Nm1(:,:,:,bi,bj) = comlev
627  C--      Apply open boundary conditions  C--      Apply open boundary conditions
628           IF (useOBCS) THEN           IF (useOBCS) THEN
629             DO K=1,Nr             DO K=1,Nr
630               CALL OBCS_APPLY_TS( bi, bj, k, gTnm1, gSnm1, myThid )               CALL OBCS_APPLY_TS( bi, bj, k, gT, gS, myThid )
631             ENDDO             ENDDO
632           END IF           END IF
633  #endif   /* ALLOW_OBCS */  #endif   /* ALLOW_OBCS */
# Line 643  Ccs- Line 643  Ccs-
643        IF ( useAIM ) THEN        IF ( useAIM ) THEN
644         CALL AIM_AIM2DYN_EXCHANGES( myTime, myThid )         CALL AIM_AIM2DYN_EXCHANGES( myTime, myThid )
645        ENDIF        ENDIF
646         _EXCH_XYZ_R8(gTnm1,myThid)         _EXCH_XYZ_R8(gT,myThid)
647         _EXCH_XYZ_R8(gSnm1,myThid)         _EXCH_XYZ_R8(gS,myThid)
648  #else  #else
649        IF (staggerTimeStep.AND.useCubedSphereExchange) THEN        IF (staggerTimeStep.AND.useCubedSphereExchange) THEN
650         _EXCH_XYZ_R8(gTnm1,myThid)         _EXCH_XYZ_R8(gT,myThid)
651         _EXCH_XYZ_R8(gSnm1,myThid)         _EXCH_XYZ_R8(gS,myThid)
652        ENDIF        ENDIF
653  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
654    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22