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 |
|
|
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 |
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 |