- Timestamp:
- 01/09/19 17:09:26 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Draggings_modules/dragging_prescr_beta_buoyency_mod.f90
r70 r237 500 500 501 501 502 where ( sealevel -B1(:,:).le.0.) ! socle au dessus du niveau des mers502 where ( sealevel_2d(:,:)-B1(:,:).le.0.) ! socle au dessus du niveau des mers 503 503 H_buoy(:,:) = H1(:,:) 504 504 505 505 elsewhere 506 H_buoy(:,:) = H1(:,:)-row/ro*(sealevel -B1(:,:))506 H_buoy(:,:) = H1(:,:)-row/ro*(sealevel_2d(:,:)-B1(:,:)) 507 507 508 508 end where
Note: See TracChangeset
for help on using the changeset viewer.