/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_som_advect.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_som_advect.F

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

revision 1.13 by jmc, Thu Aug 14 16:46:36 2014 UTC revision 1.14 by rpa, Wed Jun 3 13:39:22 2015 UTC
# Line 425  C--  consistent with rescaling of tenden Line 425  C--  consistent with rescaling of tenden
425           diagName = 'ADVy'//diagSufx           diagName = 'ADVy'//diagSufx
426           CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid )           CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid )
427         ENDIF         ENDIF
428    #ifdef ALLOW_LAYERS
429           IF ( useLayers ) THEN
430             CALL LAYERS_FILL(afx,tracerIdentity,'AFX',k,1,2,bi,bj,myThid)
431             CALL LAYERS_FILL(afy,tracerIdentity,'AFY',k,1,2,bi,bj,myThid)
432           ENDIF
433    #endif /* ALLOW_LAYERS */
434  #endif  #endif
435    
436  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 598  C    inaccurate linFSConserveTr and "sur Line 604  C    inaccurate linFSConserveTr and "sur
604           CALL DIAGNOSTICS_FILL( afr,           CALL DIAGNOSTICS_FILL( afr,
605       &                          diagName, k,1, 2,bi,bj, myThid )       &                          diagName, k,1, 2,bi,bj, myThid )
606          ENDIF          ENDIF
607    #ifdef ALLOW_LAYERS
608            IF ( useLayers ) THEN
609              CALL LAYERS_FILL(afr,tracerIdentity,'AFR',
610         &                     k,1,2,bi,bj,myThid)
611            ENDIF
612    #endif /* ALLOW_LAYERS */
613  #endif  #endif
614    
615  C--   End of k loop for vertical flux  C--   End of k loop for vertical flux
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22