Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (3 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:
NEMO/trunk/tests/OVERFLOW
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/tests/OVERFLOW/MY_SRC/usrdef_zgr.F90

    r10074 r10425  
    9393         zhu(ji,:) = 0.5_wp * ( zht(ji,:) + zht(ji+1,:) ) 
    9494      END DO 
    95       CALL lbc_lnk( zhu, 'U', 1. )     ! boundary condition: this mask the surrouding grid-points 
     95      CALL lbc_lnk( 'usrdef_zgr', zhu, 'U', 1. )     ! boundary condition: this mask the surrouding grid-points 
    9696      !                                ! ==>>>  set by hand non-zero value on first/last columns & rows  
    9797      DO ji = mi0(1), mi1(1)              ! first row of global domain only 
     
    112112      ! the ocean basin surrounded by land (1 grid-point) set through lbc_lnk call as jperio=0  
    113113      z2d(:,:) = 1._wp                    ! surface ocean is the 1st level 
    114       CALL lbc_lnk( z2d, 'T', 1. )        ! closed basin since jperio = 0 (see userdef_nam.F90) 
     114      CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. )        ! closed basin since jperio = 0 (see userdef_nam.F90) 
    115115      k_top(:,:) = NINT( z2d(:,:) ) 
    116116      ! 
  • NEMO/trunk/tests/OVERFLOW/cpp_OVERFLOW.fcm

    r9139 r10425  
    1 bld::tool::fppkeys   key_mpp_mpi key_iomput key_nosignedzero 
     1bld::tool::fppkeys   key_mpp_mpi key_iomput  
Note: See TracChangeset for help on using the changeset viewer.