File indexing completed on 2018-03-02 18:43:10 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
b5aa60a554 Dimi*0001 #include "SALT_PLUME_OPTIONS.h"
0002
0003
762bde3a3e Dimi*0004
0005
b5aa60a554 Dimi*0006 SUBROUTINE SALT_PLUME_CHECK( myThid )
0007
0008
0009
0010
0011
0012 IMPLICIT NONE
0013 #include "EEPARAMS.h"
815b600e86 Gael*0014 #include "SIZE.h"
0015 #include "SALT_PLUME.h"
b5aa60a554 Dimi*0016
0017
7d8444a7b7 Jean*0018
b5aa60a554 Dimi*0019 INTEGER myThid
0020
0021
762bde3a3e Dimi*0022 #ifdef ALLOW_SALT_PLUME
0023
b5aa60a554 Dimi*0024
0025
0026 CHARACTER*(MAX_LEN_MBUF) msgBuf
0027
7d8444a7b7 Jean*0028 _BEGIN_MASTER(myThid)
0029
b5aa60a554 Dimi*0030 WRITE(msgBuf,'(A)') 'SALT_PLUME_CHECK: #define SALT_PLUME'
0031 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
7d8444a7b7 Jean*0032 & SQUEEZE_RIGHT , myThid )
0033
1f89baba18 Patr*0034 #ifdef SALT_PLUME_SPLIT_BASIN
0035 IF ( (SPsalFRAC(1) .LT. 0. _d 0).OR.
0036 & (SPsalFRAC(1) .GT. 1. _d 0) ) then
0037 WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:',
0038 & ' SPsalFRAC(1) needs to lie between 0. and 1.'
0039 CALL PRINT_ERROR( msgBuf, myThid )
0040 STOP 'ABNORMAL END: S/R SALT_PLUME_CHECK'
0041 ENDIF
0042 IF ( (SPsalFRAC(2) .LT. 0. _d 0).OR.
0043 & (SPsalFRAC(2) .GT. 1. _d 0) ) then
0044 WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:',
0045 & ' SPsalFRAC(2) needs to lie between 0. and 1.'
0046 CALL PRINT_ERROR( msgBuf, myThid )
0047 STOP 'ABNORMAL END: S/R SALT_PLUME_CHECK'
0048 ENDIF
0049 #else
815b600e86 Gael*0050 IF ( (SPsalFRAC .LT. 0. _d 0).OR.(SPsalFRAC .GT. 1. _d 0) ) then
0051 WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:',
0052 & ' SPsalFRAC needs to lie between 0. and 1.'
0053 CALL PRINT_ERROR( msgBuf, myThid )
0054 STOP 'ABNORMAL END: S/R SALT_PLUME_CHECK'
0055 ENDIF
1f89baba18 Patr*0056 #endif
815b600e86 Gael*0057
4b0b6a4929 An T*0058 #ifdef SALT_PLUME_IN_LEADS
0059 IF ( (SPinflectionPoint .LT. 0. _d 0).OR.
0060 & (SPinflectionPoint .GT. 1. _d 0) ) then
0061 WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:',
0062 & ' SPinflectionPoint needs to lie between 0. and 1.'
0063 CALL PRINT_ERROR( msgBuf, myThid )
0064 STOP 'ABNORMAL END: S/R SALT_PLUME_CHECK'
0065 ENDIF
0066 #endif
1f89baba18 Patr*0067 #ifdef SALT_PLUME_VOLUME
0068 IF ( (SPbrineSconst .LT. 0. _d 0).OR.
0069 & (SPbrineSconst .GT. SPbrineSaltmax) ) then
0070 WRITE(msgBuf,'(2A,F6.1,A)') 'SALT_PLUME_CHECK:',
0071 & ' SPbrineSconst valid range: [0.,',SPbrineSaltmax,']'
0072 CALL PRINT_ERROR( msgBuf, myThid )
0073 STOP 'ABNORMAL END: S/R SALT_PLUME_CHECK'
0074 ENDIF
0075 #endif
4b0b6a4929 An T*0076
7d8444a7b7 Jean*0077 _END_MASTER(myThid)
b5aa60a554 Dimi*0078
762bde3a3e Dimi*0079 #endif /* ALLOW_SALT_PLUME */
0080
b5aa60a554 Dimi*0081 RETURN
0082 END