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

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

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

revision 1.23 by jscott, Fri Apr 20 19:24:47 2007 UTC revision 1.24 by jmc, Fri Apr 27 15:50:41 2007 UTC
# Line 356  C--    Net fluxes : Line 356  C--    Net fluxes :
356         ENDDO         ENDDO
357        ENDDO        ENDDO
358    
 #ifdef ATMOSPHERIC_LOADING  
359  # ifdef ALLOW_AUTODIFF_TAMC  # ifdef ALLOW_AUTODIFF_TAMC
360  CADJ STORE snowHeight(:,:,bi,bj) =  CADJ STORE snowHeight(:,:,bi,bj) =
361  CADJ &     comlev1_bibj, key=iicekey, byte=isbyte  CADJ &     comlev1_bibj, key=iicekey, byte=isbyte
# Line 369  C--     Compute Sea-Ice Loading (= mass Line 368  C--     Compute Sea-Ice Loading (= mass
368       &                        )*iceMask(i,j,bi,bj)       &                        )*iceMask(i,j,bi,bj)
369         ENDDO         ENDDO
370        ENDDO        ENDDO
 #endif  
371    
372        IF ( thSIceAdvScheme.GT.0 ) THEN        IF ( thSIceAdvScheme.GT.0 ) THEN
373  C--   note: those fluxes should to be added directly to Qnet, EmPmR & saltFlux  C--   note: those fluxes should to be added directly to Qnet, EmPmR & saltFlux
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22