/[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.13 by mlosch, Thu Nov 15 08:43:35 2007 UTC revision 1.14 by dimitri, Fri Dec 21 01:32:35 2007 UTC
# Line 62  C !USES: =============================== Line 62  C !USES: ===============================
62        PARAMETER ( extensiveFld = .TRUE. )        PARAMETER ( extensiveFld = .TRUE. )
63    
64  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
65  C  tracerIdentity  :: tracer identifier (required only for OBCS)  C  tracerIdentity  :: tracer identifier
66  C  advectionScheme :: advection scheme to use (Horizontal plane)  C  advectionScheme :: advection scheme to use (Horizontal plane)
67  C  extensiveFld    :: indicates to advect an "extensive" type of ice field  C  extensiveFld    :: indicates to advect an "extensive" type of ice field
68  C  uFld            :: velocity, zonal component  C  uFld            :: velocity, zonal component
# Line 479  C--   keep advective flux (for diagnosti Line 479  C--   keep advective flux (for diagnosti
479             ENDDO             ENDDO
480           ENDDO           ENDDO
481    
 #ifdef ALLOW_OBCS  
 #ifndef DISABLE_SEAICE_OBCS  
 C-     Apply open boundary conditions  
           IF ( useOBCS ) THEN  
            IF (tracerIdentity.EQ.GAD_HEFF) THEN  
             CALL OBCS_APPLY_HEFF( bi, bj, localTij, myThid )  
            ELSEIF (tracerIdentity.EQ.GAD_AREA) THEN  
             CALL OBCS_APPLY_AREA( bi, bj, localTij, myThid )  
            ELSEIF (tracerIdentity.EQ.GAD_SALT) THEN  
             CALL OBCS_APPLY_HSALT( bi, bj, localTij, myThid )  
            ELSEIF (tracerIdentity.EQ.GAD_SNOW) THEN  
             CALL OBCS_APPLY_HSNOW( bi, bj, localTij, myThid )  
            ENDIF  
           ENDIF  
 #endif /* DISABLE_SEAICE_OBCS */  
 #endif /* ALLOW_OBCS */  
   
482  C-     end if/else update overlap-Only  C-     end if/else update overlap-Only
483          ENDIF          ENDIF
484    
# Line 686  C--   keep advective flux (for diagnosti Line 669  C--   keep advective flux (for diagnosti
669             ENDDO             ENDDO
670           ENDDO           ENDDO
671    
 #ifdef ALLOW_OBCS  
 C-     Apply open boundary conditions  
            IF (useOBCS) THEN  
             IF (tracerIdentity.EQ.GAD_HEFF) THEN  
              CALL OBCS_APPLY_HEFF( bi, bj, localTij, myThid )  
             ELSEIF (tracerIdentity.EQ.GAD_AREA) THEN  
              CALL OBCS_APPLY_AREA( bi, bj, localTij, myThid )  
             ELSEIF (tracerIdentity.EQ.GAD_SALT) THEN  
              CALL OBCS_APPLY_HSALT( bi, bj, localTij, myThid )  
             ELSEIF (tracerIdentity.EQ.GAD_SNOW) THEN  
              CALL OBCS_APPLY_HSNOW( bi, bj, localTij, myThid )  
             ENDIF  
            ENDIF  
 #endif /* ALLOW_OBCS */  
   
672  C      end if/else update overlap-Only  C      end if/else update overlap-Only
673          ENDIF          ENDIF
674    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22