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

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

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

revision 1.35 by jmc, Wed Jun 22 00:27:47 2005 UTC revision 1.36 by mlosch, Mon Oct 10 05:53:49 2005 UTC
# Line 435  C-     Apply open boundary conditions Line 435  C-     Apply open boundary conditions
435            CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid )            CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid )
436           ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN           ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN
437            CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid )            CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid )
438    #ifdef ALLOW_PTRACERS
439             ELSEIF (tracerIdentity.GE.GAD_TR1) THEN
440              CALL OBCS_APPLY_PTRACER( bi, bj, k,
441         &         tracerIdentity-GAD_TR1+1, localTij, myThid )
442    #endif /* ALLOW_PTRACERS */
443           ENDIF           ENDIF
444          ENDIF          ENDIF
445  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
# Line 572  C-     Apply open boundary conditions Line 577  C-     Apply open boundary conditions
577            CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid )            CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid )
578           ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN           ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN
579            CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid )            CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid )
580    #ifdef ALLOW_PTRACERS
581             ELSEIF (tracerIdentity.GE.GAD_TR1) THEN
582              CALL OBCS_APPLY_PTRACER( bi, bj, k,
583         &         tracerIdentity-GAD_TR1+1, localTij, myThid )
584    #endif /* ALLOW_PTRACERS */
585           ENDIF           ENDIF
586          ENDIF          ENDIF
587  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22