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

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

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

revision 1.12 by jmc, Wed Jul 30 03:31:35 2014 UTC revision 1.13 by jmc, Thu Aug 7 17:32:03 2014 UTC
# Line 21  C     !INTERFACE: Line 21  C     !INTERFACE:
21  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
22  C     *==========================================================*  C     *==========================================================*
23  C     | SUBROUTINE TEMP_INTEGRATE  C     | SUBROUTINE TEMP_INTEGRATE
24  C     | o Calculate tendency for temperature  C     | o Calculate tendency for temperature and integrates
25  C     |   and integrates forward in time.  C     |   forward in time. The temperature array is updated here
26    C     |   while adjustments (filters, conv.adjustment) are applied
27    C     |   later, in S/R TRACERS_CORRECTION_STEP.
28  C     *==========================================================*  C     *==========================================================*
29  C     | A procedure called APPLY_FORCING_T is called from  C     | A procedure called APPLY_FORCING_T is called from
30  C     | here. These procedures can be used to add per problem  C     | here. These procedures can be used to add per problem
# Line 484  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 486  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
486        ENDIF        ENDIF
487  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
488    
489    #ifdef ALLOW_ADAMSBASHFORTH_3
490          IF ( AdamsBashforth_T ) THEN
491    C-    Save current tracer field (for AB on tracer) and then update tracer
492    c       m1 = 1 + MOD(iterNb+1,2)
493            m2 = 1 + MOD( iterNb ,2)
494            CALL CYCLE_AB_TRACER(
495         I             bi, bj,
496         U             theta, gT, gtNm(1-OLx,1-OLy,1,1,1,m2),
497         I             myTime, myIter, myThid )
498          ELSEIF ( tempStepping ) THEN
499    #else /* ALLOW_ADAMSBASHFORTH_3 */
500          IF ( tempStepping ) THEN
501    #endif /* ALLOW_ADAMSBASHFORTH_3 */
502    C-    Update tracer fields:  T(n) = T**
503            CALL CYCLE_TRACER(
504         I             bi, bj,
505         U             theta, gT,
506         I             myTime, myIter, myThid )
507          ENDIF
508    
509  #endif /* ALLOW_GENERIC_ADVDIFF */  #endif /* ALLOW_GENERIC_ADVDIFF */
510    
511        RETURN        RETURN
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22