- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/ISOMIP/MY_SRC/usrdef_zgr.F90
r10074 r10170 89 89 ! the ocean basin surrounded by land (1 grid-point) set through lbc_lnk call as jperio=0 90 90 z2d(:,:) = 1._wp ! surface ocean is the 1st level 91 CALL lbc_lnk( z2d, 'T', 1. ) ! closed basin since jperio = 0 (see userdef_nam.F90)91 CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. ) ! closed basin since jperio = 0 (see userdef_nam.F90) 92 92 zmsk(:,:) = NINT( z2d(:,:) ) 93 93 ! … … 177 177 END DO 178 178 END DO 179 CALL lbc_lnk( pe3v , 'V', 1._wp ) ; CALL lbc_lnk(pe3vw, 'V', 1._wp )180 CALL lbc_lnk( pe3f , 'F', 1._wp )179 CALL lbc_lnk( 'usrdef_zgr', pe3v , 'V', 1._wp ) ; CALL lbc_lnk( 'usrdef_zgr', pe3vw, 'V', 1._wp ) 180 CALL lbc_lnk( 'usrdef_zgr', pe3f , 'F', 1._wp ) 181 181 DO jk = 1, jpk 182 182 ! set to z-scale factor if zero (i.e. along closed boundaries) because of lbclnk
Note: See TracChangeset
for help on using the changeset viewer.