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

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

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

revision 1.13.6.4 by heimbach, Thu Nov 28 13:02:39 2002 UTC revision 1.15 by adcroft, Mon Mar 25 16:17:31 2002 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
 #ifdef ALLOW_OBCS  
 # include "OBCS_OPTIONS.h"  
 #endif  
5    
6  CBOP  CBOP
7  C     !ROUTINE: EXTERNAL_FORCING_U  C     !ROUTINE: EXTERNAL_FORCING_U
# Line 59  C     Add windstress momentum impulse in Line 58  C     Add windstress momentum impulse in
58         ENDDO         ENDDO
59        ENDIF        ENDIF
60    
61  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))  #ifdef ALLOW_OBCS
62        IF (useOBCS) THEN  C     IF (useOBCS) THEN
63         CALL OBCS_SPONGE_U(  C      CALL OBCS_SPONGE_U(
64       I           iMin, iMax, jMin, jMax,bi,bj,kLev,  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,
65       I           myCurrentTime,myThid)  C    I           myCurrentTime,myThid)
66        ENDIF  C     ENDIF
67  #endif  #endif
68    
69        RETURN        RETURN
# Line 124  C     Add windstress momentum impulse in Line 123  C     Add windstress momentum impulse in
123         ENDDO         ENDDO
124        ENDIF        ENDIF
125    
126  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))  #ifdef ALLOW_OBCS
127        IF (useOBCS) THEN  C     IF (useOBCS) THEN
128         CALL OBCS_SPONGE_V(  C      CALL OBCS_SPONGE_V(
129       I           iMin, iMax, jMin, jMax,bi,bj,kLev,  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,
130       I           myCurrentTime,myThid)  C    I           myCurrentTime,myThid)
131        ENDIF  C     ENDIF
132  #endif  #endif
133    
134        RETURN        RETURN
# Line 212  C Penetrating SW radiation Line 211  C Penetrating SW radiation
211        ENDDO        ENDDO
212  #endif  #endif
213    
214  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))  #ifdef ALLOW_OBCS
215        IF (useOBCS) THEN  C     IF (useOBCS) THEN
216         CALL OBCS_SPONGE_T(  C      CALL OBCS_SPONGE_T(
217       I           iMin, iMax, jMin, jMax,bi,bj,kLev,  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,
218       I           myCurrentTime,myThid)  C    I           myCurrentTime,myThid)
219        ENDIF  C     ENDIF
220  #endif  #endif
221    
222        RETURN        RETURN
# Line 277  C     Add fresh-water in top-layer Line 276  C     Add fresh-water in top-layer
276         ENDDO         ENDDO
277        ENDIF        ENDIF
278    
279  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))  #ifdef ALLOW_OBCS
280        IF (useOBCS) THEN  C     IF (useOBCS) THEN
281         CALL OBCS_SPONGE_S(  C      CALL OBCS_SPONGE_S(
282       I           iMin, iMax, jMin, jMax,bi,bj,kLev,  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,
283       I           myCurrentTime,myThid)  C    I           myCurrentTime,myThid)
284        ENDIF  C     ENDIF
285  #endif  #endif
286    
287        RETURN        RETURN
Legend:
Removed from v.1.13.6.4  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22