29 |
_RL exf_two |
_RL exf_two |
30 |
|
|
31 |
parameter( |
parameter( |
32 |
& exf_half = 0.5 _d 0 , |
& exf_half = 0.5d0 , |
33 |
& exf_one = 1.0 _d 0 , |
& exf_one = 1.0d0 , |
34 |
& exf_two = 2.0 _d 0 |
& exf_two = 2.0d0 |
35 |
& ) |
& ) |
36 |
|
|
37 |
real exf_undef |
real exf_undef |
43 |
c is identical to "gravity" used in MITgcmUV |
c is identical to "gravity" used in MITgcmUV |
44 |
c needs to be marmonized through common constants.h file |
c needs to be marmonized through common constants.h file |
45 |
_RL gravity_mks |
_RL gravity_mks |
46 |
parameter ( gravity_mks = 9.81 _d 0 ) |
parameter ( gravity_mks = 9.81d0 ) |
47 |
#endif |
#endif |
48 |
|
|
49 |
c 3. empirical parameters |
c 3. empirical parameters |
94 |
_RL ht |
_RL ht |
95 |
_RL hq |
_RL hq |
96 |
|
|
97 |
parameter ( cdrag_1 = 0.0027000 _d 0 , |
parameter ( cdrag_1 = 0.0027000d0 , |
98 |
& cdrag_2 = 0.0001420 _d 0 , |
& cdrag_2 = 0.0001420d0 , |
99 |
& cdrag_3 = 0.0000764 _d 0 , |
& cdrag_3 = 0.0000764d0 , |
100 |
& cstanton_1 = 0.0327000 _d 0 , |
& cstanton_1 = 0.0327000d0 , |
101 |
& cstanton_2 = 0.0180000 _d 0 , |
& cstanton_2 = 0.0180000d0 , |
102 |
& cdalton = 0.0346000 _d 0 , |
& cdalton = 0.0346000d0 , |
103 |
& atmrho = 1.200 _d 0 , |
& atmrho = 1.200 d0 , |
104 |
& atmcp = 1005.000 _d 0 , |
& atmcp = 1005.000 d0 , |
105 |
& flamb = 2500000.000 _d 0 , |
& flamb = 2500000.000 d0 , |
106 |
& umin = 0.500 _d 0 , |
& umin = 0.500 d0 , |
107 |
& zolmin = -100.000 _d 0 , |
& zolmin = -100.000 d0 , |
108 |
& zref = 10.000 _d 0 , |
& zref = 10.000 d0 , |
109 |
& karman = 0.400 _d 0 , |
& karman = 0.400 d0 , |
110 |
& cvapor_fac = 640380.000 _d 0 , |
& cvapor_fac = 640380.000 d0 , |
111 |
& cvapor_exp = 5107.400 _d 0 , |
& cvapor_exp = 5107.400 d0 , |
112 |
& humid_fac = 0.606 _d 0 , |
& humid_fac = 0.606 d0 , |
113 |
& gamma_blk = 0.010 _d 0 , |
& gamma_blk = 0.010 d0 , |
114 |
& saltsat = 0.980 _d 0 , |
& saltsat = 0.980 d0 , |
115 |
& psim_fac = 5.000 _d 0 , |
& psim_fac = 5.000 d0 , |
116 |
& cen2kel = 273.150 _d 0 , |
& cen2kel = 273.150 d0 , |
117 |
& hu = 10.000 _d 0 , |
& hu = 10.000 d0 , |
118 |
& ht = 2.000 _d 0 , |
& ht = 2.000 d0 , |
119 |
& hq = 2.000 _d 0 |
& hq = 2.000 d0 |
120 |
& ) |
& ) |
121 |
|
|
122 |
|
|
144 |
_RL ustofu11 |
_RL ustofu11 |
145 |
|
|
146 |
parameter ( |
parameter ( |
147 |
& ustofu11 = 0.381800 _d 0 , |
& ustofu11 = 0.381800d0 , |
148 |
& u11 = 11. _d 0 , |
& u11 = 11. d0 , |
149 |
& clindrag_1 = 0.000065 _d 0 , |
& clindrag_1 = 0.000065d0 , |
150 |
& clindrag_2 = 0.000490 _d 0 , |
& clindrag_2 = 0.000490d0 , |
151 |
& cquadrag_1 = clindrag_1/u11/2 , |
& cquadrag_1 = clindrag_1/u11/2 , |
152 |
& cquadrag_2 = clindrag_1*u11/2 + clindrag_2 |
& cquadrag_2 = clindrag_1*u11/2 + clindrag_2 |
153 |
& ) |
& ) |