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

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

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

Revision 1.7 - (hide 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 gforget 1.7 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.6 2012/02/03 13:34:31 gforget Exp $
2 heimbach 1.1 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 gforget 1.7 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 gforget 1.2 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 gforget 1.3 C SItrAREA - history of AREA evolution during seaice_growth
26 gforget 1.2 _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 gforget 1.3 _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
30 gforget 1.7 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 gforget 1.2
45 gforget 1.6 C SItrFile - File containing initial sea ice tracer
46 gforget 1.2 C SItrName - tracer name ('salinity', 'age', 'one', etc.)
47 gforget 1.4 C SItrNameLong - tracer long name
48     C SItrUnit - tracer unit ('psu','s','kg/kg', etc.)
49 gforget 1.3 C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.)
50 gforget 1.6 CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
51 gforget 1.2 CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
52 gforget 1.4 CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
53     CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
54     CHARACTER*(4) SItrMate(SItrMaxNum)
55 gforget 1.6 COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
56 gforget 1.4 & SItrNameLong, SItrUnit
57 heimbach 1.1 #endif
58    
59     CEH3 ;;; Local Variables: ***
60     CEH3 ;;; mode:fortran ***
61     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22