/[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.13 by heimbach, Mon Apr 16 22:38:24 2007 UTC
# Line 32  C     === Global variables === Line 32  C     === Global variables ===
32  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
33  # include "tamc.h"  # include "tamc.h"
34  # include "tamc_keys.h"  # include "tamc_keys.h"
35    C--
36    # include "THSICE_2DYN.h"
37    C--
38  #endif  #endif
39    
40  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 98  C      to be valid at the boundaries ( d Line 101  C      to be valid at the boundaries ( d
101       &                         + act4*max1*max2*max3       &                         + act4*max1*max2*max3
102  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
103    
104    #ifdef ALLOW_AUTODIFF_TAMC
105    CADJ STORE ocefwfx(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
106    CADJ STORE oceqnet(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
107    CADJ STORE ocesflx(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
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 206  C Note: will inline this S/R once thSIce Line 212  C Note: will inline this S/R once thSIce
212       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
213       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
214    
215    #ifdef ALLOW_AUTODIFF_TAMC
216    CADJ STORE empmr, qnet = comlev1, key = iicekey
217    CADJ STORE iceMask = comlev1, key = iicekey
218    CADJ STORE iceHeight  = comlev1, key = iicekey
219    CADJ STORE snowHeight = comlev1, key = iicekey
220    CADJ STORE Tsrf    = comlev1, key = iicekey
221    CADJ STORE Qice1   = comlev1, key = iicekey
222    CADJ STORE Qice2   = comlev1, key = iicekey
223    CADJ STORE snowAge = comlev1, key = iicekey
224    #endif
225    
226          CALL THSICE_STEP_FWD(          CALL THSICE_STEP_FWD(
227       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
228       I                     prcAtm,       I                     prcAtm,
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22