/[MITgcm]/MITgcm/model/src/packages_check.F
ViewVC logotype

Annotation of /MITgcm/model/src/packages_check.F

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

Revision 1.11 - (hide annotations) (download)
Mon Mar 4 17:26:41 2002 UTC (22 years, 2 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint46l_post, checkpoint46g_pre, checkpoint46f_post, checkpoint44f_post, checkpoint46b_post, checkpoint46l_pre, checkpoint46d_pre, checkpoint45d_post, checkpoint46j_pre, checkpoint44h_pre, checkpoint46a_post, checkpoint46j_post, checkpoint46k_post, checkpoint45a_post, checkpoint44g_post, checkpoint46e_pre, checkpoint45b_post, checkpoint46b_pre, checkpoint46c_pre, checkpoint46, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint45c_post, checkpoint44h_post, checkpoint46g_post, checkpoint46i_post, checkpoint46c_post, checkpoint46e_post, checkpoint45, checkpoint46h_post, checkpoint46d_post
Changes since 1.10: +5 -1 lines 
Added PTRACERS package

This allows an arbitrary number of passive tracers to be integrated
forward simultaneously with the dynamicaly model.
 + Implemented so far:
    - basic forward algorithm (time-stepping, advection, diffusion, convection)
    - I/O and checkpointing
    - GM/Redi  *but*  using the GM/Redi coefficient of Salt
 + Not implemented so far:
    - KPP
    - OBCS
 + No specific example supplied (yet) but global_ocean.90x40x15 has the
   necessary data.ptracer file. Simply use -enable=ptracers and uncomment
   line in data.pkg. PTRACER01 then reproduces Salt exactly.
 + This package is disabled by default since it increases storage.
1 adcroft 1.11 C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.10 2002/01/31 14:52:28 jmc Exp $
2 adcroft 1.6 C $Name: $
3 adcroft 1.1
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.9 CBOP
7     C !ROUTINE: PACKAGES_CHECK
8     C !INTERFACE:
9 heimbach 1.2 SUBROUTINE PACKAGES_CHECK( myThid )
10 cnh 1.9 C !DESCRIPTION: \bv
11     C *==========================================================*
12     C | SUBROUTINE PACKAGES_CHECK
13     C | o Check runtime activated packages have been built in.
14     C *==========================================================*
15     C | All packages can be selected/deselected at build time
16     C | ( when code is compiled ) and activated/deactivated at
17     C | runtime. This routine does a quick check to trap packages
18     C | that were activated at runtime but that were not compiled
19     C | in at build time.
20     C *==========================================================*
21     C \ev
22    
23     C !USES:
24 adcroft 1.1 IMPLICIT NONE
25     C === Global variables ===
26     #include "SIZE.h"
27     #include "EEPARAMS.h"
28     #include "PARAMS.h"
29    
30 cnh 1.9 C !INPUT/OUTPUT PARAMETERS:
31 adcroft 1.1 C === Routine arguments ===
32 cnh 1.9 C myThid :: Number of this instances
33 adcroft 1.1 INTEGER myThid
34    
35 cnh 1.9 C !LOCAL VARIABLES:
36 adcroft 1.1 C === Local variables ===
37 cnh 1.9 C msgBuf :: Informational/error meesage buffer
38 adcroft 1.1 CHARACTER*(MAX_LEN_MBUF) msgBuf
39 cnh 1.9 CEOP
40 adcroft 1.1
41 heimbach 1.3 #ifdef ALLOW_KPP
42     IF (useKPP) CALL KPP_CHECK( myThid )
43 adcroft 1.1 #else
44 heimbach 1.5 IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
45 adcroft 1.1 #endif
46    
47 heimbach 1.3 #ifdef ALLOW_GMREDI
48     IF (useGMRedi) CALL GMREDI_CHECK( myThid )
49     #else
50 heimbach 1.5 IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
51 adcroft 1.1 #endif
52    
53 adcroft 1.6 #ifdef ALLOW_OBCS
54     IF (useOBCS) CALL OBCS_CHECK( myThid )
55     #else
56     IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
57 jmc 1.7 #endif
58    
59     #ifndef ALLOW_AIM
60     IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
61 adcroft 1.11 #endif
62    
63     #ifndef ALLOW_PTRACERS
64     IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
65 jmc 1.10 #endif
66    
67     #ifndef ALLOW_SHAP_FILT
68     IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
69     #endif
70    
71     #ifndef ALLOW_ZONAL_FILT
72     IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)
73 adcroft 1.8 #endif
74    
75     #ifndef ALLOW_FLT
76     IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
77 adcroft 1.6 #endif
78    
79     RETURN
80     END
  ViewVC Help
Powered by ViewVC 1.1.22