/[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.3 - (show 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 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.2 2011/06/07 03:58:23 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 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 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 #ifdef ALLOW_SITRACER
33 COMMON /SEAICE_TRACER_R/
34 & SItracer, SItrBucket, SItrHEFF, SItrAREA
35 _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 _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
39 #endif
40
41 #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 #endif
45
46 #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)
47 C IceAgeTrFile - File containing initial sea ice age
48 C SItrName - tracer name ('salinity', 'age', 'one', etc.)
49 C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.)
50 CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
51 CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
52 CHARACTER*(MAX_LEN_FNAM) SItrMate(SItrMaxNum)
53 COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate
54 #endif
55
56 CEH3 ;;; Local Variables: ***
57 CEH3 ;;; mode:fortran ***
58 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22