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