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 15553 for NEMO/trunk/src/OCE/ZDF/zdfphy.F90 – NEMO

Ignore:
Timestamp:
2021-11-29T12:36:23+01:00 (2 years ago)
Author:
jchanut
Message:

#2594: move agrif bdy update on avm_k at the right place

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ZDF/zdfphy.F90

    r15293 r15553  
    316316      ! 
    317317      !                          !==  ocean Kz  ==!   (avt, avs, avm) 
     318#if defined key_agrif 
     319      ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2) 
     320      IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN                       ! Do only on the last tile 
     321         IF( l_zdfsh2 )   CALL Agrif_avm 
     322      ENDIF 
     323#endif 
    318324      ! 
    319325      !                                         !* start from turbulent closure values 
     
    344350      IF( ln_zdfiwm )   CALL zdf_iwm( kt, Kmm, avm, avt, avs )   ! internal wave (de Lavergne et al 2017) 
    345351 
    346 #if defined key_agrif 
    347       ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2) 
    348       IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN                       ! Do only on the last tile 
    349          IF( l_zdfsh2 )   CALL Agrif_avm 
    350       ENDIF 
    351 #endif 
    352  
    353352      !                                         !* Lateral boundary conditions (sign unchanged) 
    354353      IF(nn_hls==1) THEN 
Note: See TracChangeset for help on using the changeset viewer.