/[MITgcm]/MITgcm_contrib/bbl/code/bbl_diagnostics_init.F
ViewVC logotype

Annotation of /MITgcm_contrib/bbl/code/bbl_diagnostics_init.F

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

Revision 1.1 - (hide annotations) (download)
Thu Nov 18 04:00:04 2010 UTC (14 years, 7 months ago) by dimitri
Branch: MAIN 
This is a first sketch of a bottom boundary layer parameterization
for MITgcm.  The hooks to main model currently reside with pkg/mypackage
and it is temporarily checked in MITgcm_contrib until it clears the
App Store vetting process.  Instructions on running a simple test
integration in a periodic channel are in MITgcm_contrib/bbl/readme.txt
and some output can be viewed using lookat_output.m in same directory.
1 dimitri 1.1 C $Header: $
2     C $Name: $
3    
4     #include "BBL_OPTIONS.h"
5    
6     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7     CBOP 0
8     C !ROUTINE: BBL_DIAGNOSTICS_INIT
9    
10     C !INTERFACE:
11     SUBROUTINE BBL_DIAGNOSTICS_INIT( myThid )
12    
13     C !DESCRIPTION:
14     C Initialize list of all available diagnostics
15    
16     C !USES:
17     IMPLICIT NONE
18     #include "EEPARAMS.h"
19     #include "SIZE.h"
20     #include "BBL.h"
21    
22     C !INPUT/OUTPUT PARAMETERS:
23     C myThid :: my Thread Id number
24     INTEGER myThid
25     CEOP
26    
27     #ifdef ALLOW_DIAGNOSTICS
28     C !LOCAL VARIABLES:
29     C === Local variables ===
30     C diagNum :: diagnostics number in the (long) list of available diag.
31     C diagMate :: diag. mate number in the (long) list of available diag.
32     C diagName :: local short name (8c) of a diagnostics
33     C diagCode :: local parser field with characteristics of the diagnostics
34     C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
35     C diagUnits :: local string (16c): physical units of a diagnostic field
36     C diagTitle :: local string (80c): description of field in diagnostic
37     INTEGER diagNum
38     INTEGER diagMate
39     CHARACTER*8 diagName
40     CHARACTER*16 diagCode
41     CHARACTER*16 diagUnits
42     CHARACTER*(80) diagTitle
43    
44     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
45    
46     diagName = 'BBLtheta'
47     diagTitle = 'Bottom boundary layer theta'
48     diagUnits = 'degC '
49     diagCode = 'SM M1 '
50     CALL DIAGNOSTICS_ADDTOLIST( diagNum,
51     I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
52    
53     diagName = 'BBLsalt '
54     diagTitle = 'Bottom boundary layer salinity'
55     diagUnits = 'psu '
56     diagCode = 'SM M1 '
57     CALL DIAGNOSTICS_ADDTOLIST( diagNum,
58     I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
59    
60     diagName = 'BBLeta '
61     diagTitle = 'Bottom boundary layer thickness'
62     diagUnits = 'm '
63     diagCode = 'SM M1 '
64     CALL DIAGNOSTICS_ADDTOLIST( diagNum,
65     I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
66    
67     diagName = 'BBLtendT'
68     diagTitle = 'Bottom temperature tendency due to BBL'
69     diagUnits = 'degC/s '
70     diagCode = 'SM M1 '
71     CALL DIAGNOSTICS_ADDTOLIST( diagNum,
72     I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
73    
74     diagName = 'BBLtendS'
75     diagTitle = 'Bottom salt tendency due to BBL'
76     diagUnits = 'psu/s '
77     diagCode = 'SM M1 '
78     CALL DIAGNOSTICS_ADDTOLIST( diagNum,
79     I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
80    
81     #endif /* ALLOW_DIAGNOSTICS */
82    
83     RETURN
84     END
  ViewVC Help
Powered by ViewVC 1.1.22