/[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.40 by jmc, Wed Nov 6 03:45:46 2002 UTC revision 1.41 by jmc, Mon Jan 13 01:31:22 2003 UTC
# Line 194  c       WRITE(*,*) ' mythid, sumArea = ' Line 194  c       WRITE(*,*) ' mythid, sumArea = '
194          _GLOBAL_SUM_R8( sumArea, myThid )          _GLOBAL_SUM_R8( sumArea, myThid )
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 / deltaTmom
198          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
199          WRITE(standardMessageUnit,'(2A,1P2E22.14)') ' ini_cg2d: ',          WRITE(standardMessageUnit,'(2A,1P2E22.14)') ' ini_cg2d: ',
200       &          'sumArea,cg2dTolerance =', sumArea,cg2dTolerance       &          'sumArea,cg2dTolerance =', sumArea,cg2dTolerance
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22