Changeset 11845 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90
- Timestamp:
- 2019-11-04T11:11:58+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90
r11817 r11845 178 178 LOGICAL :: l_zt_equal_zu = .FALSE. ! if q and t are given at same height as U 179 179 ! 180 REAL(wp), DIMENSION(jpi,jpj) :: & 181 & u_star, t_star, q_star, & 182 & dt_zu, dq_zu, & 183 & znu_a, & !: Nu_air, Viscosity of air 184 & z0, z0t 185 REAL(wp), DIMENSION(jpi,jpj) :: zeta_u ! stability parameter at height zu 186 REAL(wp), DIMENSION(jpi,jpj) :: ztmp0, ztmp1, ztmp2 187 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zeta_t ! stability parameter at height zt 180 REAL(wp), DIMENSION(jpi,jpj) :: u_star, t_star, q_star 181 REAL(wp), DIMENSION(jpi,jpj) :: dt_zu, dq_zu 182 REAL(wp), DIMENSION(jpi,jpj) :: znu_a, !: Nu_air, Viscosity of air 183 REAL(wp), DIMENSION(jpi,jpj) :: z0, z0t 184 REAL(wp), DIMENSION(jpi,jpj) :: zeta_u ! stability parameter at height zu 185 REAL(wp), DIMENSION(jpi,jpj) :: ztmp0, ztmp1, ztmp2 188 186 ! 189 187 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: & 188 & zeta_t, & ! stability parameter at height zt 190 189 & zsst, & ! to back up the initial bulk SST 191 190 & pdTc, & ! SST increment "dT" for cool-skin correction [K]
Note: See TracChangeset
for help on using the changeset viewer.