Changeset 237 for trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90

Timestamp:

01/09/19 17:09:26 (6 years ago)

Author:

aquiquet

Message:

Sealevel is now treated as a 2D variable (sealevel_2d while sealevel remains the eustatic sea level), results should remain identical as sealevel_2d is equal to sealevel in this revision.

File:

• trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90 (modified) (1 diff)

trunk/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90

@@ -606 +606 @@
 
 
-    where ( sealevel-B1(:,:).le.0.)             ! socle au dessus du niveau des mers
+    where ( sealevel_2d(:,:)-B1(:,:).le.0.)             ! socle au dessus du niveau des mers
        H_buoy(:,:) = H1(:,:)
 
     elsewhere
-       H_buoy(:,:) = H1(:,:)-row/ro*(sealevel-B1(:,:))
+       H_buoy(:,:) = H1(:,:)-row/ro*(sealevel_2d(:,:)-B1(:,:))
        
     end where