/[MITgcm]/MITgcm/pkg/seaice/SEAICE_TRACER.h
ViewVC logotype

Contents of /MITgcm/pkg/seaice/SEAICE_TRACER.h

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

Revision 1.7 - (show annotations) (download)
Thu Feb 16 01:22:02 2012 UTC (13 years, 4 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63j, checkpoint63k, checkpoint64, checkpoint65, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, HEAD
Changes since 1.6: +24 -8 lines
File MIME type: text/plain 
- SItracer : added run time params, and allow coupling to ocn salinity.

new run time params in SEAICE_TRACER.h
--------------------------------------
        SItrNumInUse - Number of tracers that are in use (must be less that SItrMaxNum)
        SItrFromOcean0    - for new ice from ocean freeze - constant tracer value
        SItrFromOceanFrac - for new ice from ocean freeze - fraction of ocean tracer
        SItrFromFlood0    - for new ice from snow flood   - constant tracer value
        SItrFromFloodFrac - for new ice from snow flood   - fraction of ocean tracer
        SItrExpand0       - for ice cover thermo. exans.  - constant tracer value
new run time params in SEAICE_PARAMS.h
--------------------------------------
        SEAICE_salinityTracer    :: use SItracer to exchange and trace ocean salt in ice
        SEAICE_age Tracer        :: use SItracer to trace the age of ice

simple propagation of SItrNumInUse in
-------------------------------------
seaice_diagnostics_init.F seaice_diagnostics_state.F
seaice_model.F seaice_advdiff.F
seaice_monitor.F seaice_output.F
1 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.6 2012/02/03 13:34:31 gforget Exp $
2 C $Name: $
3
4 CBOP
5 C !ROUTINE: SEAICE_TRACER.h
6
7 C !DESCRIPTION: \bv
8 C /==========================================================\
9 C | SEAICE_TRACER.h |
10 C | o Begin header for sea ice tracers |
11 C \==========================================================/
12 C
13 C \ev
14 CEOP
15
16 #ifdef ALLOW_SITRACER
17
18 C SItrNumInUse - Number of tracers that are in use (must be less that SItrMaxNum)
19 INTEGER SItrNumInUse
20 COMMON /SEAICE_TRACER_I/ SItrNumInUse
21
22 C SItracer - generic ice tracer array
23 C SItrBucket - collected SItracer to be later passed to the ocean
24 C SItrHEFF - history of HEFF evolution during seaice_growth
25 C SItrAREA - history of AREA evolution during seaice_growth
26 _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
27 _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
28 _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
29 _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
30 COMMON /SEAICE_TRACER_R/
31 & SItracer, SItrBucket, SItrHEFF, SItrAREA
32
33 C SItrFromOcean0 - for new ice from ocean freeze - constant tracer value
34 C SItrFromOceanFrac - for new ice from ocean freeze - fraction of ocean tracer
35 C SItrFromFlood0 - for new ice from snow flood - constant tracer value
36 C SItrFromFloodFrac - for new ice from snow flood - fraction of ocean tracer
37 C SItrExpand0 - for ice cover thermo. exans. - constant tracer value
38 _RL SItrFromOcean0(SItrMaxNum), SItrFromOceanFrac(SItrMaxNum),
39 & SItrFromFlood0(SItrMaxNum), SItrFromFloodFrac(SItrMaxNum),
40 & SItrExpand0(SItrMaxNum)
41 COMMON /SEAICE_TRACER_CONST_R/
42 & SItrFromOcean0, SItrFromOceanFrac, SItrFromFlood0,
43 & SItrFromFloodFrac, SItrExpand0
44
45 C SItrFile - File containing initial sea ice tracer
46 C SItrName - tracer name ('salinity', 'age', 'one', etc.)
47 C SItrNameLong - tracer long name
48 C SItrUnit - tracer unit ('psu','s','kg/kg', etc.)
49 C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.)
50 CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
51 CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
52 CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
53 CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
54 CHARACTER*(4) SItrMate(SItrMaxNum)
55 COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
56 & SItrNameLong, SItrUnit
57 #endif
58
59 CEH3 ;;; Local Variables: ***
60 CEH3 ;;; mode:fortran ***
61 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22