Changeset 3785 for palm/trunk/UTIL/inifor/tests
- Timestamp:
- Mar 6, 2019 10:41:14 AM (6 years ago)
- Location:
- palm/trunk/UTIL/inifor/tests
- Files:
-
- 12 edited
-
Makefile (modified) (2 diffs)
-
Makefile.gnu (modified) (2 diffs)
-
Makefile.ifort (modified) (2 diffs)
-
test-boundaries.f90 (modified) (2 diffs)
-
test-centre-velocities.f90 (modified) (2 diffs)
-
test-grid.f90 (modified) (4 diffs)
-
test-input-files.f90 (modified) (4 diffs)
-
test-interpolation.f90 (modified) (4 diffs)
-
test-prototype.f90 (modified) (1 diff)
-
test-stretching.f90 (modified) (1 diff)
-
test-transform.f90 (modified) (1 diff)
-
util.f90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/tests/Makefile
r3618 r3785 14 14 # PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 # 16 # Copyright 2017-201 8Leibniz Universitaet Hannover17 # Copyright 2017-201 8Deutscher Wetterdienst Offenbach16 # Copyright 2017-2019 Leibniz Universitaet Hannover 17 # Copyright 2017-2019 Deutscher Wetterdienst Offenbach 18 18 #------------------------------------------------------------------------------# 19 19 # … … 25 25 # ----------------- 26 26 # $Id$ 27 # Updated copyright note 28 # 29 # 30 # 3618 2018-12-10 13:25:22Z eckhard 27 31 # Prefixed INIFOR modules with inifor_ 28 32 # -
palm/trunk/UTIL/inifor/tests/Makefile.gnu
r3618 r3785 14 14 # PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 # 16 # Copyright 2017-201 8Leibniz Universitaet Hannover17 # Copyright 2017-201 8Deutscher Wetterdienst Offenbach16 # Copyright 2017-2019 Leibniz Universitaet Hannover 17 # Copyright 2017-2019 Deutscher Wetterdienst Offenbach 18 18 #------------------------------------------------------------------------------# 19 19 # … … 25 25 # ----------------- 26 26 # $Id$ 27 # Updated copyright note 28 # 29 # 30 # 3618 2018-12-10 13:25:22Z eckhard 27 31 # Prefixed INIFOR modules with inifor_ 28 32 # -
palm/trunk/UTIL/inifor/tests/Makefile.ifort
r3618 r3785 14 14 # PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 # 16 # Copyright 2017-201 8Leibniz Universitaet Hannover17 # Copyright 2017-201 8Deutscher Wetterdienst Offenbach16 # Copyright 2017-2019 Leibniz Universitaet Hannover 17 # Copyright 2017-2019 Deutscher Wetterdienst Offenbach 18 18 #------------------------------------------------------------------------------# 19 19 # … … 25 25 # ----------------- 26 26 # $Id$ 27 # Updated copyright note 28 # 29 # 30 # 3618 2018-12-10 13:25:22Z eckhard 27 31 # Prefixed INIFOR modules with inifor_ 28 32 # -
palm/trunk/UTIL/inifor/tests/test-boundaries.f90
r3618 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 104 104 105 105 CALL fini_grid_definition(boundary_grid) 106 END 106 ENDDO 107 107 108 108 CALL end_test(title, res) -
palm/trunk/UTIL/inifor/tests/test-centre-velocities.f90
r3618 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 75 75 res = res .AND. assert_equal(u_centre(:,i,1), u_ref(:,i,1), 'centering u') 76 76 res = res .AND. assert_equal(v_centre(i,:,1), v_ref(i,:,1), 'centering v') 77 END 77 ENDDO 78 78 79 79 CALL end_test(title, res) -
palm/trunk/UTIL/inifor/tests/test-grid.f90
r3618 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 74 74 xu(i) = real(i) / (nx+1) * lx 75 75 x(i) = 0.5*dx + xu(i) 76 END 76 ENDDO 77 77 78 78 dy = ly / (ny + 1) … … 80 80 yv(i) = real(i) / (ny+1) * ly 81 81 y(i) = 0.5*dy + yv(i) 82 END 82 ENDDO 83 83 84 84 dz(:) = lz / (nz + 1) … … 86 86 IF (i < nz) zw(i) = real(i) / (nz+1) * lz 87 87 z(i) = 0.5*dz(1) + zw(i) 88 END 88 ENDDO 89 89 90 90 ! Act -
palm/trunk/UTIL/inifor/tests/test-input-files.f90
r3681 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 90 90 DO i = 1, 6 91 91 res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i))) 92 END 92 ENDDO 93 93 94 94 DEALLOCATE( ref_list, file_list ) … … 115 115 DO i = 1, 2 116 116 res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i))) 117 END 117 ENDDO 118 118 119 119 DEALLOCATE( ref_list, file_list ) … … 145 145 DO i = 1, 2 146 146 res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i))) 147 END 147 ENDDO 148 148 149 149 DEALLOCATE( ref_list, file_list ) -
palm/trunk/UTIL/inifor/tests/test-interpolation.f90
r3618 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 146 146 PRINT *, "jj : ", palm_grid%jj(i,j,:) 147 147 PRINT *, "jj_ref : ", jj_ref(i,j,:), " indices match? ", res 148 END 149 END 148 ENDDO 149 ENDDO 150 150 151 151 CALL end_test(title, res) … … 180 180 DO i = 0, 1 181 181 PRINT *, "PALM lon, lat: ", palm_grid % clon(i,j) * TO_DEGREES, palm_grid % clat(i,j)*TO_DEGREES 182 END 183 END 182 ENDDO 183 ENDDO 184 184 185 185 ! Act … … 203 203 PRINT *, "jj : ", palm_grid%jj(i,j,:) 204 204 PRINT *, "jj_ref : ", jj_ref(i,j,:), " indices match? ", res 205 END 206 END 205 ENDDO 206 ENDDO 207 207 208 208 ! asserting that all four weights equal, 0.5, 0.25, 1./6., and 1./12., resp. -
palm/trunk/UTIL/inifor/tests/test-prototype.f90
r3183 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! -
palm/trunk/UTIL/inifor/tests/test-stretching.f90
r3618 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! -
palm/trunk/UTIL/inifor/tests/test-transform.f90
r3618 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! -
palm/trunk/UTIL/inifor/tests/util.f90
r3183 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 71 71 msg = 'failed.' 72 72 label = ' [XX]' 73 END 73 ENDIF 74 74 75 75 PRINT '(/A, A, A, A)', TRIM(label) // " Test '", TRIM(title), "' ", TRIM(msg) … … 87 87 ELSE 88 88 assert_equal = assert(a, b, 'eq') 89 END 89 ENDIF 90 90 91 91 IF (assert_equal .eqv. .TRUE.) THEN … … 94 94 PRINT *, "Equality assertion for ", msg, " failed. Maximum error is ", & 95 95 MAXVAL( ABS( a - b)) 96 END 96 ENDIF 97 97 98 98 END FUNCTION assert_equal … … 125 125 mag = MAX( ABS(a(i)), ABS(b(i)) ) 126 126 assert = assert .AND. (diff < mag * max_rel_diff ) 127 END 128 END 127 ENDDO 128 ENDIF 129 129 130 130 CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.
