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

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

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

revision 1.25 by heimbach, Sat Jul 13 04:59:42 2002 UTC revision 1.26 by mlosch, Wed Sep 18 16:38:02 2002 UTC
# Line 315  CADJ STORE theta(:,:,k,bi,bj) = comlev1_ Line 315  CADJ STORE theta(:,:,k,bi,bj) = comlev1_
315  CADJ STORE salt (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE salt (:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte
316  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
317              CALL FIND_RHO(              CALL FIND_RHO(
318       I        bi, bj, iMin, iMax, jMin, jMax, k, k, eosType,       I        bi, bj, iMin, iMax, jMin, jMax, k, k,
319       I        theta, salt,       I        theta, salt,
320       O        rhoK,       O        rhoK,
321       I        myThid )       I        myThid )
# Line 325  CADJ STORE theta(:,:,k-1,bi,bj) = comlev Line 325  CADJ STORE theta(:,:,k-1,bi,bj) = comlev
325  CADJ STORE salt (:,:,k-1,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE salt (:,:,k-1,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte
326  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
327               CALL FIND_RHO(               CALL FIND_RHO(
328       I        bi, bj, iMin, iMax, jMin, jMax, k-1, k, eosType,       I        bi, bj, iMin, iMax, jMin, jMax, k-1, k,
329       I        theta, salt,       I        theta, salt,
330       O        rhoKm1,       O        rhoKm1,
331       I        myThid )       I        myThid )
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22