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 7562 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfqiao.F90 – NEMO

Ignore:
Timestamp:
2017-01-16T15:52:00+01:00 (7 years ago)
Author:
emanuelaclementi
Message:

#1811 Merge with dev_INGV_UKMO_2016: improve Stokes drift (including dynspg_ts , Stokes-Coriolis force , and GLS surface roughness)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfqiao.F90

    r7403 r7562  
    7070         DO jj = 1, jpjm1 
    7171            DO ji = 1, fs_jpim1 
    72                qbv(ji,jj,jk) = 1.0 * 0.353553 * swh(ji,jj) * tsd2d(ji,jj) *             & 
     72               qbv(ji,jj,jk) = 1.0 * 0.353553 * hsw(ji,jj) * tsd2d(ji,jj) *             & 
    7373            &                  EXP(3.0 * wnum(ji,jj) *                                  &                      
    7474            &                  (-MIN( gdepw_n(ji  ,jj  ,jk), gdepw_n(ji+1,jj  ,jk),     & 
Note: See TracChangeset for help on using the changeset viewer.