/[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.43 by jmc, Wed Jul 20 22:33:02 2005 UTC revision 1.44 by jmc, Tue Oct 17 18:52:34 2006 UTC
# Line 136  C     aS2d: integral in Z Ay/dY Line 136  C     aS2d: integral in Z Ay/dY
136        ELSE        ELSE
137         myNorm = 1. _d 0         myNorm = 1. _d 0
138        ENDIF        ENDIF
        cg2dNorm = myNorm  
139        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
140         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
141          DO J=1,sNy          DO J=1,sNy
# Line 161  C     CALL PLOT_FIELD_XYRS( aW2d, 'AW2D Line 160  C     CALL PLOT_FIELD_XYRS( aW2d, 'AW2D
160  C     CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.2' , 1, myThid )  C     CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.2' , 1, myThid )
161  CcnhDebugEnds  CcnhDebugEnds
162    
163          _BEGIN_MASTER(myThid)
164    C-- set global parameter in common block:
165          cg2dNorm = myNorm
166  C-- Define the solver tolerance in the appropriate Unit :  C-- Define the solver tolerance in the appropriate Unit :
167        cg2dNormaliseRHS = cg2dTargetResWunit.LE.0.        cg2dNormaliseRHS = cg2dTargetResWunit.LE.0.
168        IF (cg2dNormaliseRHS) THEN        IF (cg2dNormaliseRHS) THEN
# Line 171  C-  convert Target-Residual (in W unit) Line 173  C-  convert Target-Residual (in W unit)
173          cg2dTolerance = cg2dNorm * cg2dTargetResWunit          cg2dTolerance = cg2dNorm * cg2dTargetResWunit
174       &                           * globalArea / deltaTmom       &                           * globalArea / deltaTmom
175        ENDIF        ENDIF
176          _END_MASTER(myThid)
177    
178  CcnhDebugStarts  CcnhDebugStarts
179        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22