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

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

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

revision 1.2 by jmc, Sun Jul 23 23:32:33 2006 UTC revision 1.3 by jmc, Tue Apr 28 18:01:15 2009 UTC
# Line 114  C - end bi,bj loops. Line 114  C - end bi,bj loops.
114         ENDDO         ENDDO
115        ENDDO        ENDDO
116  C  C
117  C      _EXCH_XYZ_R4(hFacC,myThid)  C      _EXCH_XYZ_RS(hFacC,myThid)
118  C  C
119  C-  Re-calculate lower-R Boundary position, taking into account hFacC  C-  Re-calculate lower-R Boundary position, taking into account hFacC
120        DO bj=myByLo(myThid), myByHi(myThid)        DO bj=myByLo(myThid), myByHi(myThid)
# Line 184  C         Inverse of fluid column thickn Line 184  C         Inverse of fluid column thickn
184          ENDDO          ENDDO
185         ENDDO         ENDDO
186        ENDDO        ENDDO
187  C     _EXCH_XY_R4(   recip_Rcol, myThid )  C     _EXCH_XY_RS(   recip_Rcol, myThid )
188    
189  C     hFacW and hFacS (at U and V points)  C     hFacW and hFacS (at U and V points)
190  CML   This will be the crucial part of the code, because here the minimum  CML   This will be the crucial part of the code, because here the minimum
# Line 319  Cml            maskS(I,J,K,bi,bj) = 0. Line 319  Cml            maskS(I,J,K,bi,bj) = 0.
319  CmlCml(  CmlCml(
320  Cml       ENDDO  Cml       ENDDO
321  Cml      ENDDO  Cml      ENDDO
322  Cml      _EXCH_XYZ_R4(recip_hFacC    , myThid )  Cml      _EXCH_XYZ_RS(recip_hFacC    , myThid )
323  Cml      _EXCH_XYZ_R4(recip_hFacW    , myThid )  Cml      _EXCH_XYZ_RS(recip_hFacW    , myThid )
324  Cml      _EXCH_XYZ_R4(recip_hFacS    , myThid )  Cml      _EXCH_XYZ_RS(recip_hFacS    , myThid )
325  Cml      _EXCH_XYZ_R4(maskC    , myThid )  Cml      _EXCH_XYZ_RS(maskC    , myThid )
326  Cml      _EXCH_XYZ_R4(maskW    , myThid )  Cml      _EXCH_XYZ_RS(maskW    , myThid )
327  Cml      _EXCH_XYZ_R4(maskS    , myThid )  Cml      _EXCH_XYZ_RS(maskS    , myThid )
328  Cml      DO bj = myByLo(myThid), myByHi(myThid)  Cml      DO bj = myByLo(myThid), myByHi(myThid)
329  Cml       DO bi = myBxLo(myThid), myBxHi(myThid)  Cml       DO bi = myBxLo(myThid), myBxHi(myThid)
330  CmlCml)  CmlCml)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22