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 11574 for NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_update.F90 – NEMO

Ignore:
Timestamp:
2019-09-19T12:08:31+02:00 (5 years ago)
Author:
jchanut
Message:

#2222, import changes from dev_r10973_AGRIF-01_jchanut_small_jpi_jpj (i.e. #2199)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_update.F90

    r11243 r11574  
    1 #define TWO_WAY        /* TWO WAY NESTING */ 
    21#undef DECAL_FEEDBACK  /* SEPARATION of INTERFACES*/ 
    32#undef VOL_REFLUX      /* VOLUME REFLUXING*/ 
    … …  
    4645      IF (Agrif_Root()) RETURN 
    4746      ! 
    48 #if defined TWO_WAY   
    4947      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update tracers  from grid Number',Agrif_Fixed() 
    5048 
    … …  
    6462      Agrif_UseSpecialValueInUpdate = .FALSE. 
    6563      ! 
    66 #endif 
    6764      ! 
    6865   END SUBROUTINE Agrif_Update_Tra 
    … …  
    7572      IF (Agrif_Root()) RETURN 
    7673      ! 
    77 #if defined TWO_WAY 
    7874      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update momentum from grid Number',Agrif_Fixed() 
    7975 
    … …  
    121117#  endif 
    122118      END IF 
    123 #endif 
    124119      ! 
    125120   END SUBROUTINE Agrif_Update_Dyn 
    … …  
    131126      !  
    132127      IF (Agrif_Root()) RETURN 
    133       ! 
    134 #if defined TWO_WAY 
    135128      ! 
    136129      Agrif_UseSpecialValueInUpdate = .TRUE. 
    … …  
    157150#  endif 
    158151      ! 
    159 #endif 
    160       ! 
    161152   END SUBROUTINE Agrif_Update_ssh 
    162153 
    … …  
    170161      IF (Agrif_Root()) RETURN 
    171162      !        
    172 #  if defined TWO_WAY 
    173  
    174163      Agrif_UseSpecialValueInUpdate = .TRUE. 
    175164      Agrif_SpecialValueFineGrid = 0. 
    … …  
    180169 
    181170      Agrif_UseSpecialValueInUpdate = .FALSE. 
    182  
    183 #  endif 
    184171       
    185172   END SUBROUTINE Agrif_Update_Tke 
    … …  
    192179      ! 
    193180      IF (Agrif_Root()) RETURN 
    194       ! 
    195 #if defined TWO_WAY   
    196181      ! 
    197182      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update e3 from grid Number',Agrif_Fixed(), 'Step', Agrif_Nb_Step() 
    … …  
    209194      CALL dom_vvl_update_UVF 
    210195      CALL Agrif_ParentGrid_To_ChildGrid() 
    211       ! 
    212 #endif 
    213196      ! 
    214197   END SUBROUTINE Agrif_Update_vvl 
Note: See TracChangeset for help on using the changeset viewer.