/[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.25 by jmc, Wed Aug 1 18:22:41 2012 UTC revision 1.26 by jmc, Wed Nov 21 01:53:34 2012 UTC
# Line 214  C Note: will inline this S/R once thSIce Line 214  C Note: will inline this S/R once thSIce
214  #endif  #endif
215    
216  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
217  CADJ STORE sheating(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE sHeating(:,:,bi,bj) = comlev1_bibj, key = ticekey
218  CADJ STORE tice1(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE tice1(:,:,bi,bj) = comlev1_bibj, key = ticekey
219  CADJ STORE tice2(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE tice2(:,:,bi,bj) = comlev1_bibj, key = ticekey
220    #else
221            IF ( .NOT.thSIce_skipThermo ) THEN
222  #endif  #endif
223          CALL THSICE_STEP_TEMP(            CALL THSICE_STEP_TEMP(
224       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
225       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
226    
# Line 232  cphCADJ STORE Tsrf(:,:,bi,bj)    = comle Line 234  cphCADJ STORE Tsrf(:,:,bi,bj)    = comle
234  CADJ STORE Qice1(:,:,bi,bj)   = comlev1_bibj, key = ticekey  CADJ STORE Qice1(:,:,bi,bj)   = comlev1_bibj, key = ticekey
235  CADJ STORE Qice2(:,:,bi,bj)   = comlev1_bibj, key = ticekey  CADJ STORE Qice2(:,:,bi,bj)   = comlev1_bibj, key = ticekey
236  CADJ STORE snowAge(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE snowAge(:,:,bi,bj) = comlev1_bibj, key = ticekey
237  CADJ STORE sheating(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE sHeating(:,:,bi,bj) = comlev1_bibj, key = ticekey
238  #endif  #endif
239              CALL THSICE_STEP_FWD(
         CALL THSICE_STEP_FWD(  
240       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
241       I                     prcAtm(1-OLx,1-OLy,bi,bj),       I                     prcAtm(1-OLx,1-OLy,bi,bj),
242       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
243    #ifndef ALLOW_AUTODIFF_TAMC
244            ENDIF
245    #endif
246    
247  C--  end bi,bj loop  C--  end bi,bj loop
248         ENDDO         ENDDO
# Line 247  C--  end bi,bj loop Line 251  C--  end bi,bj loop
251  #ifdef ALLOW_BALANCE_FLUXES  #ifdef ALLOW_BALANCE_FLUXES
252  C--   Balance net Fresh-Water flux from Atm+Land  C--   Balance net Fresh-Water flux from Atm+Land
253        IF ( thSIceBalanceAtmFW.NE.0 ) THEN        IF ( thSIceBalanceAtmFW.NE.0 ) THEN
254          CALL THSICE_BALANCE_FRW(          CALL THSICE_BALANCE_FRW(
255       I                      iMin, iMax, jMin, jMax,       I                      iMin, iMax, jMin, jMax,
256       I                      prcAtm, myTime, myIter, myThid )       I                      prcAtm, myTime, myIter, myThid )
257        ENDIF        ENDIF
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22