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

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

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

revision 1.12 by jmc, Wed Apr 4 02:40:42 2007 UTC revision 1.17 by jmc, Thu Aug 30 15:02:51 2007 UTC
# Line 98  C      to be valid at the boundaries ( d Line 98  C      to be valid at the boundaries ( d
98       &                         + act4*max1*max2*max3       &                         + act4*max1*max2*max3
99  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
100    
101    #ifdef ALLOW_AUTODIFF_TAMC
102    CADJ STORE ocefwfx(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
103    CADJ STORE oceqnet(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
104    CADJ STORE ocesflx(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
105    # ifdef ALLOW_EXF
106    CADJ STORE qsw(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
107    # endif
108    #endif
109    
110  C--     Mixed layer thickness: take the 1rst layer  C--     Mixed layer thickness: take the 1rst layer
111  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
112          IF ( staggerTimeStep .AND. nonlinFreeSurf.GT.0 ) THEN          IF ( staggerTimeStep .AND. nonlinFreeSurf.GT.0 ) THEN
# Line 162  CADJ STORE Tsrf    = comlev1, key = iice Line 171  CADJ STORE Tsrf    = comlev1, key = iice
171  CADJ STORE Qice1   = comlev1, key = iicekey  CADJ STORE Qice1   = comlev1, key = iicekey
172  CADJ STORE Qice2   = comlev1, key = iicekey  CADJ STORE Qice2   = comlev1, key = iicekey
173  CADJ STORE snowAge = comlev1, key = iicekey  CADJ STORE snowAge = comlev1, key = iicekey
   
 CADJ STORE sHeating = comlev1, key = iicekey  
 CADJ STORE flxCndBt = comlev1, key = iicekey  
174  CADJ STORE snowPrc  = comlev1, key = iicekey  CADJ STORE snowPrc  = comlev1, key = iicekey
175    
176  CADJ STORE hOceMxL = comlev1, key = iicekey  CADJ STORE hOceMxL = comlev1, key = iicekey
# Line 201  C Note: will inline this S/R once thSIce Line 207  C Note: will inline this S/R once thSIce
207          ENDIF          ENDIF
208  #endif  #endif
209    
   
210          CALL THSICE_STEP_TEMP(          CALL THSICE_STEP_TEMP(
211       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
212       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
213    
214    #ifdef ALLOW_AUTODIFF_TAMC
215    CADJ STORE empmr, qnet = comlev1, key = iicekey
216    CADJ STORE iceMask = comlev1, key = iicekey
217    CADJ STORE iceHeight  = comlev1, key = iicekey
218    CADJ STORE snowHeight = comlev1, key = iicekey
219    CADJ STORE Tsrf    = comlev1, key = iicekey
220    CADJ STORE Qice1   = comlev1, key = iicekey
221    CADJ STORE Qice2   = comlev1, key = iicekey
222    CADJ STORE snowAge = comlev1, key = iicekey
223    #endif
224    
225          CALL THSICE_STEP_FWD(          CALL THSICE_STEP_FWD(
226       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
227       I                     prcAtm,       I                     prcAtm,
# Line 244  C--  end bi,bj loop Line 260  C--  end bi,bj loop
260         ENDDO         ENDDO
261        ENDDO        ENDDO
262    
   
263        IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN        IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN
264  C--   Exchange fields that are advected by seaice dynamics  C--   Exchange fields that are advected by seaice dynamics
265          _EXCH_XY_R8( iceMask, myThid )          _EXCH_XY_R8( iceMask, myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22