/[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.30 by jmc, Fri Aug 1 04:03:54 2003 UTC revision 1.31 by jmc, Mon Jan 3 02:34:01 2005 UTC
# Line 149  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_ Line 149  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_
149       &                 tFld, sFld,       &                 tFld, sFld,
150       &                 alphaRho, myThid)       &                 alphaRho, myThid)
151    
152    #ifdef ALLOW_DIAGNOSTICS
153            IF ( useDiagnostics )
154         &   CALL DIAGNOSTICS_FILL(alphaRho,'RHOAnoma',k,1,2,bi,bj,myThid)
155    #endif
156    
157  C Quasi-hydrostatic terms are added in as if they modify the buoyancy  C Quasi-hydrostatic terms are added in as if they modify the buoyancy
158          IF (quasiHydrostatic) THEN          IF (quasiHydrostatic) THEN
159           CALL QUASIHYDROSTATICTERMS(bi,bj,k,alphaRho,myThid)           CALL QUASIHYDROSTATICTERMS(bi,bj,k,alphaRho,myThid)
# Line 233  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_ Line 238  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_
238  CADJ STORE alphaRho (:,:) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE alphaRho (:,:) = comlev1_bibj_k, key=kkey, byte=isbyte
239  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
240    
241    #ifdef ALLOW_DIAGNOSTICS
242            IF ( useDiagnostics )
243         &   CALL DIAGNOSTICS_FILL(alphaRho,'RHOAnoma',k,1,2,bi,bj,myThid)
244    #endif
245    
246  C--     Calculate specific volume anomaly : alpha' = 1/rho - alpha_Cst  C--     Calculate specific volume anomaly : alpha' = 1/rho - alpha_Cst
247          DO j=jMin,jMax          DO j=jMin,jMax
248            DO i=iMin,iMax            DO i=iMin,iMax
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22