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

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

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

revision 1.2 by jmc, Tue Feb 18 15:30:47 2003 UTC revision 1.3 by gforget, Mon Oct 26 00:43:38 2009 UTC
# Line 64  C     i,j :: Loop counters Line 64  C     i,j :: Loop counters
64        PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )        PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )
65  CEOP  CEOP
66    
67             DO j=jMin,jMax
68              DO i=iMin,iMax
69                 phiHydLow(i,j,bi,bj) = 0. _d 0
70              ENDDO
71             ENDDO
72    
73        IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN        IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN
74    
75  C----- Compute bottom pressure deviation from gravity*rho0*H  C----- Compute bottom pressure deviation from gravity*rho0*H
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22