- Timestamp:
- 2017-12-19T09:47:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_algo_ecmwf.F90
r9124 r9125 32 32 USE iom ! I/O manager library 33 33 USE lib_mpp ! distribued memory computing library 34 USE wrk_nemo ! work arrays35 34 USE in_out_manager ! I/O manager 36 35 USE prtctl ! Print control … … 118 117 INTEGER , PARAMETER :: nb_itt = 4 ! number of itterations 119 118 ! 120 REAL(wp), DIMENSION( :,:), POINTER:: u_star, t_star, q_star, &119 REAL(wp), DIMENSION(jpi,jpj) :: u_star, t_star, q_star, & 121 120 & dt_zu, dq_zu, & 122 121 & znu_a, & !: Nu_air, Viscosity of air 123 122 & Linv, & !: 1/L (inverse of Monin Obukhov length... 124 123 & z0, z0t, z0q 125 REAL(wp), DIMENSION(:,:), POINTER :: func_m, func_h 126 REAL(wp), DIMENSION(:,:), POINTER :: ztmp0, ztmp1, ztmp2 127 !!---------------------------------------------------------------------------------- 128 ! 129 CALL wrk_alloc( jpi,jpj, u_star, t_star, q_star, func_m, func_h, dt_zu, dq_zu, Linv ) 130 CALL wrk_alloc( jpi,jpj, znu_a, z0, z0t, z0q, ztmp0, ztmp1, ztmp2 ) 124 REAL(wp), DIMENSION(jpi,jpj) :: func_m, func_h 125 REAL(wp), DIMENSION(jpi,jpj) :: ztmp0, ztmp1, ztmp2 126 !!---------------------------------------------------------------------------------- 131 127 ! 132 128 ! Identical first gess as in COARE, with IFS parameter values though … … 286 282 Cen = vkarmn*vkarmn / (log(ztmp1/z0q)*log(ztmp1/z0q)) 287 283 288 CALL wrk_dealloc( jpi,jpj, u_star, t_star, q_star, func_m, func_h, dt_zu, dq_zu, Linv )289 CALL wrk_dealloc( jpi,jpj, znu_a, z0, z0t, z0q, ztmp0, ztmp1, ztmp2 )290 !291 284 END SUBROUTINE TURB_ECMWF 292 285
Note: See TracChangeset
for help on using the changeset viewer.