/[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.3 - (hide annotations) (download)
Thu Jun 9 19:37:01 2011 UTC (14 years, 1 month ago) by gforget
Branch: MAIN
Changes since 1.2: +7 -3 lines
File MIME type: text/plain 
- seaice_tracer_phys.F and seaice_advdiff.F
  do ice cover tracers, in addition to ice volume tracers.
- seaice_readparms.F
  add SItrMate ('HEFF' or 'AREA') in PARAMS03 to switch
    from ice volume tracer (defualt) to ice cover tracer
- seaice_growth.F
  use areaMax in AREA update (part 4), consistent with ridging step (part 2.5).
  store AREA in SItrAREA at the ridging and update steps (for use with SItracer).
1 gforget 1.3 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.2 2011/06/07 03:58:23 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.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 gforget 1.3 C SItrAREA - history of AREA evolution during seaice_growth
17 gforget 1.2 C
18 heimbach 1.1 C IceAgeTr(1) - effective sea ice age
19     C at center of grid, i.e., tracer point
20     C ==> for non-zero AREA, units of ICEAGEAREA are seconds
21     C and actual ice age is ICEAGEAREA / AREA seconds
22     C IceAgeTr(2) - effective sea ice age
23     C at center of grid, i.e., tracer point
24     C ==> for non-zero HEFF,
25     C units of ICEAGEVOL are seconds * meters
26     C and actual ice age is ICEAGEVOL / HEFF seconds
27     C IceAgeTr(3), IceAgeTr(4) - effective sea ice age
28     C t.b.d. (poor-man's multi-category)
29     C \ev
30     CEOP
31    
32 gforget 1.2 #ifdef ALLOW_SITRACER
33     COMMON /SEAICE_TRACER_R/
34 gforget 1.3 & SItracer, SItrBucket, SItrHEFF, SItrAREA
35 gforget 1.2 _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
36     _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
37     _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
38 gforget 1.3 _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
39 gforget 1.2 #endif
40    
41 heimbach 1.1 #ifdef SEAICE_AGE
42     COMMON/SEAICE_AGE_R/IceAgeTr
43     _RL IceAgeTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)
44 gforget 1.2 #endif
45    
46     #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)
47 heimbach 1.1 C IceAgeTrFile - File containing initial sea ice age
48 gforget 1.2 C SItrName - tracer name ('salinity', 'age', 'one', etc.)
49 gforget 1.3 C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.)
50 heimbach 1.1 CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
51 gforget 1.2 CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
52 gforget 1.3 CHARACTER*(MAX_LEN_FNAM) SItrMate(SItrMaxNum)
53     COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate
54 heimbach 1.1 #endif
55    
56     CEH3 ;;; Local Variables: ***
57     CEH3 ;;; mode:fortran ***
58     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22