/[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.13 - (hide 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 dimitri 1.13 C $Header: /u/gcmpack/MITgcm/model/src/packages_check.F,v 1.12 2002/11/12 20:45:41 heimbach 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 dimitri 1.13 #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 heimbach 1.12 #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 adcroft 1.6 #endif
90    
91     RETURN
92     END
  ViewVC Help
Powered by ViewVC 1.1.22