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

Contents of /MITgcm/pkg/seaice/SEAICE_DIAGS.h

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


Revision 1.2 - (show annotations) (download)
Tue Nov 12 20:47:27 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint47j_post, checkpoint48d_pre, branch-exfmods-tag, checkpoint47, checkpoint47f_post, checkpoint48d_post, checkpoint47c_post, checkpoint47d_post, checkpoint47a_post, checkpoint48a_post, checkpoint46n_post, checkpoint48e_post, checkpoint47e_post, checkpoint47h_post, checkpoint48c_post, checkpoint47i_post, checkpoint48, checkpoint47b_post, checkpoint47g_post, checkpoint48b_post, checkpoint47d_pre, checkpoint48c_pre
Branch point for: c24_e25_ice, ecco-branch, branch-exfmods-curt
Changes since 1.1: +32 -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 C $Header:
2
3 #ifdef ALLOW_SEAICE
4
5 C /==========================================================\
6 C | SEAICE_DIAGS.h |
7 C | o Header for SEAICE diagnostic output |
8 C \==========================================================/
9
10 #ifdef ALLOW_TIMEAVE
11
12 C Keep track of time
13 _RL SEAICE_TimeAve(Nr,nSx,nSy)
14 COMMON /SEAICE_TAVE/ SEAICE_TimeAve
15
16 C Storage arrays for time-averages
17 _RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
18 _RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
19 _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
20 _RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
21 _RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
22 _RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
23 _RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
24 _RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
25 _RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
26 COMMON /SEAICE_TAVE_DIAGS/
27 & FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
28 & UICEtave, VICEtave, HEFFtave, AREAtave
29
30 #endif /* ALLOW_TIMEAVE */
31
32 #endif ALLOW_SEAICE

  ViewVC Help
Powered by ViewVC 1.1.22