- Timestamp:
- 2017-12-13T15:58:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r7646 r9019 167 167 CALL zdf_mxl( kt ) ! In any case, we need mxl 168 168 ! 169 hmld(:,:) 170 avt(:,:,:) 171 ! 172 #if defined key_trabbl && ! defined key_c1d 173 ahu_bbl(:,:)= sf_dyn(jf_ubl)%fnow(:,:,1) * umask(:,:,1) ! bbl diffusive coef174 ahv_bbl(:,:)= sf_dyn(jf_vbl)%fnow(:,:,1) * vmask(:,:,1)175 #endif 169 hmld(:,:) = sf_dyn(jf_mld)%fnow(:,:,1) * tmask(:,:,1) ! mixed layer depht 170 avt(:,:,:) = sf_dyn(jf_avt)%fnow(:,:,:) * tmask(:,:,:) ! vertical diffusive coefficient 171 ! 172 IF( ln_trabbl .AND. .NOT.lk_c1d ) THEN ! diffusive Bottom boundary layer param 173 ahu_bbl(:,:) = sf_dyn(jf_ubl)%fnow(:,:,1) * umask(:,:,1) ! bbl diffusive coef 174 ahv_bbl(:,:) = sf_dyn(jf_vbl)%fnow(:,:,1) * vmask(:,:,1) 175 ENDIF 176 176 ! 177 177 ! … … 275 275 ENDIF 276 276 ! 277 IF( l k_trabbl ) THEN277 IF( ln_trabbl ) THEN 278 278 jf_ubl = jfld + 1 ; jf_vbl = jfld + 2 ; jfld = jf_vbl 279 279 slf_d(jf_ubl) = sn_ubl ; slf_d(jf_vbl) = sn_vbl
Note: See TracChangeset
for help on using the changeset viewer.