/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_growth.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_growth.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.14 by torge, Mon Dec 10 22:19:49 2012 UTC revision 1.15 by torge, Mon Dec 10 22:41:54 2012 UTC
# Line 1985  C ====================================== Line 1985  C ======================================
1985            ENDDO            ENDDO
1986           ENDDO           ENDDO
1987  #endif  #endif
1988    #ifdef SEAICE_DEBUG
1989  c ToM<<< debug seaice_growth  c ToM<<< debug seaice_growth
1990          WRITE(msgBuf,msgBufForm)          WRITE(msgBuf,msgBufForm)
1991       &    ' SEAICE_GROWTH: Heff increments 9, HEFF = ',       &    ' SEAICE_GROWTH: Heff increments 9, HEFF = ',
# Line 2005  c ToM<<< debug seaice_growth Line 2006  c ToM<<< debug seaice_growth
2006          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
2007       &    SQUEEZE_RIGHT , myThid)       &    SQUEEZE_RIGHT , myThid)
2008  c ToM>>>  c ToM>>>
2009    #endif /* SEAICE_DEBUG */
2010    
2011  C ===================================================================  C ===================================================================
2012  C ==========PART 4: determine ice cover fraction increments=========-  C ==========PART 4: determine ice cover fraction increments=========-
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22