Changeset 3733 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2012-12-12T17:06:16+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r3558 r3733 247 247 #if defined key_zdfddm 248 248 REAL(wp) :: zrrau, zds, zavdds, zavddt,zinr ! double diffusion mixing 249 REAL(wp), POINTER, DIMENSION(:,:) :: zdifs250 REAL(wp), POINTER, DIMENSION(:) :: za2s, za3s, zkmps249 REAL(wp), POINTER, DIMENSION(:,:) :: zdifs 250 REAL(wp), POINTER, DIMENSION(:) :: za2s, za3s, zkmps 251 251 REAL(wp) :: zkm1s 252 REAL(wp), POINTER, DIMENSION(:,:) :: zblcs252 REAL(wp), POINTER, DIMENSION(:,:) :: zblcs 253 253 REAL(wp), POINTER, DIMENSION(:,:,:) :: zdiffus 254 254 #endif … … 266 266 CALL wrk_alloc( jpi,4, zdepw, zdift, zvisc ) 267 267 CALL wrk_alloc( jpi,jpj, zBo, zBosol, zustar ) 268 CALL wrk_alloc( jpi,jpk, zmask, zblcm, zblct , zblcs)268 CALL wrk_alloc( jpi,jpk, zmask, zblcm, zblct ) 269 269 #if defined key_zdfddm 270 270 CALL wrk_alloc( jpi,4, zdifs ) … … 1079 1079 zdiffut(ji,jj,jk) = zdiffut(ji,jj,jk) * tmask(ji,jj,jk) 1080 1080 #if defined key_zdfddm 1081 zdiffus(ji,jj,jk) = ( 1.0 - zmask(ji,jk) ) 1081 zdiffus(ji,jj,jk) = ( 1.0 - zmask(ji,jk) ) * avs (ji,jj,jk) & ! interior diffusivities 1082 1082 & + zflag * zblcs(ji,jk ) & ! boundary layer diffusivities 1083 1083 & + zmask(ji,jk) * ( 1.0 - zflag ) * zkmps(ji ) ! diffusivity enhancement at W_level near zhbl 1084 1085 1084 zdiffus(ji,jj,jk) = zdiffus(ji,jj,jk) * tmask(ji,jj,jk) 1086 1085 #endif … … 1210 1209 CALL wrk_dealloc( jpi,4, zdepw, zdift, zvisc ) 1211 1210 CALL wrk_dealloc( jpi,jpj, zBo, zBosol, zustar ) 1212 CALL wrk_dealloc( jpi,jpk, zmask, zblcm, zblct , zblcs)1211 CALL wrk_dealloc( jpi,jpk, zmask, zblcm, zblct ) 1213 1212 #if defined key_zdfddm 1214 1213 CALL wrk_dealloc( jpi,4, zdifs )
Note: See TracChangeset
for help on using the changeset viewer.