/[MITgcm]/MITgcm/pkg/exf/exf_clim_param.h
ViewVC logotype

Contents of /MITgcm/pkg/exf/exf_clim_param.h

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

Revision 1.6 - (show annotations) (download)
Mon Apr 19 22:30:46 2004 UTC (20 years, 1 month ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint53f_post, checkpoint54a_pre, checkpoint55c_post, checkpoint53b_pre, checkpoint57m_post, checkpoint58e_post, checkpoint57v_post, checkpoint52n_post, checkpoint57f_post, checkpoint57s_post, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint57b_post, checkpoint53c_post, checkpoint53d_post, checkpoint57f_pre, checkpoint55d_pre, checkpoint57g_post, checkpoint57a_post, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57h_pre, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint54a_post, checkpoint55h_post, checkpoint58n_post, checkpoint58x_post, checkpoint57g_pre, checkpoint54b_post, checkpoint58h_post, checkpoint57e_post, checkpoint58w_post, checkpoint54d_post, checkpoint56c_post, checkpoint54e_post, checkpoint58j_post, checkpoint55b_post, checkpoint57h_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint55a_post, checkpoint57c_pre, checkpoint53b_post, checkpoint57o_post, checkpoint55g_post, checkpoint57r_post, checkpoint57k_post, checkpoint57d_post, checkpoint55f_post, checkpoint57i_post, checkpoint58, checkpoint57a_pre, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint57h_done, checkpoint58f_post, checkpoint53g_post, checkpoint57n_post, checkpoint58d_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, checkpoint54f_post, eckpoint57e_pre, checkpoint58c_post, checkpoint58k_post, checkpoint57c_post, checkpoint58u_post, checkpoint58y_post, checkpoint58v_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint54c_post, checkpoint58p_post, checkpoint58t_post, checkpoint58q_post, checkpoint55i_post, checkpoint57l_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.5: +7 -1 lines
File MIME type: text/plain 
o small modifications in exf-package to increase flexibility:
  - change climtempfreeze from a constant to a runtime parameter that
    is specified in data.exf_clim (default = -1.9)
  - introduce runtime parameter windstressmax (default = 2.0) that is
    specified in data.exf
1 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_clim_param.h,v 1.5 2003/10/20 06:25:16 dimitri Exp $
2 c
3 c
4 c ==================================================================
5 c HEADER exf_clim_param
6 c ==================================================================
7 c
8 c o Header for the climatology part of the external forcing package.
9 c
10 c started: Ralf Giering 15-Jan-2001
11 c
12 c menemenlis@jpl.nasa.gov 8-Oct-2003
13 c speed-up computations for long integration interval
14 c
15 c ==================================================================
16 c HEADER exf_clim_param
17 c ==================================================================
18
19 c Calendar data.
20 integer climtempstartdate1
21 integer climtempstartdate2
22 _RL climtempstartdate
23 _RL climtempperiod
24 character*1 climtempmask
25 parameter( climtempmask = 's' )
26
27 integer climsaltstartdate1
28 integer climsaltstartdate2
29 _RL climsaltstartdate
30 _RL climsaltperiod
31 character*1 climsaltmask
32 parameter( climsaltmask = 's' )
33
34 integer climsststartdate1
35 integer climsststartdate2
36 _RL climsststartdate
37 _RL climsstperiod
38 character*1 climsstmask
39 parameter( climsstmask = 's' )
40
41 integer climsssstartdate1
42 integer climsssstartdate2
43 _RL climsssstartdate
44 _RL climsssperiod
45 character*1 climsssmask
46 parameter( climsssmask = 's' )
47
48 _RL climsstconst
49 _RL climsssconst
50
51 c freezing temperature is the minimum temperature allowed, used
52 c to reset climatological temperatures fields where they have
53 c values below climtempfreeze
54 _RL climtempfreeze
55
56 common /exf_clim_i/
57 & climtempstartdate1, climtempstartdate2,
58 & climsaltstartdate1, climsaltstartdate2,
59 & climsststartdate1, climsststartdate2,
60 & climsssstartdate1, climsssstartdate2
61
62 common /exf_clim_c/
63 & climtempfile,
64 & climsaltfile,
65 & climsstfile,
66 & climsssfile
67
68 common /exf_clim_r/
69 & climtempfreeze,
70 & climtempperiod, climtempstartdate,
71 & climsaltperiod, climsaltstartdate,
72 & climsstperiod, climsststartdate,
73 & climsssperiod, climsssstartdate,
74 & climsstconst, climsssconst
75
76 c File names.
77 character*(128) climtempfile
78 character*(128) climsaltfile
79 character*(128) climsstfile
80 character*(128) climsssfile
81
82 c file precision and field type
83
84 common /exf_clim_prec/ exf_clim_iprec
85 & , exf_clim_yftype
86
87 integer exf_clim_iprec
88 character*(2) exf_clim_yftype
89
90 #ifdef USE_EXF_INTERPOLATION
91 c for lat interpolation, arraysize currently set to 200 max data values
92 _RL climsst_lon0, climsst_lon_inc
93 _RL climsst_lat0, climsst_lat_inc(MAX_LAT_INC)
94 INTEGER climsst_nlon, climsst_nlat
95 _RL climsss_lon0, climsss_lon_inc
96 _RL climsss_lat0, climsss_lat_inc(MAX_LAT_INC)
97 INTEGER climsss_nlon, climsss_nlat
98 common /exf_clim_interpolation/
99 & climsst_lon0, climsst_lon_inc,
100 & climsst_lat0, climsst_lat_inc,
101 & climsst_nlon, climsst_nlat,
102 & climsss_lon0, climsss_lon_inc,
103 & climsss_lat0, climsss_lat_inc,
104 & climsss_nlon, climsss_nlat
105 #endif
  ViewVC Help
Powered by ViewVC 1.1.22