/[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.13 - (show annotations) (download)
Tue Feb 18 05:33:54 2003 UTC (21 years, 3 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint50c_post, checkpoint50c_pre, checkpoint48i_post, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint48f_post, checkpoint48h_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint50g_post, checkpoint50e_pre, checkpoint50e_post, checkpoint50d_pre, checkpoint49, checkpoint48g_post, checkpoint50b_post
Changes since 1.12: +7 -1 lines 
Merging from release1_p12:
o Modifications for using pkg/exf with pkg/seaice
  - improved description of the various forcing configurations
  - added basic radiation bulk formulae to pkg/exf
  - units/sign fix for evap computation in exf_getffields.F
  - updated verification/global_with_exf/results/output.txt
o Added pkg/sbo for computing IERS Special Bureau for the Oceans
  (SBO) core products, including oceanic mass, center-of-mass,
  angular, and bottom pressure (see pkg/sbo/README.sbo).
o Lower bound for viscosity/diffusivity in pkg/kpp/kpp_routines.F
  to avoid negative values in shallow regions.
  - updated verification/natl_box/results/output.txt
  - updated verification/lab_sea/results/output.txt
o MPI gather, scatter: eesupp/src/gather_2d.F and scatter_2d.F
o Added useSingleCpuIO option (see PARAMS.h).
o Updated useSingleCpuIO option in mdsio_writefield.F to
  work with multi-field files, e.g., for single-file pickup.
o pkg/seaice:
  - bug fix in growth.F: QNET for no shortwave case
  - added HeffFile for specifying initial sea-ice thickness
  - changed SEAICE_EXTERNAL_FLUXES wind stress implementation
o Added missing /* */ to CPP comments in pkg/seaice, pkg/exf,
  kpp_transport_t.F, forward_step.F, and the_main_loop.F
o pkg/seaice:
  - adjoint-friendly modifications
  - added a SEAICE_WRITE_PICKUP at end of the_model_main.F
1 C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.12 2002/11/12 20:45:41 heimbach 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 #ifdef ALLOW_SBO
80 IF (useSBO) CALL SBO_CHECK( myThid )
81 #else
82 IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
83 #endif
84
85 #ifdef ALLOW_SEAICE
86 IF (useSEAICE) CALL SEAICE_CHECK( myThid )
87 #else
88 IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
89 #endif
90
91 RETURN
92 END
  ViewVC Help
Powered by ViewVC 1.1.22