/[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.14 by heimbach, Sun Mar 24 02:18:36 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
62          IF (useOBCS) THEN
63           CALL OBCS_SPONGE_U(
64         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
65         I           myCurrentTime,myThid)
66          ENDIF
67    #endif
68    
69        RETURN        RETURN
70        END        END
71  CBOP  CBOP
# Line 115  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
127          IF (useOBCS) THEN
128           CALL OBCS_SPONGE_V(
129         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
130         I           myCurrentTime,myThid)
131          ENDIF
132    #endif
133    
134        RETURN        RETURN
135        END        END
136  CBOP  CBOP
# Line 194  C Penetrating SW radiation Line 210  C Penetrating SW radiation
210         ENDDO         ENDDO
211        ENDDO        ENDDO
212  #endif  #endif
213    
214    #ifdef ALLOW_OBCS
215          IF (useOBCS) THEN
216           CALL OBCS_SPONGE_T(
217         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
218         I           myCurrentTime,myThid)
219          ENDIF
220    #endif
221    
222        RETURN        RETURN
223        END        END
224  CBOP  CBOP
# Line 251  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
280          IF (useOBCS) THEN
281           CALL OBCS_SPONGE_S(
282         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
283         I           myCurrentTime,myThid)
284          ENDIF
285    #endif
286    
287        RETURN        RETURN
288        END        END
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22