/[MITgcm]/MITgcm/pkg/seaice/seaice_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_advection.F

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

revision 1.8 by mlosch, Wed Oct 3 19:41:34 2007 UTC revision 1.9 by dimitri, Thu Oct 11 06:44:01 2007 UTC
# Line 479  C--   keep advective flux (for diagnosti Line 479  C--   keep advective flux (for diagnosti
479             ENDDO             ENDDO
480           ENDDO           ENDDO
481    
482  C     This is for later  #ifdef ALLOW_OBCS
483  CML#ifdef ALLOW_OBCS  C-     Apply open boundary conditions
484  CMLC-     Apply open boundary conditions            IF ( useOBCS ) THEN
485  CML          IF ( useOBCS ) THEN             IF (tracerIdentity.EQ.GAD_HEFF) THEN
486  CML           IF (tracerIdentity.EQ.GAD_HEFF) THEN              CALL OBCS_APPLY_HEFF( bi, bj, k, localTij, myThid )
487  CML            CALL OBCS_APPLY_HEFF( bi, bj, k, localTij, myThid )             ELSEIF (tracerIdentity.EQ.GAD_AREA) THEN
488  CML           ELSEIF (tracerIdentity.EQ.GAD_AREA) THEN              CALL OBCS_APPLY_AREA( bi, bj, k, localTij, myThid )
489  CML            CALL OBCS_APPLY_AREA( bi, bj, k, localTij, myThid )             ENDIF
490  CML           ENDIF            ENDIF
491  CML          ENDIF  #endif /* ALLOW_OBCS */
 CML#endif /* ALLOW_OBCS */  
492    
493  C-     end if/else update overlap-Only  C-     end if/else update overlap-Only
494          ENDIF          ENDIF
# Line 681  C--   keep advective flux (for diagnosti Line 680  C--   keep advective flux (for diagnosti
680             ENDDO             ENDDO
681           ENDDO           ENDDO
682    
683  C--   Save this for later  #ifdef ALLOW_OBCS
684  CML#ifdef ALLOW_OBCS  C-     Apply open boundary conditions
685  CMLC-     Apply open boundary conditions             IF (useOBCS) THEN
686  CML           IF (useOBCS) THEN              IF (tracerIdentity.EQ.GAD_HEFF) THEN
687  CML            IF (tracerIdentity.EQ.GAD_HEFF) THEN               CALL OBCS_APPLY_HEFF( bi, bj, k, localTij, myThid )
688  CML             CALL OBCS_APPLY_HEFF( bi, bj, k, localTij, myThid )              ELSEIF (tracerIdentity.EQ.GAD_AREA) THEN
689  CML            ELSEIF (tracerIdentity.EQ.GAD_AREA) THEN               CALL OBCS_APPLY_AREA( bi, bj, k, localTij, myThid )
690  CML             CALL OBCS_APPLY_AREA( bi, bj, k, localTij, myThid )              ENDIF
691  CML            ENDIF             ENDIF
692  CML           ENDIF  #endif /* ALLOW_OBCS */
 CML#endif /* ALLOW_OBCS */  
693    
694  C      end if/else update overlap-Only  C      end if/else update overlap-Only
695          ENDIF          ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22