/[MITgcm]/MITgcm/pkg/thsice/THSICE_TAVE.h
ViewVC logotype

Contents of /MITgcm/pkg/thsice/THSICE_TAVE.h

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

Revision 1.1 - (show annotations) (download)
Wed Apr 7 23:40:34 2004 UTC (20 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint52n_post, checkpoint53d_post, checkpoint54a_pre, checkpoint54a_post, checkpoint53c_post, checkpoint53b_post, checkpoint54b_post, checkpoint53b_pre, checkpoint52m_post, checkpoint53a_post, checkpoint54, checkpoint53, checkpoint53g_post, checkpoint53f_post, checkpoint53d_pre, checkpoint54c_post
File MIME type: text/plain 
major changes in pkg/thsice: allows atmospheric model (AIM) to use thsice.
- split thsice_therm.F in 2 S/R: thsice_solve4temp.F & thsice_calc_thickn.F
- move most of the ocean & bulk_force interface in thsice_main.F
- add a "slab ocean" component to be used with atmospheric model
1 C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_DIAGS.h,v 1.2 2003/12/31 17:44:32 jmc Exp $
2 C $Name: $
3
4 CBOP
5 C !ROUTINE: THSICE_TAVE.h
6 C !INTERFACE:
7 C include "THSICE_TAVE.h"
8 C !DESCRIPTION:
9 C \bv
10 C *==========================================================*
11 C | THSICE_TAVE.h
12 C | o Header for Therm-SeaICE time-average diagnostic
13 C *==========================================================*
14 C \ev
15 CEOP
16
17
18 #ifdef ALLOW_THSICE
19
20 #ifdef ALLOW_TIMEAVE
21
22 C-- COMMON /THSICE_TAVE_ARRAYS/ Cumulative Arrays for Time-Average Diag.
23 C ice_timeAve :: cumulated time [s]
24 C ice_fract_Ave :: cumulated Ice fraction [0-1]
25 C ice_iceH_Ave :: cumulated Ice thickness [m]
26 C ice_snowH_Ave :: cumulated Snow thickness [m]
27 C ice_Tsrf_Ave :: cumulated surface Temperature [oC]
28 C ice_Tice1_Ave :: cumulated 1srt level Temp. [oC]
29 C ice_Tice2_Ave :: cumulated 2nd level Temp. [oC]
30 C ice_snowPr_Ave :: cumulated snow precipitation (+=down) [kg/m2]
31 C ice_flx2oc_Ave :: cumulated heat flux out of the ocean (+=up) [W/m2]
32 C ice_frw2oc_Ave :: cumulated fresh-water flux out off the ocean (E-P) [m/s]
33 C ice_salFx_Ave :: cumulated salt flux out of the ocean (+=up) [psu.kg/m2]
34 C ice_flxAtm_Ave :: cumulated net heat flux from Atmosphere (+=down) [W/m2]
35 C ice_frwAtm_Ave :: cumulated fresh-water flux from Atmos. (+=up) [kg/m2/s]
36 C ice_albedo_Ave :: cumulated sea-ice albedo [0-1]
37 C ICE_tMxL_Ave :: cumulated ocean mixed-layer Temp. [oC]
38 C ICE_sMxL_Ave :: cumulated ocean mixed-layer salinity [psu]
39
40 _RL ice_timeAve(Nr, nSx,nSy)
41 _RL ice_fract_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42 _RL ice_iceH_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43 _RL ice_snowH_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
44 _RL ice_Tsrf_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
45 _RL ice_Tice1_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46 _RL ice_Tice2_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47 _RL ice_snowPr_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48 _RL ice_flx2oc_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49 _RL ice_frw2oc_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
50 _RL ice_salFx_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
51 _RL ice_flxAtm_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52 _RL ice_frwAtm_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53 _RL ice_albedo_Ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54 _RL ICE_tMxL_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55 _RL ICE_sMxL_Ave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56
57 COMMON /THSICE_TAVE_ARRAYS/ ice_timeAve,
58 & ice_fract_Ave, ice_iceH_Ave,
59 & ice_snowH_Ave, ice_Tsrf_Ave,
60 & ice_Tice1_Ave, ice_Tice2_Ave, ice_snowPr_Ave,
61 & ice_flx2oc_Ave,ice_frw2oc_Ave,ice_salFx_Ave,
62 & ice_flxAtm_Ave,ice_frwAtm_Ave,ice_albedo_Ave,
63 & ICE_tMxL_Ave, ICE_sMxL_Ave
64
65 #endif /* ALLOW_TIMEAVE */
66
67 #endif /* ALLOW_THSICE */
  ViewVC Help
Powered by ViewVC 1.1.22