/[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.25 by jmc, Thu Aug 30 15:02:51 2007 UTC
# Line 36  C     === Global variables === Line 36  C     === Global variables ===
36  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
37  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
38  #include "THSICE_TAVE.h"  #include "THSICE_TAVE.h"
 #include "THSICE_2DYN.h"  
39  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
40  # include "tamc.h"  # include "tamc.h"
41  # include "tamc_keys.h"  # include "tamc_keys.h"
# Line 356  C--    Net fluxes : Line 355  C--    Net fluxes :
355         ENDDO         ENDDO
356        ENDDO        ENDDO
357    
 #ifdef ATMOSPHERIC_LOADING  
358  # ifdef ALLOW_AUTODIFF_TAMC  # ifdef ALLOW_AUTODIFF_TAMC
359  CADJ STORE snowHeight(:,:,bi,bj) =  CADJ STORE snowHeight(:,:,bi,bj) =
360  CADJ &     comlev1_bibj, key=iicekey, byte=isbyte  CADJ &     comlev1_bibj, key=iicekey, byte=isbyte
# Line 369  C--     Compute Sea-Ice Loading (= mass Line 367  C--     Compute Sea-Ice Loading (= mass
367       &                        )*iceMask(i,j,bi,bj)       &                        )*iceMask(i,j,bi,bj)
368         ENDDO         ENDDO
369        ENDDO        ENDDO
 #endif  
370    
371        IF ( thSIceAdvScheme.GT.0 ) THEN        IF ( thSIceAdvScheme.GT.0 ) THEN
372  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.25
  ViewVC Help
Powered by ViewVC 1.1.22