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 ) |