/[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.36 by heimbach, Mon Jan 2 21:17:02 2006 UTC revision 1.37 by mlosch, Tue Feb 7 11:47:48 2006 UTC
# Line 285  C     Add heat in top-layer Line 285  C     Add heat in top-layer
285         ENDDO         ENDDO
286        ENDIF        ENDIF
287    
288    #ifdef ALLOW_SHELFICE
289          IF ( useShelfIce )
290         &     CALL SHELFICE_FORCING_T(
291         I     iMin,iMax, jMin,jMax, bi,bj, kLev,
292         I     myTime, myThid )
293    #endif /* ALLOW_SHELFICE */
294    
295  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
296  C Penetrating SW radiation  C Penetrating SW radiation
297  c     IF ( usePenetratingSW ) THEN  c     IF ( usePenetratingSW ) THEN
# Line 409  C     Add fresh-water in top-layer Line 416  C     Add fresh-water in top-layer
416         ENDDO         ENDDO
417        ENDIF        ENDIF
418    
419    #ifdef ALLOW_SHELFICE
420          IF ( useShelfIce )
421         &     CALL SHELFICE_FORCING_S(
422         I     iMin,iMax, jMin,jMax, bi,bj, kLev,
423         I     myTime, myThid )
424    #endif /* ALLOW_SHELFICE */
425    
426  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
427         if (useRBCS) then         if (useRBCS) then
428            call RBCS_ADD_TENDENCY(bi,bj,klev, 2,            call RBCS_ADD_TENDENCY(bi,bj,klev, 2,
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22