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

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

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

revision 1.23 by jmc, Mon Mar 12 23:43:54 2007 UTC revision 1.24 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 194  c    &      theRecip_Dr = 1. _d 0/theRec Line 194  c    &      theRecip_Dr = 1. _d 0/theRec
194  #endif  #endif
195         ENDDO         ENDDO
196        ENDDO        ENDDO
197        _GLOBAL_MAX_R4( myNorm, myThid )        _GLOBAL_MAX_RS( myNorm, myThid )
198        IF ( myNorm .NE. 0. _d 0 ) THEN        IF ( myNorm .NE. 0. _d 0 ) THEN
199         myNorm = 1. _d 0/myNorm         myNorm = 1. _d 0/myNorm
200        ELSE        ELSE
# Line 259  C-    Matrix solver normalisation Line 259  C-    Matrix solver normalisation
259        ENDDO        ENDDO
260    
261  C--   Update overlap regions  C--   Update overlap regions
262  c     _EXCH_XYZ_R4(aW3d, myThid)  c     _EXCH_XYZ_RS(aW3d, myThid)
263  c     _EXCH_XYZ_R4(aS3d, myThid)  c     _EXCH_XYZ_RS(aS3d, myThid)
264        CALL EXCH_UV_XYZ_RS(aW3d,aS3d,.FALSE.,myThid)        CALL EXCH_UV_XYZ_RS(aW3d,aS3d,.FALSE.,myThid)
265        _EXCH_XYZ_R4(aV3d, myThid)        _EXCH_XYZ_RS(aV3d, myThid)
266        _EXCH_XYZ_R4(aC3d, myThid)        _EXCH_XYZ_RS(aC3d, myThid)
267  CcnhDebugStarts  CcnhDebugStarts
268  C     CALL PLOT_FIELD_XYZRS( aW3d, 'AW3D INI_CG3D.1' , Nr, 1, myThid )  C     CALL PLOT_FIELD_XYZRS( aW3d, 'AW3D INI_CG3D.1' , Nr, 1, myThid )
269  C     CALL PLOT_FIELD_XYZRS( aS3d, 'AS3D INI_CG3D.1' , Nr, 1, myThid )  C     CALL PLOT_FIELD_XYZRS( aS3d, 'AS3D INI_CG3D.1' , Nr, 1, myThid )
# Line 350  CcnhDEbugEnds Line 350  CcnhDEbugEnds
350         ENDDO         ENDDO
351        ENDDO        ENDDO
352  C--   Update overlap regions  C--   Update overlap regions
353        _EXCH_XYZ_R4(zMC, myThid)        _EXCH_XYZ_RS(zMC, myThid)
354        _EXCH_XYZ_R4(zML, myThid)        _EXCH_XYZ_RS(zML, myThid)
355        _EXCH_XYZ_R4(zMU, myThid)        _EXCH_XYZ_RS(zMU, myThid)
356    
357  CcnhDebugStarts  CcnhDebugStarts
358  c     DO k=1,Nr  c     DO k=1,Nr
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22