/[MITgcm]/MITgcm/pkg/thsice/thsice_solve4temp.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_solve4temp.F

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

revision 1.27 by jmc, Fri Oct 22 13:43:35 2010 UTC revision 1.28 by heimbach, Tue Oct 26 22:26:59 2010 UTC
# Line 342  CADJ STORE tsf(:,:)      = comlev1_bibj, Line 342  CADJ STORE tsf(:,:)      = comlev1_bibj,
342  C--   Get surface fluxes over melting surface  C--   Get surface fluxes over melting surface
343  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
344        IF ( useBlkFlx ) THEN        IF ( useBlkFlx ) THEN
345    CADJ STORE tsf(:,:)      = comlev1_bibj,key=iicekey,byte=isbyte
346  #else  #else
347        IF ( useBlkFlx .AND. iterate4Tsf  ) THEN        IF ( useBlkFlx .AND. iterate4Tsf  ) THEN
348  #endif  #endif
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22