/[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.39 by adcroft, Fri Jun 21 18:36:05 2002 UTC revision 1.40 by jmc, Wed Nov 6 03:45:46 2002 UTC
# Line 195  c       WRITE(*,*) ' mythid, sumArea = ' Line 195  c       WRITE(*,*) ' mythid, sumArea = '
195  C-  convert Target-Residual (in W unit) to cg2d-solver residual unit [m^2/s^2]  C-  convert Target-Residual (in W unit) to cg2d-solver residual unit [m^2/s^2]
196          cg2dTolerance = cg2dNorm * cg2dTargetResWunit          cg2dTolerance = cg2dNorm * cg2dTargetResWunit
197       &                           * sumArea / deltaTfreesurf       &                           * sumArea / deltaTfreesurf
198          WRITE(*,'(2A,1P2E22.14)') ' ini_cg2d: ',          _BEGIN_MASTER( myThid )
199            WRITE(standardMessageUnit,'(2A,1P2E22.14)') ' ini_cg2d: ',
200       &          'sumArea,cg2dTolerance =', sumArea,cg2dTolerance       &          'sumArea,cg2dTolerance =', sumArea,cg2dTolerance
201            _END_MASTER( myThid )
202        ENDIF        ENDIF
203            
204  C--   Initialise preconditioner  C--   Initialise preconditioner
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22