- Timestamp:
- 2021-06-09T11:38:51+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcwave.F90
r14433 r14961 24 24 USE bdy_oce ! open boundary condition variables 25 25 USE domvvl ! domain: variable volume layers 26 USE zdf_oce, ONLY : ln_zdfswm ! Qiao wave enhanced mixing 26 27 ! 27 28 USE iom ! I/O manager library … … 310 311 IF( jp_vsd > 0 ) vt0sd(:,:) = sf_sd(jp_vsd)%fnow(:,:,1) * tmask(:,:,1) ! 2D meridional Stokes Drift at T point 311 312 ENDIF 313 314 ! Read also wave number if needed, so that it is available in 315 ! coupling routines 316 IF( ln_zdfswm .AND. .NOT. cpl_wnum ) THEN !==wavenumber==! 317 CALL fld_read( kt, nn_fsbc, sf_wn ) ! read wave parameters from external forcing 318 wnum(:,:) = sf_wn(1)%fnow(:,:,1) * tmask(:,:,1) 319 ENDIF 320 312 321 ! 313 322 IF( jpfld == 4 .OR. ln_wave_test ) & … … 506 515 ENDIF 507 516 ! 508 ! 3. Wave number (only needed for Qiao parametrisation, ln_zdf qiao=T)509 IF( .NOT. cpl_wnum ) THEN517 ! 3. Wave number (only needed for Qiao parametrisation, ln_zdfswm=T) 518 IF( ln_zdfswm .AND. .NOT. cpl_wnum ) THEN 510 519 ALLOCATE( sf_wn(1), STAT=ierror ) !* allocate and fill sf_wave with sn_wnum 511 520 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_wave_init: unable to allocate sf_wn structure' )
Note: See TracChangeset
for help on using the changeset viewer.