New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13947 – NEMO

Changeset 13947


Ignore:
Timestamp:
2020-12-01T18:13:02+01:00 (4 years ago)
Author:
emanuelaclementi
Message:

minor changes in comments - ticket #2155 #2339

Location:
NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE
Files:
9 edited

Legend:

Unmodified
Added
Removed

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

    r13710 r13947  
    66   !! History :  1.0  ! 2005-12  (C. Talandier, G. Madec, V. Garnier)  Original code 
    77   !!            3.2  ! 2009-07  (R. Benshila)  Suppression of rigid-lid option 
     8   !!            4.2  ! 2020-12  (G. Madec, E. Clementi) add Bernoulli Head for 
     9   !!                            wave coupling 
    810   !!---------------------------------------------------------------------- 
    911 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/DYN/dynvor.F90

    r13710 r13947  
    2121   !!             -   ! 2018-03  (G. Madec)  add two new schemes (ln_dynvor_enT and ln_dynvor_eet) 
    2222   !!             -   ! 2018-04  (G. Madec)  add pre-computed gradient for metric term calculation 
    23    !!            4.2  ! 2020-05  (G. Madec, E. Clementi) add vortex force trends (ln_vortex_force=T) 
     23   !!            4.2  ! 2020-12  (G. Madec, E. Clementi) add vortex force trends (ln_vortex_force=T) 
    2424   !!---------------------------------------------------------------------- 
    2525 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbc_oce.F90

    r13710 r13947  
    1212   !!            4.0  ! 2016-06  (L. Brodeau) new unified bulk routine (based on AeroBulk) 
    1313   !!            4.0  ! 2019-03  (F. Lemarié, G. Samson) add compatibility with ABL mode 
    14    !!            4.2  ! 2020-05  9 Madec, E. Clementi) modified wave parameters in namelist 
     14   !!            4.2  ! 2020-12  (G. Madec, E. Clementi) modified wave parameters in namelist 
    1515   !!---------------------------------------------------------------------- 
    1616 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcblk_algo_ecmwf.F90

    r13710 r13947  
    1717   !!---------------------------------------------------------------------- 
    1818   !! History :  4.0  !  2016-02  (L.Brodeau)   Original code 
    19    !!            4.2  !  2020-05  (G. MAdec, E. Clementi) Charnock coeff from wave model 
     19   !!            4.2  !  2020-12  (G. Madec, E. Clementi) Charnock coeff from wave model 
    2020   !!---------------------------------------------------------------------- 
    2121 
    … …  
    3232   USE in_out_manager  ! I/O manager 
    3333   USE prtctl          ! Print control 
    34    USE sbcwave, ONLY   : charn, ln_charn ! wave module 
     34   USE sbcwave, ONLY   : charn ! wave module 
    3535#if defined key_si3 || defined key_cice 
    3636   USE sbc_ice         ! Surface boundary condition: ice fields 
    … …  
    235235 
    236236      IF (ln_charn)  THEN          !  Charnock value if wave coupling 
    237          z0     = charn*u_star*u_star/grav + 0.11*znu_a/u_star 
     237         z0     = charn*u_star*u_star/grav + 0.11_wp*znu_a/u_star 
    238238      ELSE 
    239          z0     = charn0*u_star*u_star/grav + 0.11*znu_a/u_star 
     239         z0     = charn0*u_star*u_star/grav + 0.11_wp*znu_a/u_star 
    240240      ENDIF 
    241241 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbccpl.F90

    r13759 r13947  
    88   !!            3.1  ! 2009_02  (G. Madec, S. Masson, E. Maisonave, A. Caubel) generic coupled interface 
    99   !!            3.4  ! 2011_11  (C. Harris) more flexibility + multi-category fields 
    10    !!            4.2  ! 2020-05  (G. Madec, E. Clementi)  wave coupling updates 
     10   !!            4.2  ! 2020-12  (G. Madec, E. Clementi)  wave coupling updates 
    1111   !!---------------------------------------------------------------------- 
    1212 
    … …  
    670670         cpl_wdrag = .TRUE. 
    671671      ENDIF 
    672       srcv(jpr_charn)%clname = 'O_Charn'     ! neutral surface drag coefficient 
     672      srcv(jpr_charn)%clname = 'O_Charn'     ! Chranock coefficient 
    673673      IF( TRIM(sn_rcv_charn%cldes ) == 'coupled' )  THEN 
    674674         srcv(jpr_charn)%laction = .TRUE. 
    675675         cpl_charn = .TRUE. 
    676676      ENDIF 
    677       srcv(jpr_bhd)%clname = 'O_Bhd'     ! neutral surface drag coefficient 
     677      srcv(jpr_bhd)%clname = 'O_Bhd'     ! Bernoulli head. waves' induced surface pressure 
    678678      IF( TRIM(sn_rcv_bhd%cldes ) == 'coupled' )  THEN 
    679679         srcv(jpr_bhd)%laction = .TRUE. 
    680680         cpl_bhd = .TRUE. 
    681681      ENDIF 
    682       srcv(jpr_tusd)%clname = 'O_Tusd'     ! neutral surface drag coefficient 
     682      srcv(jpr_tusd)%clname = 'O_Tusd'     ! zonal stokes transport 
    683683      IF( TRIM(sn_rcv_tusd%cldes ) == 'coupled' )  THEN 
    684684         srcv(jpr_tusd)%laction = .TRUE. 
    685685         cpl_tusd = .TRUE. 
    686686      ENDIF 
    687       srcv(jpr_tvsd)%clname = 'O_Tvsd'     ! neutral surface drag coefficient 
     687      srcv(jpr_tvsd)%clname = 'O_Tvsd'     ! meridional stokes tranmport 
    688688      IF( TRIM(sn_rcv_tvsd%cldes ) == 'coupled' )  THEN 
    689689         srcv(jpr_tvsd)%laction = .TRUE. 
    … …  
    13891389      ! 
    13901390      !                                                      ! ========================= ! 
    1391       !                                                      !   Wave drag coefficient   ! 
     1391      !                                                      !   Chranock coefficient    ! 
    13921392      !                                                      ! ========================= ! 
    13931393      IF( srcv(jpr_charn)%laction .AND. ln_charn )  charn(:,:) = frcv(jpr_charn)%z3(:,:,1) 
    13941394      ! 
    1395       ! 
     1395      !                                                      ! ========================= ! 
     1396      !                                                      ! net wave-supported stress ! 
     1397      !                                                      ! ========================= ! 
    13961398      IF( srcv(jpr_tawx)%laction .AND. ln_taw )     tawx(:,:) = frcv(jpr_tawx)%z3(:,:,1) 
    13971399      IF( srcv(jpr_tawy)%laction .AND. ln_taw )     tawy(:,:) = frcv(jpr_tawy)%z3(:,:,1) 
     1400      ! 
     1401      !                                                      ! ========================= ! 
     1402      !                                                      !wave to ocean momentum flux! 
     1403      !                                                      ! ========================= ! 
    13981404      IF( srcv(jpr_twox)%laction .AND. ln_taw )     twox(:,:) = frcv(jpr_twox)%z3(:,:,1) 
    13991405      IF( srcv(jpr_twoy)%laction .AND. ln_taw )     twoy(:,:) = frcv(jpr_twoy)%z3(:,:,1) 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcmod.F90

    r13852 r13947  
    1616   !!            4.0  ! 2016-06  (L. Brodeau) new general bulk formulation 
    1717   !!            4.0  ! 2019-03  (F. Lemarié & G. Samson)  add ABL compatibility (ln_abl=TRUE) 
    18    !!            4.2  ! 2020-05  (G. Madec, E. Clementi) modified wave forcing and coipling   
     18   !!            4.2  ! 2020-12  (G. Madec, E. Clementi) modified wave forcing and coupling   
    1919   !!---------------------------------------------------------------------- 
    2020 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcwave.F90

    r13759 r13947  
    99   !!             -   !  2016-12  (G. Madec, E. Clementi) update Stoke drift computation 
    1010   !!                                                    + add sbc_wave_ini routine 
    11    !!            4.2  !  2020-06  (G. Madec, E. Clement) updates, new Stoke drift computation  
    12    !!                                                    according to Covelard et al.,2019 
     11   !!            4.2  !  2020-12  (G. Madec, E. Clementi) updates, new Stoke drift computation  
     12   !!                                                    according to Couvelard et al.,2019 
    1313   !!---------------------------------------------------------------------- 
    1414 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/ZDF/zdfsh2.F90

    r13710 r13947  
    66   !! History :   -   !  2014-10  (A. Barthelemy, G. Madec)  original code 
    77   !!   NEMO     4.0  !  2017-04  (G. Madec)  remove u-,v-pts avm 
     8   !!   NEMO     4.2  !  2020-12  (G. Madec, E. Clementi) add Stokes Drift Shear 
     9   !                  !           for wave coupling 
    810   !!---------------------------------------------------------------------- 
    911 

  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/ZDF/zdftke.F90

    r13873 r13947  
    2929   !!            4.0  !  2017-04  (G. Madec)  remove CPP ddm key & avm at t-point only  
    3030   !!             -   !  2017-05  (G. Madec)  add top/bottom friction as boundary condition 
     31   !!            4.2  !  2020-12  (G. Madec, E. Clementi) add wave coupling 
     32   !                  !           following Couvelard et al., 2019 
    3133   !!---------------------------------------------------------------------- 
    3234 
    … …  
    397399      !                     !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    398400      !                     !  Surface boundary condition on tke if 
    399       !                     !  coupleing with waves 
     401      !                     !  coupling with waves 
    400402      !                     !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    401403      ! 
    … …  
    425427      ! 
    426428      !                          !* Matrix inversion from level 2 (tke prescribed at level 1) 
    427 !      DO_3D( 0, 0, 0, 0, 3, jpkm1 )                ! First recurrence : Dk = Dk - Lk * Uk-1 / Dk-1 
    428429      DO_3D( 0, 0, 0, 0, 2, jpkm1 )                ! First recurrence : Dk = Dk - Lk * Uk-1 / Dk-1 
    429430         zdiag(ji,jj,jk) = zdiag(ji,jj,jk) - zd_lw(ji,jj,jk) * zd_up(ji,jj,jk-1) / zdiag(ji,jj,jk-1) 
    … …  
    433434!         zd_lw(ji,jj,2) = en(ji,jj,2) - zd_lw(ji,jj,2) * en(ji,jj,1)    ! Surface boudary conditions on tke 
    434435!      END_2D 
    435 !      DO_3D( 0, 0, 0, 0, 3, jpkm1 ) 
    436436      DO_3D( 0, 0, 0, 0, 2, jpkm1 ) 
    437437         zd_lw(ji,jj,jk) = en(ji,jj,jk) - zd_lw(ji,jj,jk) / zdiag(ji,jj,jk-1) *zd_lw(ji,jj,jk-1) 
Note: See TracChangeset for help on using the changeset viewer.