/[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.3 - (show annotations) (download)
Fri Jun 24 04:36:54 2005 UTC (18 years, 10 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, mitgcm_mapl_00, checkpoint58u_post, checkpoint58w_post, checkpoint57m_post, checkpoint57s_post, checkpoint57k_post, checkpoint60, checkpoint61, checkpoint62, checkpoint58r_post, checkpoint57y_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint57v_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint57j_post, checkpoint61z, checkpoint61x, checkpoint61y, checkpoint58b_post, checkpoint58m_post, checkpoint57l_post
Changes since 1.2: +5 -1 lines
File MIME type: text/plain 
 o mnc-ify the thsice package as requested by Daniel Enderton
   - the monitor--MNC output needs work
   - many attributes need to be added (most are currently blank)
   - does not break testreport (at least on IA32)
1 C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_TAVE.h,v 1.2 2004/07/22 23:02:37 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/s]
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 */
68
69 CEH3 ;;; Local Variables: ***
70 CEH3 ;;; mode:fortran ***
71 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22