/[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.59 by dimitri, Sun Aug 7 07:08:15 2011 UTC revision 1.60 by dimitri, Fri Mar 2 01:45:22 2012 UTC
# Line 352  C     Add heat in top-layer Line 352  C     Add heat in top-layer
352         ENDDO         ENDDO
353        ENDIF        ENDIF
354    
355    #ifdef ALLOW_FRAZIL
356          IF ( useFRAZIL )
357         &     CALL FRAZIL_TENDENCY_APPLY_T(
358         I     iMin,iMax, jMin,jMax, bi,bj, kLev,
359         I     myTime, myThid )
360    #endif /* ALLOW_FRAZIL */
361    
362  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
363        IF ( useShelfIce )        IF ( useShelfIce )
364       &     CALL SHELFICE_FORCING_T(       &     CALL SHELFICE_FORCING_T(

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

  ViewVC Help
Powered by ViewVC 1.1.22