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 14755 – NEMO

Changeset 14755


Ignore:
Timestamp:
2021-04-27T14:49:50+02:00 (3 years ago)
Author:
agn
Message:

initialise halo dstokes and zshear

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

    r14705 r14755  
    20542054      zekman(2:jpim1,2:jpjm1) = EXP( - zek * ABS( ff_t(2:jpim1,2:jpjm1) ) * zhbl(2:jpim1,2:jpjm1) / MAX(zustar(2:jpim1,2:jpjm1), 1.e-8 ) ) 
    20552055 
     2056      zshear(:,:) = zlarge 
    20562057      zshear(2:jpim1,2:jpjm1) = 0._wp 
    20572058#ifdef key_osm_debug 
    … …  
    34903491    ENDIF 
    34913492 
     3493    dstokes(:,:) = zlarge 
    34923494    IF (nn_osm_wave == 0) THEN 
    34933495       dstokes(:,:) = rn_osm_dstokes 
Note: See TracChangeset for help on using the changeset viewer.