Changeset 10425 for NEMO/trunk/src/OCE/USR
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- Location:
- NEMO/trunk/src/OCE/USR
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/USR/usrdef_fmask.F90
r10069 r10425 143 143 ENDIF 144 144 ! 145 CALL lbc_lnk( pfmsk, 'F', 1._wp ) ! Lateral boundary conditions on fmask145 CALL lbc_lnk( 'usrdef_fmask', pfmsk, 'F', 1._wp ) ! Lateral boundary conditions on fmask 146 146 ! 147 147 END SUBROUTINE usr_def_fmask -
NEMO/trunk/src/OCE/USR/usrdef_sbc.F90
r10069 r10425 132 132 END DO 133 133 134 zsumemp = GLOB_SUM( emp (:,:) )135 zsurf = GLOB_SUM( tmask(:,:,1) )134 zsumemp = GLOB_SUM( 'usrdef_sbc', emp (:,:) ) 135 zsurf = GLOB_SUM( 'usrdef_sbc', tmask(:,:,1) ) 136 136 zsumemp = zsumemp / zsurf ! Default GYRE configuration 137 137 … … 186 186 END DO 187 187 END DO 188 CALL lbc_lnk_multi( taum(:,:), 'T', 1. , wndm(:,:), 'T', 1. )188 CALL lbc_lnk_multi( 'usrdef_sbc', taum(:,:), 'T', 1. , wndm(:,:), 'T', 1. ) 189 189 190 190 ! ---------------------------------- ! -
NEMO/trunk/src/OCE/USR/usrdef_zgr.F90
r10069 r10425 202 202 z2d(:,:) = REAL( jpkm1 , wp ) ! flat bottom 203 203 ! 204 CALL lbc_lnk( z2d, 'T', 1. ) ! set surrounding land to zero (here jperio=0 ==>> closed)204 CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. ) ! set surrounding land to zero (here jperio=0 ==>> closed) 205 205 ! 206 206 k_bot(:,:) = NINT( z2d(:,:) ) ! =jpkm1 over the ocean point, =0 elsewhere
Note: See TracChangeset
for help on using the changeset viewer.