Changeset 13027 for vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterpbasic.F90

Timestamp:

2020-06-03T16:36:09+02:00 (4 years ago)

Author:

rblod

Message:

New AGRIF library, see ticket #2129

File:

• vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterpbasic.F90 (modified) (1 diff)

vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterpbasic.F90

@@ -220 +220 @@
 !CDIR ALTCODE
 !CDIR NODEP
+    if (associated(agrif_external_linear_interp)) then
+    do i = 1,nc
+        y(i)=agrif_external_linear_interp(x(MAX(indparent(i,dir),1)), &
+              x(indparent(i,dir)+1),coeffparent(i,dir))
+    enddo
+    else
     do i = 1,nc
         y(i) = coeffparent(i,dir)  * x(MAX(indparent(i,dir),1)) + &
            (1.-coeffparent(i,dir)) * x(indparent(i,dir)+1)
     enddo
+    endif
 !---------------------------------------------------------------------------------------------------
 end subroutine Linear1dAfterCompute