/[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.2 - (hide annotations) (download)
Tue Jun 7 03:58:23 2011 UTC (14 years, 4 months ago) by gforget
Branch: MAIN
Changes since 1.1: +19 -3 lines
File MIME type: text/plain 
- introducing ALLOW_SITRACER and seaice_tracer_phys.F to handle generic seaice tracer.
  For now it covers, and was tested for, salinity and age (work in progress).
- introducing siEps (1e-5, parameter, defined in SEAICE_PARAMS.h).
1 gforget 1.2 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.1 2011/03/05 18:06:49 heimbach 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.2 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
17 heimbach 1.1 C IceAgeTr(1) - effective sea ice age
18     C at center of grid, i.e., tracer point
19     C ==> for non-zero AREA, units of ICEAGEAREA are seconds
20     C and actual ice age is ICEAGEAREA / AREA seconds
21     C IceAgeTr(2) - effective sea ice age
22     C at center of grid, i.e., tracer point
23     C ==> for non-zero HEFF,
24     C units of ICEAGEVOL are seconds * meters
25     C and actual ice age is ICEAGEVOL / HEFF seconds
26     C IceAgeTr(3), IceAgeTr(4) - effective sea ice age
27     C t.b.d. (poor-man's multi-category)
28     C \ev
29     CEOP
30    
31 gforget 1.2 #ifdef ALLOW_SITRACER
32     COMMON /SEAICE_TRACER_R/
33     & SItracer, SItrBucket, SItrHEFF
34     _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
35     _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
36     _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
37     #endif
38    
39 heimbach 1.1 #ifdef SEAICE_AGE
40     COMMON/SEAICE_AGE_R/IceAgeTr
41     _RL IceAgeTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)
42 gforget 1.2 #endif
43    
44     #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)
45 heimbach 1.1 C IceAgeTrFile - File containing initial sea ice age
46 gforget 1.2 C SItrName - tracer name ('salinity', 'age', 'one', etc.)
47 heimbach 1.1 CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
48 gforget 1.2 CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
49     COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName
50 heimbach 1.1 #endif
51    
52     CEH3 ;;; Local Variables: ***
53     CEH3 ;;; mode:fortran ***
54     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22