/[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.34 by jmc, Thu Dec 15 17:47:54 2005 UTC revision 1.35 by stephd, Mon Dec 19 19:09:35 2005 UTC
# Line 314  c     IF ( usePenetratingSW ) THEN Line 314  c     IF ( usePenetratingSW ) THEN
314  c     ENDIF  c     ENDIF
315  #endif  #endif
316    
317    #ifdef ALLOW_RBCS
318           if (useRBCS) then
319              call RBCS_ADD_TENDENCY(bi,bj,klev, 1,
320         &                            myTime, myThid )
321           endif
322    #endif
323    
324  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
325         IF ( tauThetaClimRelax3Dim .NE. 0. ) THEN         IF ( tauThetaClimRelax3Dim .NE. 0. ) THEN
326          DO j=1,sNy          DO j=1,sNy
# Line 418  C     Add fresh-water in top-layer Line 425  C     Add fresh-water in top-layer
425         ENDDO         ENDDO
426        ENDIF        ENDIF
427    
428    #ifdef ALLOW_RBCS
429           if (useRBCS) then
430              call RBCS_ADD_TENDENCY(bi,bj,klev, 2,
431         &                            myTime, myThid )
432           endif
433    #endif
434    
435  #ifdef ALLOW_CLIMSALT_RELAXATION  #ifdef ALLOW_CLIMSALT_RELAXATION
436         IF ( tauSaltClimRelax3Dim .NE. 0. ) THEN         IF ( tauSaltClimRelax3Dim .NE. 0. ) THEN
437          DO j=1,sNy          DO j=1,sNy
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22