/[MITgcm]/MITgcm/pkg/seaice/seaice_growth.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_growth.F

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

revision 1.10 by mlosch, Tue Jan 9 13:33:49 2007 UTC revision 1.11 by mlosch, Mon Apr 16 22:43:01 2007 UTC
# Line 235  C FIRST DO OPEN WATER Line 235  C FIRST DO OPEN WATER
235       I       UG,       I       UG,
236       U       TMIX,       U       TMIX,
237       O       QNETO, QSWO,       O       QNETO, QSWO,
238       I       bi, bj)       I       bi, bj, myThid )
239    
240  C NOW DO ICE  C NOW DO ICE
241  #ifdef SEAICE_MULTICATEGORY  #ifdef SEAICE_MULTICATEGORY
# Line 257  CADJ &                           key = i Line 257  CADJ &                           key = i
257       I        UG, HICEP, hSnwLoc,       I        UG, HICEP, hSnwLoc,
258       U        TICE,       U        TICE,
259       O        FICEP, QSWIP,       O        FICEP, QSWIP,
260       I        bi, bj)       I        bi, bj, myThid )
261           DO J=1,sNy           DO J=1,sNy
262            DO I=1,sNx            DO I=1,sNx
263  C     average surface heat fluxes/growth rates  C     average surface heat fluxes/growth rates
# Line 273  C--  End loop over multi-categories Line 273  C--  End loop over multi-categories
273       I       UG, HICE, hSnwLoc,       I       UG, HICE, hSnwLoc,
274       U       TICE,       U       TICE,
275       O       FICE, QSWI,       O       FICE, QSWI,
276       I       bi, bj)       I       bi, bj, myThid )
277  #endif /* SEAICE_MULTICATEGORY */  #endif /* SEAICE_MULTICATEGORY */
278            
279  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22