/[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.34 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.35 by adcroft, Thu Jun 7 15:53:21 2001 UTC
# Line 193  C-  compute the total Area of the domain Line 193  C-  compute the total Area of the domain
193            ENDDO            ENDDO
194           ENDDO           ENDDO
195          ENDDO          ENDDO
196  c       WRITE(0,*) ' mythid, sumArea = ', mythid, sumArea  c       WRITE(*,*) ' mythid, sumArea = ', mythid, sumArea
197          _GLOBAL_SUM_R8( sumArea, myThid )          _GLOBAL_SUM_R8( sumArea, myThid )
198  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]
199          cg2dTolerance = cg2dNorm * cg2dTargetResWunit          cg2dTolerance = cg2dNorm * cg2dTargetResWunit
200       &                           * sumArea / deltaTMom       &                           * sumArea / deltaTMom
201          WRITE(0,'(2A,1P2E22.14)') ' ini_cg2d: ',          WRITE(*,'(2A,1P2E22.14)') ' ini_cg2d: ',
202       &          'sumArea,cg2dTolerance =', sumArea,cg2dTolerance       &          'sumArea,cg2dTolerance =', sumArea,cg2dTolerance
203        ENDIF        ENDIF
204            
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22