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 8725 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_sbc.F90 – NEMO

Ignore:
Timestamp:
2017-11-16T19:36:34+01:00 (6 years ago)
Author:
clem
Message:

change sasbiper test case ==> advection of an ice patch with a constant ice-atm stress, thus at a velocity defined by ice rheology (variable) + use 3 ghost cells (defined in par_oce.F90)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_sbc.F90

    r8696 r8725  
    8686      INTEGER, INTENT(in) ::   kt   ! ocean time step 
    8787      !!--------------------------------------------------------------------- 
    88       IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : SAS_BIPER case: NO stress forcing' 
     88      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : SAS_BIPER case: constant stress forcing' 
    8989      ! 
    90       utau_ice(:,:) = 0._wp 
     90      utau_ice(:,:) = 1.3_wp   ! <=> 0.5 m/s 
    9191      vtau_ice(:,:) = 0._wp 
    9292      ! 
Note: See TracChangeset for help on using the changeset viewer.