- Timestamp:
- 2015-04-07T16:22:54+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OFF_SRC/dommsk.F90
r5131 r5200 88 88 DO jj = 1, jpjm1 89 89 DO ji = 1, fs_jpim1 ! vector loop 90 umask_i(ji,jj) = ssmask(ji,jj) * ssmask(ji+1,jj ) * MIN(1._wp,SUM(umask(ji,jj,:)))91 vmask_i(ji,jj) = ssmask(ji,jj) * ssmask(ji ,jj+1) * MIN(1._wp,SUM(vmask(ji,jj,:)))90 ssumask(ji,jj) = ssmask(ji,jj) * ssmask(ji+1,jj ) * MIN(1._wp,SUM(umask(ji,jj,:))) 91 ssvmask(ji,jj) = ssmask(ji,jj) * ssmask(ji ,jj+1) * MIN(1._wp,SUM(vmask(ji,jj,:))) 92 92 END DO 93 93 DO ji = 1, jpim1 ! NO vector opt. 94 fmask_i(ji,jj) = ssmask(ji,jj ) * ssmask(ji+1,jj ) &94 ssfmask(ji,jj) = ssmask(ji,jj ) * ssmask(ji+1,jj ) & 95 95 & * ssmask(ji,jj+1) * ssmask(ji+1,jj+1) * MIN(1._wp,SUM(fmask(ji,jj,:))) 96 96 END DO 97 97 END DO 98 CALL lbc_lnk( umask_i, 'U', 1._wp ) ! Lateral boundary conditions99 CALL lbc_lnk( vmask_i, 'V', 1._wp )100 CALL lbc_lnk( fmask_i, 'F', 1._wp )98 CALL lbc_lnk( ssumask, 'U', 1._wp ) ! Lateral boundary conditions 99 CALL lbc_lnk( ssvmask, 'V', 1._wp ) 100 CALL lbc_lnk( ssfmask, 'F', 1._wp ) 101 101 102 102 ! 3. Ocean/land mask at wu-, wv- and w points
Note: See TracChangeset
for help on using the changeset viewer.