/[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 by cnh, Wed Sep 26 18:09:14 2001 UTC revision 1.13.6.2 by heimbach, Sun Mar 24 17:25:19 2002 UTC
# Line 1  Line 1 
 C $Header$  
 C $Name$  
1    
2  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
3    
# Line 58  C     Add windstress momentum impulse in Line 56  C     Add windstress momentum impulse in
56         ENDDO         ENDDO
57        ENDIF        ENDIF
58    
59    #ifdef ALLOW_OBCS
60          IF (useOBCS) THEN
61           CALL OBCS_SPONGE_U(
62         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
63         I           myCurrentTime,myThid)
64          ENDIF
65    #endif
66    
67        RETURN        RETURN
68        END        END
69  CBOP  CBOP
# Line 115  C     Add windstress momentum impulse in Line 121  C     Add windstress momentum impulse in
121         ENDDO         ENDDO
122        ENDIF        ENDIF
123    
124    #ifdef ALLOW_OBCS
125          IF (useOBCS) THEN
126           CALL OBCS_SPONGE_V(
127         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
128         I           myCurrentTime,myThid)
129          ENDIF
130    #endif
131    
132        RETURN        RETURN
133        END        END
134  CBOP  CBOP
# Line 194  C Penetrating SW radiation Line 208  C Penetrating SW radiation
208         ENDDO         ENDDO
209        ENDDO        ENDDO
210  #endif  #endif
211    
212    #ifdef ALLOW_OBCS
213          IF (useOBCS) THEN
214           CALL OBCS_SPONGE_T(
215         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
216         I           myCurrentTime,myThid)
217          ENDIF
218    #endif
219    
220        RETURN        RETURN
221        END        END
222  CBOP  CBOP
# Line 251  C     Add fresh-water in top-layer Line 274  C     Add fresh-water in top-layer
274         ENDDO         ENDDO
275        ENDIF        ENDIF
276    
277    #ifdef ALLOW_OBCS
278          IF (useOBCS) THEN
279           CALL OBCS_SPONGE_S(
280         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
281         I           myCurrentTime,myThid)
282          ENDIF
283    #endif
284    
285        RETURN        RETURN
286        END        END
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.13.6.2
  ViewVC Help
Powered by ViewVC 1.1.22