/[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.6 - (show annotations) (download)
Fri Feb 3 13:34:31 2012 UTC (13 years, 5 months ago) by gforget
Branch: MAIN
Changes since 1.5: +4 -22 lines
File MIME type: text/plain 
- removal of the old way of seaice age tracer, which is now replaced by particular cases of SITRACER.
- retired params : SEAICEadvAge, SEAICEadvSchAge, SEAICEdiffKhAge, IceAgeTrFile.
- added to SITRACER : IceAgeTrFile, check pickups, monitor, output.
1 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.5 2011/06/24 01:30:25 jmc 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 SItracer - generic ice tracer array
14 C SItrBucket - collected SItracer to be later passed to the ocean
15 C SItrHEFF - history of HEFF evolution during seaice_growth
16 C SItrAREA - history of AREA evolution during seaice_growth
17 C
18 C \ev
19 CEOP
20
21 #ifdef ALLOW_SITRACER
22 COMMON /SEAICE_TRACER_R/
23 & SItracer, SItrBucket, SItrHEFF, SItrAREA
24 _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
25 _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
26 _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
27 _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
28
29 C SItrFile - File containing initial sea ice tracer
30 C SItrName - tracer name ('salinity', 'age', 'one', etc.)
31 C SItrNameLong - tracer long name
32 C SItrUnit - tracer unit ('psu','s','kg/kg', etc.)
33 C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.)
34 CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
35 CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
36 CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
37 CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
38 CHARACTER*(4) SItrMate(SItrMaxNum)
39 COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
40 & SItrNameLong, SItrUnit
41 #endif
42
43 CEH3 ;;; Local Variables: ***
44 CEH3 ;;; mode:fortran ***
45 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22