/[MITgcm]/MITgcm/pkg/ptracers/ptracers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.36 by jmc, Sun Sep 5 22:28:14 2010 UTC revision 1.37 by jmc, Tue Nov 16 17:46:00 2010 UTC
# Line 32  C     !INPUT PARAMETERS: Line 32  C     !INPUT PARAMETERS:
32  CEOP  CEOP
33    
34  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
35    C     !FUNCTIONS
36          LOGICAL  GAD_VALID_ADVSCHEME
37          EXTERNAL GAD_VALID_ADVSCHEME
38    
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
40  C     k,iTracer  :: loop indices  C     k,iTracer  :: loop indices
# Line 40  C     msgBuf     :: message buffer Line 43  C     msgBuf     :: message buffer
43        INTEGER k, iTracer        INTEGER k, iTracer
44        INTEGER iUnit        INTEGER iUnit
45        INTEGER ic        INTEGER ic
46          LOGICAL validNum
47        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
48        _RL PTRACERS_diffKr(PTRACERS_num)        _RL PTRACERS_diffKr(PTRACERS_num)
49        _RL tauTr1ClimRelax        _RL tauTr1ClimRelax
# Line 183  C     Check we are not trying to use mor Line 187  C     Check we are not trying to use mor
187          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
188          STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'          STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'
189        ENDIF        ENDIF
190  C     Check that enough parameters were specified  C     Check for valid advection-scheme number
191        DO iTracer=1,PTRACERS_numInUse        DO iTracer=1,PTRACERS_numInUse
192          IF (PTRACERS_advScheme(iTracer).EQ.0) THEN          validNum = GAD_VALID_ADVSCHEME( PTRACERS_advScheme(iTracer) )
193            WRITE(msgBuf,'(A,A,I3)')          IF ( .NOT.validNum ) THEN
194       &         ' PTRACERS_READPARMS: ',           WRITE(msgBuf,'(2A,I6)') 'PTRACERS_READPARMS: ',
195       &         'No advect. scheme specified for tracer #',       &   'invalid advection scheme number=',PTRACERS_advScheme(iTracer)
196       &         iTracer           CALL PRINT_ERROR( msgBuf, myThid )
197            CALL PRINT_ERROR( msgBuf, myThid )           WRITE(msgBuf,'(2A,I6)') 'PTRACERS_READPARMS: ',
198            STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'       &   'for tracer #', iTracer
199             CALL PRINT_ERROR( msgBuf, myThid )
200             STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'
201          ENDIF          ENDIF
202        ENDDO        ENDDO
203  #ifndef INCLUDE_IMPLVERTADV_CODE  #ifndef INCLUDE_IMPLVERTADV_CODE
# Line 364  C     Everyone else must wait for the pa Line 370  C     Everyone else must wait for the pa
370    
371        RETURN        RETURN
372        END        END
   
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22