Changeset 662 for trunk/AGRIF/AGRIF_FILES/modcurgridfunctions.F
- Timestamp:
- 2007-05-25T17:58:52+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AGRIF/AGRIF_FILES/modcurgridfunctions.F
r396 r662 779 779 C 780 780 End Function Agrif_Get_Unit 781 782 Subroutine Agrif_Set_Efficiency(eff) 783 REAL :: eff 784 785 IF ((eff.LT.0.).OR.(eff.GT.1)) THEN 786 write(*,*)'Error Efficiency should be between 0 and 1' 787 stop 788 ELSE 789 Agrif_efficiency = eff 790 ENDIF 791 End Subroutine Agrif_Set_Efficiency 792 793 Subroutine Agrif_Set_Regridding(regfreq) 794 INTEGER :: regfreq 795 796 IF (regfreq.LT.0) THEN 797 write(*,*)'Regridding frequency should be positive' 798 stop 799 ELSE 800 Agrif_regridding = regfreq 801 ENDIF 802 End Subroutine Agrif_Set_Regridding 781 803 C 782 804 End Module Agrif_CurgridFunctions
Note: See TracChangeset
for help on using the changeset viewer.