00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 module ice_constants
00021
00022
00023
00024 use shr_const_mod
00025 use ice_kinds_mod
00026
00027
00028
00029 implicit none
00030 save
00031
00032
00033
00034
00035
00036 real (kind=dbl_kind), parameter ::
00037 pi = SHR_CONST_PI ,
00038 gravit = SHR_CONST_G ,
00039 secday = SHR_CONST_CDAY ,
00040 omega = SHR_CONST_OMEGA ,
00041 radius = SHR_CONST_REARTH,
00042 rhos = 330.0_dbl_kind ,
00043 rhoi = SHR_CONST_RHOICE,
00044 rhow = SHR_CONST_RHOSW ,
00045 rhofresh = SHR_CONST_RHOFW ,
00046 zvir = SHR_CONST_ZVIR ,
00047 vonkar = SHR_CONST_KARMAN,
00048 cp_air = SHR_CONST_CPDAIR,
00049 cp_wv = SHR_CONST_CPWV ,
00050
00051 emissivity = 0.95_dbl_kind ,&
00052 stefan_boltzmann = SHR_CONST_STEBOL,&
00053 Tffresh = SHR_CONST_TKFRZ ,&
00054 cp_ice = SHR_CONST_CPICE ,&
00055 cp_ocn = SHR_CONST_CPSW ,&
00056 depressT = 0.054_dbl_kind ,&
00057 Lsub = SHR_CONST_LATSUB,&
00058 Lvap = SHR_CONST_LATVAP,&
00059 Lfresh = SHR_CONST_LATICE,&
00060 Timelt = SHR_CONST_TKFRZ-SHR_CONST_TKFRZ,&
00061 Tsmelt = SHR_CONST_TKFRZ-SHR_CONST_TKFRZ,&
00062 ice_ref_salinity = SHR_CONST_ICE_REF_SAL ,&
00063
00064 albocn = 0.06_dbl_kind ,&
00065 dragio = 0.00536_dbl_kind ,&
00066
00067 spval_dbl = SHR_CONST_SPVAL ,&
00068 snowpatch = 0.005_dbl_kind
00069
00070 real (kind=real_kind), parameter ::
00071 spval = 1.0e30_real_kind
00072
00073 real (kind=dbl_kind), parameter ::
00074 iceruf = 0.0005_dbl_kind ,
00075
00076
00077 kappav = 1.4_dbl_kind ,&
00078 kappan = 17.6_dbl_kind,&
00079
00080 kice = 2.03_dbl_kind ,&
00081 kseaice= 2.00_dbl_kind ,&
00082
00083 ksno = 0.30_dbl_kind ,&
00084 zref = 10._dbl_kind ,&
00085 Tocnfrz= -34.0_dbl_kind*depressT
00086
00087
00088
00089
00090
00091
00092 real (kind=dbl_kind), parameter ::
00093 awtvdr = 0.00318_dbl_kind,
00094 awtidr = 0.00182_dbl_kind,
00095 awtvdf = 0.63282_dbl_kind,
00096 awtidf = 0.36218_dbl_kind
00097
00098 real (kind=dbl_kind), parameter ::
00099 hs0 = 0.03_dbl_kind,
00100 hsmin = 0.0001_dbl_kind
00101
00102 real (kind=dbl_kind), parameter ::
00103 qqqice = 11637800._dbl_kind ,
00104 TTTice = 5897.8_dbl_kind ,
00105 qqqocn = 627572.4_dbl_kind ,
00106 TTTocn = 5107.4_dbl_kind
00107
00108
00109 real (kind=dbl_kind), parameter ::
00110 shlat = 30.0_dbl_kind ,
00111 nhlat = -30.0_dbl_kind
00112
00113
00114
00115
00116
00117 real (kind=dbl_kind), parameter ::
00118 c0 = 0.0_dbl_kind,
00119 c1 = 1.0_dbl_kind,
00120 c1p5 = 1.5_dbl_kind,
00121 c2 = 2.0_dbl_kind,
00122 c3 = 3.0_dbl_kind,
00123 c4 = 4.0_dbl_kind,
00124 c5 = 5.0_dbl_kind,
00125 c6 = 6.0_dbl_kind,
00126 c7 = 7.0_dbl_kind,
00127 c8 = 8.0_dbl_kind,
00128 c9 = 9.0_dbl_kind,
00129 c10 = 10.0_dbl_kind,
00130 c12 = 12.0_dbl_kind,
00131 c15 = 15.0_dbl_kind,
00132 c16 = 16.0_dbl_kind,
00133 c20 = 20.0_dbl_kind,
00134 c25 = 25.0_dbl_kind,
00135 c90 = 90.0_dbl_kind,
00136 c100 = 100.0_dbl_kind,
00137 c180 = 180.0_dbl_kind,
00138 c360 = 360.0_dbl_kind,
00139 c365 = 365.0_dbl_kind,
00140 c3600= 3600.0_dbl_kind,
00141 c1000= 1000.0_dbl_kind,
00142 p001 = 0.001_dbl_kind,
00143 p01 = 0.01_dbl_kind,
00144 p1 = 0.1_dbl_kind,
00145 p2 = 0.2_dbl_kind,
00146 p4 = 0.4_dbl_kind,
00147 p5 = 0.5_dbl_kind,
00148 p6 = 0.6_dbl_kind,
00149 p05 = 0.05_dbl_kind,
00150 p15 = 0.15_dbl_kind,
00151 p25 = 0.25_dbl_kind,
00152 p75 = 0.75_dbl_kind,
00153 p166 = c1/c6,
00154 p333 = c1/c3,
00155 p666 = c2/c3,
00156 p111 = c1/c9,
00157 p055 = p111*p5,
00158 p027 = p055*p5,
00159 p222 = c2/c9,
00160 eps04 = 1.0e-4_dbl_kind,
00161 eps11 = 1.0e-11_dbl_kind,
00162 eps12 = 1.0e-12_dbl_kind,
00163 eps13 = 1.0e-13_dbl_kind,
00164 eps15 = 1.0e-15_dbl_kind,
00165 eps16 = 1.0e-16_dbl_kind,
00166 puny = eps11,
00167 bignum = 1.0e+30_dbl_kind,
00168 pih = p5*pi,
00169 pi2 = c2*pi
00170
00171
00172
00173
00174
00175 integer (int_kind), parameter ::
00176 field_loc_unknown = 0,
00177 field_loc_noupdate = -1,
00178 field_loc_center = 1,
00179 field_loc_NEcorner = 2,
00180 field_loc_Nface = 3,
00181 field_loc_Eface = 4,
00182 field_loc_Wface = 5
00183
00184
00185
00186
00187
00188
00189
00190 integer (int_kind), parameter ::
00191 field_type_unknown = 0,
00192 field_type_noupdate = -1,
00193 field_type_scalar = 1,
00194 field_type_vector = 2,
00195 field_type_angle = 3
00196
00197
00198
00199
00200
00201 real (kind=dbl_kind), parameter ::
00202 cm_to_m = 0.01_dbl_kind ,
00203 m_to_cm = 100._dbl_kind ,
00204 m2_to_km2 = 1.e-6_dbl_kind ,
00205 kg_to_g = 1000._dbl_kind ,
00206 mps_to_cmpdy = 8.64e6_dbl_kind ,
00207 rad_to_deg = 180._dbl_kind/pi
00208
00209 #ifndef USE_ESMF
00210 integer (kind=int_kind), parameter ::
00211 ESMF_SUCCESS = 0
00212 #endif
00213
00214
00215 integer (kind=int_kind), parameter ::
00216 mtest = -999, itest = 1, jtest = 1, ntest = 1, btest = 1
00217
00218
00219
00220
00221 end module ice_constants
00222
00223