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

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

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

revision 1.45 by jmc, Tue Dec 5 05:25:08 2006 UTC revision 1.46 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 129  C  deep-model: *deepFacC (faceArea), /de Line 129  C  deep-model: *deepFacC (faceArea), /de
129          ENDDO          ENDDO
130         ENDDO         ENDDO
131        ENDDO        ENDDO
132        _GLOBAL_MAX_R4( myNorm, myThid )        _GLOBAL_MAX_RS( myNorm, myThid )
133        IF ( myNorm .NE. 0. _d 0 ) THEN        IF ( myNorm .NE. 0. _d 0 ) THEN
134         myNorm = 1. _d 0/myNorm         myNorm = 1. _d 0/myNorm
135        ELSE        ELSE
# Line 151  CcnhDebugStarts Line 151  CcnhDebugStarts
151  C     CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.1' , 1, myThid )  C     CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.1' , 1, myThid )
152  C     CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.1' , 1, myThid )  C     CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.1' , 1, myThid )
153  CcnhDebugEnds  CcnhDebugEnds
154  c     _EXCH_XY_R4(aW2d, myThid)  c     _EXCH_XY_RS(aW2d, myThid)
155  c     _EXCH_XY_R4(aS2d, myThid)  c     _EXCH_XY_RS(aS2d, myThid)
156        CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid)
157  CcnhDebugStarts  CcnhDebugStarts
158  C     CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.2' , 1, myThid )  C     CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.2' , 1, myThid )
# Line 254  C         pS(I,J,bi,bj) = 0. Line 254  C         pS(I,J,bi,bj) = 0.
254         ENDDO         ENDDO
255        ENDDO        ENDDO
256  C--   Update overlap regions  C--   Update overlap regions
257        _EXCH_XY_R4(pC, myThid)        _EXCH_XY_RS(pC, myThid)
258  c     _EXCH_XY_R4(pW, myThid)  c     _EXCH_XY_RS(pW, myThid)
259  c     _EXCH_XY_R4(pS, myThid)  c     _EXCH_XY_RS(pS, myThid)
260        CALL EXCH_UV_XY_RS(pW,pS,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(pW,pS,.FALSE.,myThid)
261  CcnhDebugStarts  CcnhDebugStarts
262  C     CALL PLOT_FIELD_XYRS( pC, 'pC   INI_CG2D.2' , 1, myThid )  C     CALL PLOT_FIELD_XYRS( pC, 'pC   INI_CG2D.2' , 1, myThid )
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22