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 #ifdef EXACT_CONSERV
                0055       IF ( (nonlinFreeSurf.GT.0 .OR. usingPCoords)
                0056      &     .AND. useRealFreshWaterFlux .AND. staggerTimeStep
                0057      &     .AND. LS_whenToSample.LT.2 ) THEN
                0058         WRITE(msgBuf,'(2A)')
                0059      &     ' LONGSTEP: staggerTimeStep with EXACT_CONSERV,',
                0060      &     ' useRealFreshWaterFlux'
                0061         CALL PRINT_ERROR( msgBuf, myThid )
                0062         WRITE(msgBuf,'(2A)')
                0063      &     ' LONGSTEP: and nonlinFreeSurf or PCoords',
                0064      &     ' requires LS_whenToSample=2'
                0065         CALL PRINT_ERROR( msgBuf, myThid )
                0066         STOP 'ABNORMAL END: S/R LONGSTEP_INIT_FIXED'
                0067       ENDIF
                0068 #endif /* EXACT_CONSERV */
                0069
                0070       _END_MASTER(myThid)
                0071       _BARRIER
                0072
                0073 #endif /* ALLOW_LONGSTEP */
                0074
                0075       RETURN
                0076       END