/[MITgcm]/MITgcm/model/src/calc_phi_hyd.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_phi_hyd.F

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

revision 1.38 by jmc, Mon Sep 22 17:55:16 2008 UTC revision 1.39 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 143  CADJ GENERAL Line 143  CADJ GENERAL
143  C---    Calculate density  C---    Calculate density
144  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
145            kkey = (ikey-1)*Nr + k            kkey = (ikey-1)*Nr + k
146  CADJ STORE tFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE tFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte,
147  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     kind = isbyte
148    CADJ STORE sFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte,
149    CADJ &     kind = isbyte
150  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
151            CALL FIND_RHO_2D(            CALL FIND_RHO_2D(
152       I              iMin, iMax, jMin, jMax, k,       I              iMin, iMax, jMin, jMax, k,
# Line 258  CADJ GENERAL Line 260  CADJ GENERAL
260  C--     Calculate density  C--     Calculate density
261  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
262            kkey = (ikey-1)*Nr + k            kkey = (ikey-1)*Nr + k
263  CADJ STORE tFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE tFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte,
264  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     kind = isbyte
265    CADJ STORE sFld (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte,
266    CADJ &     kind = isbyte
267  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
268            CALL FIND_RHO_2D(            CALL FIND_RHO_2D(
269       I              iMin, iMax, jMin, jMax, k,       I              iMin, iMax, jMin, jMax, k,
# Line 268  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_ Line 272  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_
272       O              alphaRho,       O              alphaRho,
273       I              k, bi, bj, myThid )       I              k, bi, bj, myThid )
274  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
275  CADJ STORE alphaRho (:,:) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE alphaRho (:,:) = comlev1_bibj_k, key=kkey, byte=isbyte,
276    CADJ &     kind = isbyte
277  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
278          ELSE          ELSE
279            DO j=jMin,jMax            DO j=jMin,jMax
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22