105 |
& ' /* Minimum climatological temperature [deg.C] */') |
& ' /* Minimum climatological temperature [deg.C] */') |
106 |
CALL WRITE_0D_R8( windStressMax, INDEX_NONE,'windStressMax =', |
CALL WRITE_0D_R8( windStressMax, INDEX_NONE,'windStressMax =', |
107 |
& ' /* Maximum absolute windstress [ Pa ] */') |
& ' /* Maximum absolute windstress [ Pa ] */') |
108 |
CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =', |
CALL WRITE_0D_R8( cen2kel, INDEX_NONE, 'cen2kel =', |
109 |
& ' /* Sea-water albedo [-] */') |
& ' /* conversion of deg. Centigrade to Kelvin [K] */') |
110 |
CALL WRITE_0D_R8( ocean_emissivity, INDEX_NONE, |
CALL WRITE_0D_R8( gravity_mks, INDEX_NONE, 'gravity_mks=', |
111 |
& 'ocean_emissivity =', |
& ' /* gravitational acceleration [m/s^2] */') |
|
& ' /* longwave ocean-surface emissivity [-] */') |
|
|
CALL WRITE_0D_R8( ice_emissivity, INDEX_NONE,'ice_emissivity =', |
|
|
& ' /* longwave seaice emissivity [-] */') |
|
|
CALL WRITE_0D_R8(snow_emissivity, INDEX_NONE,'snow_emissivity =', |
|
|
& ' /* longwave snow emissivity [-] */') |
|
112 |
CALL WRITE_0D_R8( atmrho, INDEX_NONE, 'atmrho =', |
CALL WRITE_0D_R8( atmrho, INDEX_NONE, 'atmrho =', |
113 |
& ' /* mean atmospheric density [kg/m^3] */') |
& ' /* mean atmospheric density [kg/m^3] */') |
114 |
CALL WRITE_0D_R8( atmcp, INDEX_NONE, 'atmcp =', |
CALL WRITE_0D_R8( atmcp, INDEX_NONE, 'atmcp =', |
131 |
& ' /* adiabatic lapse rate [?] */') |
& ' /* adiabatic lapse rate [?] */') |
132 |
CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =', |
CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =', |
133 |
& ' /* reduction of Qsat over salty water [-] */') |
& ' /* reduction of Qsat over salty water [-] */') |
134 |
CALL WRITE_0D_R8( cen2kel, INDEX_NONE, 'cen2kel =', |
CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =', |
135 |
& ' /* conversion of deg. Centigrade to Kelvin [K] */') |
& ' /* coef used in drag calculation [?] */') |
136 |
|
CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =', |
137 |
|
& ' /* coef used in drag calculation [?] */') |
138 |
|
CALL WRITE_0D_R8( cdrag_3, INDEX_NONE, 'cDrag_3 =', |
139 |
|
& ' /* coef used in drag calculation [?] */') |
140 |
|
CALL WRITE_0D_R8( cstanton_1, INDEX_NONE, 'cStanton_1 =', |
141 |
|
& ' /* coef used in Stanton number calculation [?] */') |
142 |
|
CALL WRITE_0D_R8( cstanton_2, INDEX_NONE, 'cStanton_2 =', |
143 |
|
& ' /* coef used in Stanton number calculation [?] */') |
144 |
|
CALL WRITE_0D_R8( cdalton, INDEX_NONE, 'cDalton =', |
145 |
|
& ' /* coef used in Dalton number calculation [?] */') |
146 |
CALL WRITE_0D_R8( exf_scal_BulkCdn, INDEX_NONE, |
CALL WRITE_0D_R8( exf_scal_BulkCdn, INDEX_NONE, |
147 |
& 'exf_scal_BulkCdn=', |
& 'exf_scal_BulkCdn=', |
148 |
& ' /* Drag coefficient scaling factor [-] */') |
& ' /* Drag coefficient scaling factor [-] */') |
|
CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =', |
|
|
& ' /* coef used in turbulent fluxes calculation [-] */') |
|
149 |
CALL WRITE_0D_R8( zolmin, INDEX_NONE, 'zolmin =', |
CALL WRITE_0D_R8( zolmin, INDEX_NONE, 'zolmin =', |
150 |
& ' /* minimum stability parameter [?] */') |
& ' /* minimum stability parameter [?] */') |
151 |
|
CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =', |
152 |
|
& ' /* coef used in turbulent fluxes calculation [-] */') |
153 |
CALL WRITE_0D_R8( hu, INDEX_NONE, 'zref =', |
CALL WRITE_0D_R8( hu, INDEX_NONE, 'zref =', |
154 |
& ' /* reference height [ m ] */') |
& ' /* reference height [ m ] */') |
155 |
CALL WRITE_0D_R8( hu, INDEX_NONE, 'hu =', |
CALL WRITE_0D_R8( hu, INDEX_NONE, 'hu =', |
160 |
& ' /* height of mean spec.humidity [ m ] */') |
& ' /* height of mean spec.humidity [ m ] */') |
161 |
CALL WRITE_0D_R8( umin, INDEX_NONE, 'uMin =', |
CALL WRITE_0D_R8( umin, INDEX_NONE, 'uMin =', |
162 |
& ' /* minimum wind speed [m/s] */') |
& ' /* minimum wind speed [m/s] */') |
163 |
CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =', |
CALL WRITE_0D_L( useStabilityFct_overIce, INDEX_NONE, |
164 |
& ' /* coef used in drag calculation [?] */') |
& 'useStabilityFct_overIce=', |
165 |
CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =', |
& ' /* transfert Coeffs over sea-ice depend on stability */') |
166 |
& ' /* coef used in drag calculation [?] */') |
CALL WRITE_0D_R8( exf_iceCd, INDEX_NONE, 'exf_iceCd =', |
167 |
CALL WRITE_0D_R8( cdrag_3, INDEX_NONE, 'cDrag_3 =', |
& ' /* drag coefficient over sea-ice (fixed) [-] */') |
168 |
& ' /* coef used in drag calculation [?] */') |
CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCe =', |
169 |
CALL WRITE_0D_R8( cstanton_1, INDEX_NONE, 'cStanton_1 =', |
& ' /* transfert coeff. over sea-ice, for Evap (fixed) [-] */') |
170 |
& ' /* coef used in Stanton number calculation [?] */') |
CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCh =', |
171 |
CALL WRITE_0D_R8( cstanton_2, INDEX_NONE, 'cStanton_2 =', |
& ' /* transfert coeff. over sea-ice, Sens.Heat.(fixed)[-] */') |
172 |
& ' /* coef used in Stanton number calculation [?] */') |
CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =', |
173 |
CALL WRITE_0D_R8( cdalton, INDEX_NONE, 'cDalton =', |
& ' /* Sea-water albedo [-] */') |
174 |
& ' /* coef used in Dalton number calculation [?] */') |
CALL WRITE_0D_R8( ocean_emissivity, INDEX_NONE, |
175 |
|
& 'ocean_emissivity =', |
176 |
|
& ' /* longwave ocean-surface emissivity [-] */') |
177 |
|
CALL WRITE_0D_R8( ice_emissivity, INDEX_NONE,'ice_emissivity =', |
178 |
|
& ' /* longwave seaice emissivity [-] */') |
179 |
|
CALL WRITE_0D_R8(snow_emissivity, INDEX_NONE,'snow_emissivity =', |
180 |
|
& ' /* longwave snow emissivity [-] */') |
181 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
182 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
183 |
& SQUEEZE_RIGHT , myThid ) |
& SQUEEZE_RIGHT , myThid ) |