Changeset 237 for trunk/SOURCES/Eurasie40_files/lakes-prescribed_mod-0.1.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/Eurasie40_files/lakes-prescribed_mod-0.1.f90 (modified) (2 diffs)

trunk/SOURCES/Eurasie40_files/lakes-prescribed_mod-0.1.f90

@@ -54 +54 @@
 subroutine lake_to_slv
 
-! inclut les lacs dans le tableau slv des niveaux de flottaison
+! inclut les lacs dans le tableau sealevel_2d des niveaux de flottaison
 
-slv(:,:)=sealevel
+sealevel_2d(:,:)=sealevel
 
 ! VOIR COMMENT ACTIVER-DESACTIVER LES LACS EN FONCTION DU TEMPS
@@ -64 +64 @@
       do i_lake=1,nb_lakes
          if (lake(i,j).eq.i_lake) then 
-            slv(i,j)=max(level_lakes(i_lake),Bsoc(i,j))
+            sealevel_2d(i,j)=max(level_lakes(i_lake),Bsoc(i,j))
          end if
       end do