/[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.14 by heimbach, Sun Mar 24 02:18:36 2002 UTC revision 1.15 by adcroft, Mon Mar 25 16:17:31 2002 UTC
# Line 59  C     Add windstress momentum impulse in Line 59  C     Add windstress momentum impulse in
59        ENDIF        ENDIF
60    
61  #ifdef ALLOW_OBCS  #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 124  C     Add windstress momentum impulse in
124        ENDIF        ENDIF
125    
126  #ifdef ALLOW_OBCS  #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 212  C Penetrating SW radiation
212  #endif  #endif
213    
214  #ifdef ALLOW_OBCS  #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 277  C     Add fresh-water in top-layer
277        ENDIF        ENDIF
278    
279  #ifdef ALLOW_OBCS  #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.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22