Changeset 774 for trunk/AGRIF/AGRIF_FILES/modbcfunction.F

Timestamp:

2007-12-18T17:45:53+01:00 (16 years ago)

Author:

rblod

Message:

Update Agrif, see ticket:#39

File:

• trunk/AGRIF/AGRIF_FILES/modbcfunction.F (modified) (5 diffs)

trunk/AGRIF/AGRIF_FILES/modbcfunction.F

@@ -329 +329 @@
 C 
       Subroutine Agrif_Set_bcinterp(tabvarsindic,interp,interp1,
-     &      interp2,interp3)
+     &      interp2,interp3,interp11,interp12,interp21,interp22)
 C
 CCC   Description:
@@ -343 +343 @@
 C
       INTEGER, OPTIONAL      :: interp,interp1,interp2,interp3
+      INTEGER, OPTIONAL      :: interp11,interp12,interp21,interp22
 C
       INTEGER :: tabvarsindic ! indice of the variable in tabvars
@@ -350 +351 @@
 C
       Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp = 
-     &           Agrif_Constant
+     &           Agrif_Constant   
       IF (present(interp)) THEN
       Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp = 
      &           interp
-      ENDIF
+      ENDIF       
       IF (present(interp1)) THEN
-      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(1) = 
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(1:2,1) = 
      &           interp1
-      ENDIF
+      ENDIF       
+      IF (present(interp11)) THEN
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(1,1) = 
+     &           interp11
+      ENDIF
+      IF (present(interp12)) THEN
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(1,2) = 
+     &           interp12
+      ENDIF          
       IF (present(interp2)) THEN
-      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(2) = 
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(1:2,2) = 
      &           interp2
       ENDIF
+      IF (present(interp21)) THEN
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(2,1) = 
+     &           interp21
+      ENDIF      
+      IF (present(interp22)) THEN
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(2,2) = 
+     &           interp22
+      ENDIF            
       IF (present(interp3)) THEN
-      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(3) = 
+      Agrif_Mygrid % tabvars(tabvarsindic)% var % bctypeinterp(1:2,3) =
      &           interp3
       ENDIF
@@ -617 +634 @@
       if ( dimensio .EQ. 3 ) then
       IF (present(procname)) THEN
+
       Call Agrif_Interp_Bc_3D(
      & Agrif_Mygrid % tabvars(tabvarsindic) % var % bctypeinterp,
@@ -1457 +1475 @@
       ENDIF
       
-      print *,'ici'
       Allocate(Newflux)