Changeset 237 for trunk/SOURCES/Hudson_files/bmelt_hudson_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/Hudson_files/bmelt_hudson_mod.f90 (modified) (1 diff)

trunk/SOURCES/Hudson_files/bmelt_hudson_mod.f90

@@ -52 +52 @@
 !             bmgrz(i,j)= 10.
 
-          bmshelf(i,j)=(sealevel-BSOC(i,j))/200  ! jalv: eq lineaire en fonction de la profondeur de la mer
+          bmshelf(i,j)=(sealevel_2d(i,j)-BSOC(i,j))/200  ! jalv: eq lineaire en fonction de la profondeur de la mer
           bmgrz(i,j)=bmshelf(i,j)
 !          endif