Changeset 7954 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OFF_SRC
- Timestamp:
- 2017-04-24T09:19:00+02:00 (7 years ago)
- Location:
- branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OFF_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r7646 r7954 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 -
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r7953 r7954 315 315 316 316 CALL tra_qsr_init ! penetrative solar radiation qsr 317 IF( l k_trabbl ) CALL tra_bbl_init ! advective (and/or diffusive) bottom boundary layer scheme317 IF( ln_trabbl ) CALL tra_bbl_init ! advective (and/or diffusive) bottom boundary layer scheme 318 318 319 319 CALL trc_nam_run ! Needed to get restart parameters for passive tracers
Note: See TracChangeset
for help on using the changeset viewer.