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

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

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

Revision 1.2 - (hide annotations) (download)
Tue Nov 12 20:47:27 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint47c_post, checkpoint47d_pre, checkpoint47a_post, checkpoint47d_post, branch-exfmods-tag, checkpoint47b_post, checkpoint47
Branch point for: branch-exfmods-curt
Changes since 1.1: +75 -0 lines
File MIME type: text/plain 
Merging from release1_p8 branch:
o New package: pkg/seaice
  Sea ice model by D. Menemenlis (JPL) and Jinlun Zhang (Seattle).
  The sea-ice code is based on Hibler (1979-1980).
  Two sea-ice dynamic solvers, ADI and LSR, are included.
  In addition to computing prognostic sea-ice variables and diagnosing
  the forcing/external data fields that drive the ocean model,
  SEAICE_MODEL also sets theta to the freezing point under sea-ice.
  The implied surface heat flux is then stored in variable
  surfaceTendencyTice, which is needed by KPP package (kpp_calc.F and
  kpp_transport_t.F) to diagnose surface buoyancy fluxes and for the
  non-local transport term.  Because this call precedes model
  thermodynamics, temperature under sea-ice may not be "exactly" at
  the freezing point by the time theta is dumped or time-averaged.
1 heimbach 1.2 C $Header:
2    
3     #ifdef ALLOW_SEAICE
4    
5     C /==========================================================\
6     C | SEAICE.h |
7     C | o Basic header for sea ice model. |
8     C | Contains most sea ice field declarations. |
9     C \==========================================================/
10     C
11     C UICE - zonal ice velocity (m/s)
12     C VICE - meridional ice velocity (m/s)
13     C note: UICE and VICE are on B-grid;
14     C they are defined on the upper,
15     C right-hand corner of each grid cell
16     C AREA - fractional ice-covered area
17     C HEFF - effective ice thickness (m)
18     C note: for non-zero AREA, actual ice
19     C thickness is HEFF / AREA
20     C
21     COMMON/SEAICE_DYNVARS/UICE,VICE,AREA
22     COMMON/SEAICE_DYNVARS1/
23     & ETA,ZETA,DRAGS,DRAGA,AMASS,FORCEX,FORCEY,UICEC,VICEC
24     _RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
25     _RL VICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
26     _RL AREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
27     _RL ETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
28     _RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
29     _RL DRAGS (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
30     _RL DRAGA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
31     _RL AMASS (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
32     _RL FORCEX (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
33     _RL FORCEY (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
34     _RL UICEC (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
35     _RL VICEC (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
36    
37     COMMON/TRANS/HEFF,HSNOW
38     COMMON/ARRAY/HEFFM,UVM
39     COMMON/OFL/YNEG
40     COMMON/RIV/RIVER
41     COMMON/SALT_WATER/SEAICE_SALT,WATR
42     _RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
43     _RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
44     _RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
45     _RL UVM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
46     _RL YNEG (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
47     _RL RIVER (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
48     _RL SEAICE_SALT(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
49     _RL WATR (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
50    
51     COMMON/MIX/TMIX,TICE
52     COMMON/GWATXY/GWATX,GWATY
53     COMMON/WIND/WINDX,WINDY
54     COMMON/RATE/FHEFF,FICE,FO,HCORR
55     COMMON/QFLUX/QNETO,QNETI,QSWO,QSWI
56     _RL TMIX (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
57     _RL TICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
58     _RL GWATX (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
59     _RL GWATY (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
60     _RL WINDX (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
61     _RL WINDY (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
62     _RL FHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
63     _RL FICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
64     _RL FO (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
65     _RL HCORR (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
66     _RL QNETO (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
67     _RL QNETI (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
68     _RL QSWO (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
69     _RL QSWI (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
70    
71     COMMON/COUNT/ICOUNT
72     COMMON/DAY/IDELT
73     INTEGER ICOUNT, IDELT
74    
75     #endif ALLOW_SEAICE
  ViewVC Help
Powered by ViewVC 1.1.22