pkg/longstep/longstep_check.F

cc9097e522 Oliv*0001 #include "LONGSTEP_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: LONGSTEP_CHECK
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE LONGSTEP_CHECK( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Print summary of longstep parameters
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "LONGSTEP_PARAMS.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021       INTEGER myThid
                0022 CEOP
                0023
                0024 #ifdef ALLOW_LONGSTEP
                0025
                0026 C     !LOCAL VARIABLES:
                0027 C     msgBuf     :: message buffer
                0028       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0029
                0030 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0031
                0032       _BEGIN_MASTER(myThid)
                0033
                0034       WRITE(msgBuf,'(A)') 'LONGSTEP_CHECK: #define ALLOW_LONGSTEP'
                0035       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0036      &                    SQUEEZE_RIGHT, myThid )
                0037
                0038       WRITE(msgBuf,'(A)') '// ==================================='
                0039       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0040      &                    SQUEEZE_RIGHT, myThid )
                0041       WRITE(msgBuf,'(A)') '// longstep parameters '
                0042       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0043      &                    SQUEEZE_RIGHT, myThid )
                0044       WRITE(msgBuf,'(A)') '// ==================================='
                0045       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0046      &                    SQUEEZE_RIGHT, myThid )
                0047       CALL WRITE_0D_I( LS_nIter, INDEX_NONE,
                0048      &   'LS_nIter =',
                0049      &   ' /* number of dynamics steps between ptracer steps */')
                0050       CALL WRITE_0D_I( LS_whenToSample, INDEX_NONE,
                0051      &   'LS_whenToSample =',
                0052      &   ' /* 0: before; 1: after TD, before DYN; 2: after */')
                0053
                0054       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
                0055      &     .AND. useRealFreshWaterFlux .AND. staggerTimeStep
                0056      &     .AND. LS_whenToSample.LT.2 ) THEN
                0057         WRITE(msgBuf,'(2A)')
c3be04357d Jean*0058      &   ' LONGSTEP: staggerTimeStep with useRealFreshWaterFlux'
cc9097e522 Oliv*0059         CALL PRINT_ERROR( msgBuf, myThid )
                0060         WRITE(msgBuf,'(2A)')
                0061      &     ' LONGSTEP: and nonlinFreeSurf or PCoords',
                0062      &     ' requires LS_whenToSample=2'
                0063         CALL PRINT_ERROR( msgBuf, myThid )
                0064         STOP 'ABNORMAL END: S/R LONGSTEP_INIT_FIXED'
                0065       ENDIF
                0066
                0067       _END_MASTER(myThid)
                0068       _BARRIER
                0069
                0070 #endif /* ALLOW_LONGSTEP */
                0071
                0072       RETURN
                0073       END