Changeset 2254 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90
- Timestamp:
- Apr 3, 2015, 12:16:36 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/conf_phys_m.F90
r2253 r2254 119 119 Real,SAVE :: f_rugoro_omp , z0min_omp 120 120 Real,SAVE :: z0m_seaice_omp,z0h_seaice_omp 121 REAL,SAVE :: min_wind_speed_omp,f_gust_wk_omp,f_gust_bl_omp,f_qsat_oce_omp 121 REAL,SAVE :: min_wind_speed_omp,f_gust_wk_omp,f_gust_bl_omp,f_qsat_oce_omp, f_z0qh_oce_omp 122 122 INTEGER,SAVE :: iflag_gusts_omp,iflag_z0_oce_omp 123 123 … … 1679 1679 1680 1680 ! Gustiness flags 1681 f_z0qh_oce_omp = 1. 1682 call getin('f_z0qh_oce',f_z0qh_oce_omp) 1683 ! 1681 1684 f_qsat_oce_omp = 1. 1682 1685 call getin('f_qsat_oce',f_qsat_oce_omp) … … 2062 2065 f_gust_bl=f_gust_bl_omp 2063 2066 f_qsat_oce=f_qsat_oce_omp 2067 f_z0qh_oce=f_z0qh_oce_omp 2064 2068 min_wind_speed=min_wind_speed_omp 2065 2069 iflag_gusts=iflag_gusts_omp
Note: See TracChangeset
for help on using the changeset viewer.