/[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.15 by adcroft, Mon Mar 25 16:17:31 2002 UTC revision 1.16 by heimbach, Sat Jul 13 04:59:42 2002 UTC
# Line 58  C     Add windstress momentum impulse in Line 58  C     Add windstress momentum impulse in
58         ENDDO         ENDDO
59        ENDIF        ENDIF
60    
61  #ifdef ALLOW_OBCS  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
62  C     IF (useOBCS) THEN        IF (useOBCS) THEN
63  C      CALL OBCS_SPONGE_U(         CALL OBCS_SPONGE_U(
64  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,       I           iMin, iMax, jMin, jMax,bi,bj,kLev,
65  C    I           myCurrentTime,myThid)       I           myCurrentTime,myThid)
66  C     ENDIF        ENDIF
67  #endif  #endif
68    
69        RETURN        RETURN
# Line 123  C     Add windstress momentum impulse in Line 123  C     Add windstress momentum impulse in
123         ENDDO         ENDDO
124        ENDIF        ENDIF
125    
126  #ifdef ALLOW_OBCS  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
127  C     IF (useOBCS) THEN        IF (useOBCS) THEN
128  C      CALL OBCS_SPONGE_V(         CALL OBCS_SPONGE_V(
129  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,       I           iMin, iMax, jMin, jMax,bi,bj,kLev,
130  C    I           myCurrentTime,myThid)       I           myCurrentTime,myThid)
131  C     ENDIF        ENDIF
132  #endif  #endif
133    
134        RETURN        RETURN
# Line 211  C Penetrating SW radiation Line 211  C Penetrating SW radiation
211        ENDDO        ENDDO
212  #endif  #endif
213    
214  #ifdef ALLOW_OBCS  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
215  C     IF (useOBCS) THEN        IF (useOBCS) THEN
216  C      CALL OBCS_SPONGE_T(         CALL OBCS_SPONGE_T(
217  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,       I           iMin, iMax, jMin, jMax,bi,bj,kLev,
218  C    I           myCurrentTime,myThid)       I           myCurrentTime,myThid)
219  C     ENDIF        ENDIF
220  #endif  #endif
221    
222        RETURN        RETURN
# Line 276  C     Add fresh-water in top-layer Line 276  C     Add fresh-water in top-layer
276         ENDDO         ENDDO
277        ENDIF        ENDIF
278    
279  #ifdef ALLOW_OBCS  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
280  C     IF (useOBCS) THEN        IF (useOBCS) THEN
281  C      CALL OBCS_SPONGE_S(         CALL OBCS_SPONGE_S(
282  C    I           iMin, iMax, jMin, jMax,bi,bj,kLev,       I           iMin, iMax, jMin, jMax,bi,bj,kLev,
283  C    I           myCurrentTime,myThid)       I           myCurrentTime,myThid)
284  C     ENDIF        ENDIF
285  #endif  #endif
286    
287        RETURN        RETURN
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22