/[MITgcm]/MITgcm/pkg/my82/my82_check.F
ViewVC logotype

Contents of /MITgcm/pkg/my82/my82_check.F

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


Revision 1.1 - (show annotations) (download)
Thu Sep 2 09:11:54 2004 UTC (20 years, 5 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint54e_post, checkpoint55b_post, checkpoint55, checkpoint54f_post, checkpoint55a_post
o add two new packages
  - pp81 (Packanowski and Philander, 1981), Richardson number and
    stratification dependent mixing
  - my82 (Mellor and Yamada, 1982) level 2 turbulence closure scheme

1 C $Header: $
2 C $Name: $
3 #include "MY82_OPTIONS.h"
4
5 SUBROUTINE MY82_CHECK( myThid )
6 C /==========================================================\
7 C | SUBROUTINE MY82_CHECK |
8 C | o Validate basic package setup and inter-package |
9 C | dependencies. |
10 C \==========================================================/
11 IMPLICIT NONE
12
13 C === Global variables ===
14 #include "SIZE.h"
15 #include "EEPARAMS.h"
16 #include "PARAMS.h"
17
18 C === Routine arguments ===
19 C myThid - Number of this instance of MY82_CHECK
20 INTEGER myThid
21
22 #ifdef ALLOW_MY82
23
24 C === Local variables ===
25 C msgBuf - Informational/error meesage buffer
26 CHARACTER*(MAX_LEN_MBUF) msgBuf
27
28 WRITE(msgBuf,'(A)') 'MY82_CHECK: #define ALLOW_MY82'
29 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
30 & SQUEEZE_RIGHT , 1)
31
32 C MY82 needs convection turned off (will be packaged later)
33 IF (cAdjFreq.NE.0. .OR.
34 & ivdc_kappa.NE.0. ) THEN
35 WRITE(msgBuf,'(A)') 'Some form of convection has been enabled'
36 CALL PRINT_ERROR( msgBuf , 1)
37 STOP 'ABNORMAL END: S/R MY82_CHECK'
38 ENDIF
39
40 IF ( useKPP ) THEN
41 WRITE(msgBuf,'(A)')
42 & 'MY82 and KPP cannot be turned on at the same time'
43 CALL PRINT_ERROR( msgBuf , 1)
44 STOP 'ABNORMAL END: S/R MY82_CHECK'
45 ENDIF
46
47 IF ( usePP81 ) THEN
48 WRITE(msgBuf,'(A)')
49 & 'MY82 and PP81 cannot be turned on at the same time'
50 CALL PRINT_ERROR( msgBuf , 1)
51 STOP 'ABNORMAL END: S/R MY82_CHECK'
52 ENDIF
53
54 C MY82 needs implicit vertical diffusion and viscosity
55 IF (.NOT.implicitDiffusion ) THEN
56 WRITE(msgBuf,'(A)')
57 & 'MY82 needs implicitDiffusion to be enabled'
58 CALL PRINT_ERROR( msgBuf , 1)
59 STOP 'ABNORMAL END: S/R MY82_CHECK'
60 ENDIF
61 IF (.NOT.implicitViscosity) THEN
62 WRITE(msgBuf,'(A)')
63 & 'MY82 needs implicitViscosity to be enabled'
64 CALL PRINT_ERROR( msgBuf , 1)
65 STOP 'ABNORMAL END: S/R MY82_CHECK'
66 ENDIF
67
68 #endif /* ALLOW_MY82 */
69
70 return
71 end

  ViewVC Help
Powered by ViewVC 1.1.22