/[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.2 by cnh, Fri Apr 24 02:05:41 1998 UTC revision 1.3 by cnh, Sun Apr 26 23:41:54 1998 UTC
# Line 80  C     aS2d: integral in Z Ay/dY Line 80  C     aS2d: integral in Z Ay/dY
80        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
81         cg2dNorm = myNorm         cg2dNorm = myNorm
82  CcnhDebugStarts  CcnhDebugStarts
83         WRITE(msgBuf,*) ' CG2D normalisation factor = ', cg2dNorm         WRITE(msgBuf,'(A,F)') '// CG2D normalisation factor = ', cg2dNorm
84           CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
85           WRITE(msgBuf,*) '                               '
86         CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)         CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
87  CcnhDebugEnds  CcnhDebugEnds
88        _END_MASTER( myThid )        _END_MASTER( myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22