pkg/offline/offline_reset_parms.F

f7cf9f5c1b Jean*0001 #include "OFFLINE_OPTIONS.h"
                0002
                0003 C !INTERFACE: ==========================================================
                0004       SUBROUTINE OFFLINE_RESET_PARMS( myThid )
                0005
                0006 C !DESCRIPTION:
                0007 C reset some of the main-code parameters for offline calculation
                0008
                0009 C !USES: ===============================================================
                0010       IMPLICIT NONE
                0011 #include "SIZE.h"
                0012 #include "EEPARAMS.h"
                0013 #include "PARAMS.h"
                0014 #include "OFFLINE.h"
                0015
                0016 C !INPUT PARAMETERS: ===================================================
                0017 C  myThid         :: my Thread Id. number
                0018       INTEGER myThid
                0019 CEOP
                0020
                0021 C     !FUNCTIONS:
                0022 c     INTEGER  ILNBLNK
                0023 c     EXTERNAL ILNBLNK
                0024
                0025 C     !LOCAL VARIABLES:
                0026 C     msgBuf      :: Informational/error message buffer
                0027       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0028
                0029       _BEGIN_MASTER(myThid)
                0030
                0031 C-    For off-line calculation, switch off Momentum and Active-tracers (=T,S):
                0032       WRITE(msgBuf,'(A,A)') ' OFFLINE_RESET_PARMS: ',
                0033      &    '=> turn off Temp,Salt & Mom_Stepping flags'
                0034       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0035      &                    SQUEEZE_RIGHT, myThid )
                0036       tempStepping = .FALSE.
                0037       saltStepping = .FALSE.
                0038       momStepping  = .FALSE.
                0039
89105877dc Jean*0040 C-    Switch off dynstat monitor (but keep one @ the end)
f390ea67d6 Jean*0041 c     IF ( monitorFreq.GT.0. ) THEN
                0042 c       monitorFreq = endTime
                0043 c         WRITE(msgBuf,'(A,A,1PE18.10)') ' OFFLINE_RESET_PARMS: ',
                0044 c    &    '=> reset monitorFreq to:', monitorFreq
                0045 c         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0046 c    &                        SQUEEZE_RIGHT, myThid )
                0047 c     ENDIF
89105877dc Jean*0048
f7cf9f5c1b Jean*0049       IF ( Wvelfile .EQ. ' '  ) THEN
                0050 C--   Make sure we compute vertical velocity since it is not read from a file
                0051         IF ( .NOT.exactConserv ) THEN
89105877dc Jean*0052           WRITE(msgBuf,'(A,A)') '** WARNING ** OFFLINE_RESET_PARMS: ',
f7cf9f5c1b Jean*0053      &    '=> turn on exactConserv to compute wVel'
                0054           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0055      &                        SQUEEZE_RIGHT, myThid )
89105877dc Jean*0056           CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
                0057      &                        SQUEEZE_RIGHT, myThid )
f7cf9f5c1b Jean*0058           exactConserv = .TRUE.
                0059         ENDIF
                0060       ELSE
                0061 C--   Vertical velocity is read from a file: make sure it is not re-computed
                0062         IF ( exactConserv ) THEN
89105877dc Jean*0063           WRITE(msgBuf,'(A,A)') '** WARNING ** OFFLINE_RESET_PARMS: ',
f7cf9f5c1b Jean*0064      &    '=> turn off exactConserv to skip wVel calc'
                0065           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0066      &                        SQUEEZE_RIGHT, myThid )
89105877dc Jean*0067           CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
                0068      &                        SQUEEZE_RIGHT, myThid )
f7cf9f5c1b Jean*0069           exactConserv = .FALSE.
                0070         ENDIF
                0071       ENDIF
                0072
                0073       _END_MASTER(myThid)
                0074
                0075       RETURN
                0076       END