Changeset 662 for trunk/AGRIF/AGRIF_FILES/modcurgridfunctions.F

Timestamp:

2007-05-25T17:58:52+02:00 (17 years ago)

Author:

opalod

Message:

RB: update Agrif internal routines with a new update scheme and performance improvment

File:

• trunk/AGRIF/AGRIF_FILES/modcurgridfunctions.F (modified) (1 diff)

trunk/AGRIF/AGRIF_FILES/modcurgridfunctions.F

@@ -779 +779 @@
 C
       End Function Agrif_Get_Unit
+      
+      Subroutine Agrif_Set_Efficiency(eff)
+      REAL :: eff
+      
+      IF ((eff.LT.0.).OR.(eff.GT.1)) THEN
+      write(*,*)'Error Efficiency should be between 0 and 1'
+      stop
+      ELSE
+      Agrif_efficiency = eff
+      ENDIF
+      End Subroutine Agrif_Set_Efficiency
+      
+      Subroutine Agrif_Set_Regridding(regfreq)
+      INTEGER :: regfreq
+      
+      IF (regfreq.LT.0) THEN
+      write(*,*)'Regridding frequency should be positive'
+      stop
+      ELSE
+      Agrif_regridding = regfreq
+      ENDIF
+      End Subroutine Agrif_Set_Regridding
 C
       End Module Agrif_CurgridFunctions