pkg/thsice/thsice_check.F

c $Header: /u/gcmpack/MITgcm/pkg/thsice/thsice_check.F,v 1.1 2007/04/16 22:38:24 heimbach Exp $

#include "THSICE_OPTIONS.h"

      subroutine THSICE_CHECK( mythid )

c     ==================================================================
c     SUBROUTINE THSICE_CHECK
c     ==================================================================
c
      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "THSICE_SIZE.h"
#include "THSICE_PARAMS.h"

c     == routine arguments ==

c     mythid - thread number for this instance of the routine.

      integer mythid

c     == local variables ==
      CHARACTER*(MAX_LEN_MBUF) msgBuf

c     == end of interface ==

      _BEGIN_MASTER(myThid)

       WRITE(msgBuf,'(A)') 'THSICE_CHECK: #define THSICE'
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT , myThid )

#ifdef ALLOW_AUTODIFF_TAMC
      IF ( nitMaxTsf .GT. MaxTsf ) THEN
        WRITE(msgBuf,'(A)') 'Need to set MaxTsf >= nitMaxTsf for TAF'
        CALL PRINT_ERROR( msgBuf , myThid )
        STOP 'ABNORMAL END: S/R THSICE_CHECK'
      ENDIF
#endif

      _END_MASTER(myThid)

      end
1	c $Header: /u/gcmpack/MITgcm/pkg/thsice/thsice_check.F,v 1.1 2007/04/16 22:38:24 heimbach Exp $
2
3	#include "THSICE_OPTIONS.h"
4
5	subroutine THSICE_CHECK( mythid )
6
7	c ==================================================================
8	c SUBROUTINE THSICE_CHECK
9	c ==================================================================
10	c
11	implicit none
12
13	c == global variables ==
14
15	#include "EEPARAMS.h"
16	#include "SIZE.h"
17	#include "THSICE_SIZE.h"
18	#include "THSICE_PARAMS.h"
19
20	c == routine arguments ==
21
22	c mythid - thread number for this instance of the routine.
23
24	integer mythid
25
26	c == local variables ==
27	CHARACTER*(MAX_LEN_MBUF) msgBuf
28
29	c == end of interface ==
30
31	_BEGIN_MASTER(myThid)
32
33	WRITE(msgBuf,'(A)') 'THSICE_CHECK: #define THSICE'
34	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
35	& SQUEEZE_RIGHT , myThid )
36
37	#ifdef ALLOW_AUTODIFF_TAMC
38	IF ( nitMaxTsf .GT. MaxTsf ) THEN
39	WRITE(msgBuf,'(A)') 'Need to set MaxTsf >= nitMaxTsf for TAF'
40	CALL PRINT_ERROR( msgBuf , myThid )
41	STOP 'ABNORMAL END: S/R THSICE_CHECK'
42	ENDIF
43	#endif
44
45	_END_MASTER(myThid)
46
47	end