Ignore:
Timestamp:
2020-05-29T12:58:31+02:00 (5 months ago)
Author:
emanuelaclementi
Message:

Included wave-current processes following Couvelard et al 2019 and Gurvan code -ticket #2155

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/DYN/dynspg.F90

    r12489 r12991  
    1919   USE sbc_ice , ONLY : snwice_mass, snwice_mass_b 
    2020   USE sbcapr         ! surface boundary condition: atmospheric pressure 
     21   USE sbcwave,  ONLY : bhd_wave 
    2122   USE dynspg_exp     ! surface pressure gradient     (dyn_spg_exp routine) 
    2223   USE dynspg_ts      ! surface pressure gradient     (dyn_spg_ts  routine) 
     
    143144         ENDIF 
    144145         ! 
     146         IF( ln_wave .and. ln_bern_srfc ) THEN          !== Add J terms: depth-independent Bernoulli head 
     147            DO_2D_00_00 
     148               spgu(ji,jj) = spgu(ji,jj) + ( bhd_wave(ji+1,jj) - bhd_wave(ji,jj) ) / e1u(ji,jj)   !++ bhd_wave from wave model in m2/s2 [BHD parameters in WW3] 
     149               spgv(ji,jj) = spgv(ji,jj) + ( bhd_wave(ji,jj+1) - bhd_wave(ji,jj) ) / e2v(ji,jj) 
     150            END_2D 
     151         ENDIF 
     152         ! 
    145153         DO_3D_00_00( 1, jpkm1 ) 
    146154            puu(ji,jj,jk,Krhs) = puu(ji,jj,jk,Krhs) + spgu(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.