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

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

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

Revision 1.11 - (show 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 C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_check.F,v 1.10 2002/01/31 14:52:28 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: PACKAGES_CHECK
8 C !INTERFACE:
9 SUBROUTINE PACKAGES_CHECK( myThid )
10 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 IMPLICIT NONE
25 C === Global variables ===
26 #include "SIZE.h"
27 #include "EEPARAMS.h"
28 #include "PARAMS.h"
29
30 C !INPUT/OUTPUT PARAMETERS:
31 C === Routine arguments ===
32 C myThid :: Number of this instances
33 INTEGER myThid
34
35 C !LOCAL VARIABLES:
36 C === Local variables ===
37 C msgBuf :: Informational/error meesage buffer
38 CHARACTER*(MAX_LEN_MBUF) msgBuf
39 CEOP
40
41 #ifdef ALLOW_KPP
42 IF (useKPP) CALL KPP_CHECK( myThid )
43 #else
44 IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
45 #endif
46
47 #ifdef ALLOW_GMREDI
48 IF (useGMRedi) CALL GMREDI_CHECK( myThid )
49 #else
50 IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
51 #endif
52
53 #ifdef ALLOW_OBCS
54 IF (useOBCS) CALL OBCS_CHECK( myThid )
55 #else
56 IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
57 #endif
58
59 #ifndef ALLOW_AIM
60 IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
61 #endif
62
63 #ifndef ALLOW_PTRACERS
64 IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
65 #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 #endif
74
75 #ifndef ALLOW_FLT
76 IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
77 #endif
78
79 RETURN
80 END
  ViewVC Help
Powered by ViewVC 1.1.22