Changeset 13295 for NEMO/trunk/src/SWE/domain.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SWE/domain.F90
r12983 r13295 169 169 !!anhf hf_0 = mean(ht_0*tmask) so hf = mimj( ht0 + ssht) 170 170 ! ne pas combiner avec an45 tout de suite 171 ! DO_2D _10_10171 ! DO_2D( 1, 0, 1, 0 ) 172 172 ! hf_0(ji,jj) = 0.25_wp * ( ht_0(ji,jj+1) * tmask(ji,jj+1,1) + ht_0(ji+1,jj+1) * tmask(ji+1,jj+1,1) & 173 173 ! & + ht_0(ji,jj ) * tmask(ji,jj ,1) + ht_0(ji+1,jj ) * tmask(ji+1,jj ,1) ) … … 183 183 !!an45 Ligne de cote a 45deg : e1e2t *= ( mi(umask) + mj(vmask) ) /2 184 184 !! idem pour e1e2f 185 ! DO_2D _10_10185 ! DO_2D( 1, 0, 1, 0 ) 186 186 ! zcoeff = 0.25_wp * ( umask(ji,jj+1,1) + umask(ji+1,jj+1,1) & 187 187 ! & + vmask(ji,jj ,1) + vmask(ji+1,jj ,1) )
Note: See TracChangeset
for help on using the changeset viewer.