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

Changeset 7972


Ignore:
Timestamp:
2017-04-26T13:54:55+02:00 (7 years ago)
Author:
jchanut
Message:

Add ssh bc with Agrif

Location:
branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r7971 r7972  
    210210   CALL Agrif_Bc_variable(vn_sponge_id,calledweight=1.,procname=interpvn_sponge) 
    211211 
    212 #if defined key_dynspg_ts 
    213212   Agrif_UseSpecialValue = .TRUE. 
    214213   CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn ) 
    215214 
     215#if defined key_dynspg_ts 
    216216   Agrif_UseSpecialValue = ln_spc_dyn 
    217217   CALL Agrif_Bc_variable(unb_id,calledweight=1.,procname=interpunb) 

  • branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r6204 r7972  
    109109      ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * ssmask(:,:) 
    110110 
     111#if defined key_agrif 
     112      CALL agrif_ssh( kt ) 
     113#endif 
     114 
    111115#if ! defined key_dynspg_ts 
    112116      ! These lines are not necessary with time splitting since 
    113117      ! boundary condition on sea level is set during ts loop 
    114 #if defined key_agrif 
    115       CALL agrif_ssh( kt ) 
    116 #endif 
    117118#if defined key_bdy 
    118119      IF (lk_bdy) THEN 
Note: See TracChangeset for help on using the changeset viewer.