/[MITgcm]/MITgcm/model/inc/SURFACE.h
ViewVC logotype

Diff of /MITgcm/model/inc/SURFACE.h

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

revision 1.11 by jmc, Tue Jun 29 22:21:07 2004 UTC revision 1.12 by jmc, Tue Jul 6 00:51:35 2004 UTC
# Line 39  C IMPORTANT:  ksurfC,W,S = Nr+1  where t Line 39  C IMPORTANT:  ksurfC,W,S = Nr+1  where t
39        INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40    
41  #ifdef EXACT_CONSERV  #ifdef EXACT_CONSERV
42    C     etaHnm1 :: surface r-anomaly, etaH, at previous time level
43  C     dEtaHdt :: time derivative of total column height [r_unit/s = w unit]  C     dEtaHdt :: time derivative of total column height [r_unit/s = w unit]
44  C     PmEpR   :: keep the fresh water input (=-EmPmR) of the previous time step  C     PmEpR   :: keep the fresh water input (=-EmPmR) of the previous time step
45        COMMON /EXACT_ETA_LOCAL/ dEtaHdt, PmEpR        COMMON /EXACT_ETA_LOCAL/ etaHnm1, dEtaHdt, PmEpR
46          _RL etaHnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
47        _RL dEtaHdt(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)        _RL dEtaHdt(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
48        _RS  PmEpR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  PmEpR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49  #endif  #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22