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

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

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

revision 1.13 by heimbach, Thu May 30 22:48:33 2002 UTC revision 1.14 by mlosch, Wed Sep 18 16:38:01 2002 UTC
# Line 104  CADJ STORE salt (:,:,k-1,bi,bj) = comlev Line 104  CADJ STORE salt (:,:,k-1,bi,bj) = comlev
104  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
105  C-          Density of K-1 layer (above W(K)) reference to K-1 T-level  C-          Density of K-1 layer (above W(K)) reference to K-1 T-level
106              CALL FIND_RHO(              CALL FIND_RHO(
107       I           bi,bj,iMin,iMax,jMin,jMax,K-1,K-1,eosType,       I           bi,bj,iMin,iMax,jMin,jMax,K-1,K-1,
108       I           theta,salt,       I           theta,salt,
109       O           rhoKm1,       O           rhoKm1,
110       I           myThid )       I           myThid )
# Line 115  CADJ STORE theta(:,:,k,bi,bj) = comlev1_ Line 115  CADJ STORE theta(:,:,k,bi,bj) = comlev1_
115  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
116  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
117              CALL FIND_RHO(              CALL FIND_RHO(
118       I           bi,bj,iMin,iMax,jMin,jMax,K,K-1,eosType,       I           bi,bj,iMin,iMax,jMin,jMax,K,K-1,
119       I           theta,salt,       I           theta,salt,
120       O           rhoK,       O           rhoK,
121       I           myThid )       I           myThid )
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22