Changeset 244 for branches/iLoveclim/SOURCES/New-remplimat

Timestamp:

01/16/19 16:08:14 (5 years ago)

Author:

aquiquet

Message:

Grisli-iloveclim branch merged to trunk at revision 243

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/New-remplimat/remplimat-shelves-tabTu.f90 (modified) (4 diffs)

branches/iLoveclim/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

@@ -483 +483 @@
 
          case(-2)                             ! bord Est
-            call vel_U_East(pvi(i,j),pvi(i-1,j),rog,H(i-1,j),rowg,slv(i-1,j),B(i-1,j),dx,Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
+            call vel_U_East(pvi(i,j),pvi(i-1,j),rog,H(i-1,j),rowg,sealevel_2d(i-1,j),B(i-1,j),dx,Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
        
          case(-3)                             ! bord nord
@@ -489 +489 @@
 
          case(-4)                             ! bord West
-            call vel_U_West(pvi(i,j),pvi(i-1,j),rog,H(i,j),rowg,slv(i,j),B(i,j),dx,Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
+            call vel_U_West(pvi(i,j),pvi(i-1,j),rog,H(i,j),rowg,sealevel_2d(i,j),B(i,j),dx,Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
 
          case(-12)                            ! coin SE
@@ -527 +527 @@
             
          case(-1)                             ! bord sud
-            call vel_V_South(pvi(i,j),pvi(i,j-1),rog,H(i,j),rowg,slv(i,j),B(i,j),dx,Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
+            call vel_V_South(pvi(i,j),pvi(i,j-1),rog,H(i,j),rowg,sealevel_2d(i,j),B(i,j),dx,Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
             
          case(-2)                             ! bord Est
@@ -533 +533 @@
             
          case(-3)                             ! bord nord
-            call vel_V_North(pvi(i,j),pvi(i,j-1),rog,H(i-1,j),rowg,slv(i-1,j),B(i-1,j),dx,Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
+            call vel_V_North(pvi(i,j),pvi(i,j-1),rog,H(i-1,j),rowg,sealevel_2d(i-1,j),B(i-1,j),dx,Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
             
          case(-4)                             ! bord West