Changeset 237 for trunk/SOURCES/Greeneem_files/lect-clim-act-greeneem_mar_mod.f90

Timestamp:

01/09/19 17:09:26 (5 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/Greeneem_files/lect-clim-act-greeneem_mar_mod.f90 (modified) (2 diffs)

trunk/SOURCES/Greeneem_files/lect-clim-act-greeneem_mar_mod.f90

@@ -55 +55 @@
    do i=1,nx
       read (20,*) S0CLIM(i,j)
-      S0CLIM(i,j)=max(S0CLIM(i,j),slv(i,j))   ! pour etre au niveau des mers
+      S0CLIM(i,j)=max(S0CLIM(i,j),sealevel_2d(i,j))   ! pour etre au niveau des mers
    end do
 end do
@@ -146 +146 @@
   do j=1,ny
      do i=1,nx
-        alti=max(slv(i,j),S(I,J))
+        alti=max(sealevel_2d(i,j),S(I,J))
         Tann(i,j)=TA0(i,j)+lapse_ann*(alti-S0CLIM(i,j))
         Tjuly(i,j)=TJ0(i,j)+lapse_july*(alti-S0CLIM(i,j))