Changeset 15551 for NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/SBC/sbcblk_algo_coare3p6.F90
- Timestamp:
- 2021-11-28T21:19:36+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/SBC/sbcblk_algo_coare3p6.F90
r14592 r15551 179 179 REAL(wp), DIMENSION(jpi,jpj) :: zeta_u ! stability parameter at height zu 180 180 REAL(wp), DIMENSION(jpi,jpj) :: ztmp0, ztmp1, ztmp2 181 REAL(wp), DIMENSION(jpi,jpj) :: zpre, zrhoa, zta 181 REAL(wp), DIMENSION(jpi,jpj) :: zpre, zrhoa, zta ! air pressure [Pa], density [kg/m3] & absolute temperature [k] 182 182 ! 183 183 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zeta_t ! stability parameter at height zt
Note: See TracChangeset
for help on using the changeset viewer.