/[MITgcm]/MITgcm/pkg/pp81/pp81_diagnostics_init.F
ViewVC logotype

Contents of /MITgcm/pkg/pp81/pp81_diagnostics_init.F

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

Revision 1.1 - (show annotations) (download)
Wed Oct 26 09:29:36 2011 UTC (12 years, 6 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint63e, checkpoint64o, checkpoint64a, checkpoint63r, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64b, checkpoint63h, checkpoint63m, checkpoint64e, checkpoint63i, checkpoint63q, checkpoint64d, checkpoint64c, checkpoint63f, checkpoint64g, checkpoint64f, checkpoint63j, checkpoint63l, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint63n, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint63k, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint63o, checkpoint63p, checkpoint64h, checkpoint63s, checkpoint64k, checkpoint64, checkpoint65, checkpoint64j, checkpoint64m, checkpoint63g, checkpoint64l, HEAD 
add diagnostics for vertical eddy viscosity and diffusivity
(requires new subroutines pp81_init_fixed.F/pp81_diagnostics_init.F)
1 C $Header: $
2 C $Name: $
3
4 #include "PP81_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: PP81_DIAGNOSTICS_INIT
8 C !INTERFACE:
9 SUBROUTINE PP81_DIAGNOSTICS_INIT( myThid )
10
11 C !DESCRIPTION: \bv
12 C *==========================================================*
13 C | SUBROUTINE PP81_DIAGNOSTICS_INIT
14 C | o Routine to initialize list of all available diagnostics
15 C | for PP81 package
16 C *==========================================================*
17 C \ev
18 C !USES:
19 IMPLICIT NONE
20
21 C === Global variables ===
22
23 C !INPUT/OUTPUT PARAMETERS:
24 C === Routine arguments ===
25 C myThid :: my Thread Id number
26 INTEGER myThid
27 CEOP
28
29 #ifdef ALLOW_DIAGNOSTICS
30 C !LOCAL VARIABLES :
31 C === Local variables ===
32 C diagNum :: diagnostics number in the (long) list of available diag.
33 C diagName :: local short name (8c) of a diagnostics
34 C diagCode :: local parser field with characteristics of the diagnostics
35 C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
36 C diagUnits :: local string (16c): physical units of a diagnostic field
37 C diagTitle :: local string (80c): description of field in diagnostic
38 INTEGER diagNum
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 = 'PPviscAr'
47 diagTitle = 'PP81 vertical eddy viscosity coefficient'
48 diagUnits = 'm^2/s '
49 diagCode = 'SM P LR '
50 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
51 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
52
53 diagName = 'PPdiffKr'
54 diagTitle = 'PP81 Vertical diffusion coefficient for tracers'
55 diagUnits = 'm^2/s '
56 diagCode = 'SM P LR '
57 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
58 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
59
60 #endif /* ALLOW_DIAGNOSTICS */
61
62 RETURN
63 END
  ViewVC Help
Powered by ViewVC 1.1.22