Changeset 237 for trunk/SOURCES/Ant40_files/output_anta40_mod-0.4.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/Ant40_files/output_anta40_mod-0.4.f90 (modified) (1 diff)

trunk/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

@@ -191 +191 @@
 
 !         calcul de la hauteur au dessus de la flottaison
-            if (sealevel-B(i,j).le.0.) then    ! socle au dessus du niveau des mers
+            if (sealevel_2d(i,j)-B(i,j).le.0.) then    ! socle au dessus du niveau des mers
               volf=volf+h(i,j)*corrsurf(i,j)                          ! volume au-dessus de la flottaison
             else
-              volf=volf+(h(i,j)-row/ro*(sealevel-b(i,j)))*corrsurf(i,j) ! volume au-dessus de la flottaison
+              volf=volf+(h(i,j)-row/ro*(sealevel_2d(i,j)-b(i,j)))*corrsurf(i,j) ! volume au-dessus de la flottaison
             endif