350 |
WRITE(msgBuf,'(2A)') ' = 2 : energy conserving scheme', |
WRITE(msgBuf,'(2A)') ' = 2 : energy conserving scheme', |
351 |
& ' (used by Sadourny in JAS 75 paper)' |
& ' (used by Sadourny in JAS 75 paper)' |
352 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
353 |
c WRITE(msgBuf,'(2A)') ' = 3 : energy (general)', |
WRITE(msgBuf,'(2A)') ' = 3 : energy (general)', |
354 |
c & ' and enstrophy (2D, nonDiv.) conserving scheme' |
& ' and enstrophy (2D, nonDiv.) conserving scheme' |
355 |
c CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
356 |
c WRITE(msgBuf,'(2A)') ' from Sadourny', |
WRITE(msgBuf,'(2A)') ' from Sadourny', |
357 |
c & ' (Burridge & Haseler, ECMWF Rep.4, 1977)' |
& ' (Burridge & Haseler, ECMWF Rep.4, 1977)' |
358 |
c CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
359 |
c WRITE(msgBuf,'(2A)') ' = 4 : energy (general)', |
c WRITE(msgBuf,'(2A)') ' = 4 : energy (general)', |
360 |
c & ' and enstrophy (2D, nonDiv.) conserving scheme' |
c & ' and enstrophy (2D, nonDiv.) conserving scheme' |
361 |
c CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
c CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |