Changeset 14215 for NEMO/trunk/src/ABL/ablmod.F90
- Timestamp:
- 2020-12-18T14:49:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ABL/ablmod.F90
r14072 r14215 1263 1263 smth_b = 1._wp / 4._wp 1264 1264 ! 1265 DO_2D( 1, 1, 1, 0)1265 DO_2D( 1, 0, 1, 1 ) 1266 1266 zumsk = msk(ji,jj) * msk(ji+1,jj) 1267 1267 zdX ( ji, jj ) = ( pvar2d( ji+1,jj ) - pvar2d( ji ,jj ) ) * zumsk 1268 1268 END_2D 1269 1269 1270 DO_2D( 1, 0, 1, 1)1270 DO_2D( 1, 1, 1, 0 ) 1271 1271 zvmsk = msk(ji,jj) * msk(ji,jj+1) 1272 1272 zdY ( ji, jj ) = ( pvar2d( ji, jj+1 ) - pvar2d( ji ,jj ) ) * zvmsk 1273 1273 END_2D 1274 1274 1275 DO_2D( 1, 0, 0, 0 )1275 DO_2D( 0, 0, 1, 0 ) 1276 1276 zFY ( ji, jj ) = zdY ( ji, jj ) & 1277 1277 & + smth_a* ( (zdX ( ji, jj+1 ) - zdX( ji-1, jj+1 )) & … … 1279 1279 END_2D 1280 1280 1281 DO_2D( 0, 0, 1, 0 )1281 DO_2D( 1, 0, 0, 0 ) 1282 1282 zFX( ji, jj ) = zdX( ji, jj ) & 1283 1283 & + smth_a*( (zdY( ji+1, jj ) - zdY( ji+1, jj-1)) &
Note: See TracChangeset
for help on using the changeset viewer.