Changeset 13312


Ignore:
Timestamp:
2020-07-16T16:15:59+02:00 (3 months ago)
Author:
jchanut
Message:

fixes small compilation issue with key_AGRIF and key_vertical, #2129

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_oce_sponge.F90

    r13295 r13312  
    320320      END_2D 
    321321      ! 
    322       ztabramp (:,:) = REAL( mbkt_parent (:,:), wp ) 
    323       ztabrampu(:,:) = REAL( mbku_parentu(:,:), wp ) 
    324       ztabrampv(:,:) = REAL( mbkv_parentv(:,:), wp ) 
     322      ztabramp (:,:) = REAL( mbkt_parent(:,:), wp ) 
     323      ztabrampu(:,:) = REAL( mbku_parent(:,:), wp ) 
     324      ztabrampv(:,:) = REAL( mbkv_parent(:,:), wp ) 
    325325      CALL lbc_lnk_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp ) 
    326326      mbkt_parent(:,:) = NINT( ztabramp (:,:) ) 
Note: See TracChangeset for help on using the changeset viewer.