Changeset 4768 for palm/trunk
- Timestamp:
- Nov 2, 2020 7:11:23 PM (4 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 17 edited
-
biometeorology_mod.f90 (modified) (2 diffs)
-
bulk_cloud_model_mod.f90 (modified) (2 diffs)
-
chemistry_model_mod.f90 (modified) (2 diffs)
-
data_output_3d.f90 (modified) (5 diffs)
-
diagnostic_output_quantities_mod.f90 (modified) (2 diffs)
-
dynamics_mod.f90 (modified) (2 diffs)
-
gust_mod.f90 (modified) (2 diffs)
-
indoor_model_mod.f90 (modified) (2 diffs)
-
land_surface_model_mod.f90 (modified) (2 diffs)
-
module_interface.f90 (modified) (2 diffs)
-
ocean_mod.f90 (modified) (2 diffs)
-
plant_canopy_model_mod.f90 (modified) (2 diffs)
-
radiation_model_mod.f90 (modified) (2 diffs)
-
salsa_mod.f90 (modified) (2 diffs)
-
turbulence_closure_mod.f90 (modified) (2 diffs)
-
urban_surface_mod.f90 (modified) (4 diffs)
-
user_module.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/biometeorology_mod.f90
r4633 r4768 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Enable 3D data output also with 64-bit precision 29 ! 30 ! 4633 2020-08-05 14:21:14Z suehring 28 31 ! Bugfix in check for humidity 29 32 ! … … 1123 1126 LOGICAL, INTENT(OUT) :: found !< Output found? 1124 1127 1125 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< Temp. result grid to return1128 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< Temp. result grid to return 1126 1129 ! 1127 1130 !-- Internal variables -
palm/trunk/SOURCE/bulk_cloud_model_mod.f90
r4755 r4768 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4755 2020-10-21 15:09:15Z schwenkel 26 29 ! Minor reformatting 27 30 ! … … 4574 4577 REAL(wp) :: fill_value = -999.0_wp !< value for the _FillValue attribute 4575 4578 4576 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf !< local4579 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf !< local 4577 4580 !< array to which output data is resorted to 4578 4581 -
palm/trunk/SOURCE/chemistry_model_mod.f90
r4731 r4768 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Enable 3D data output also with 64-bit precision 29 ! 30 ! 4731 2020-10-07 13:25:11Z schwenkel 28 31 ! Move exchange_horiz from time_integration to modules 29 32 ! … … 1557 1560 REAL(wp) :: fill_value !< 1558 1561 1559 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf1562 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf 1560 1563 ! 1561 1564 !-- Local variables -
palm/trunk/SOURCE/data_output_3d.f90
r4559 r4768 19 19 ! Current revisions: 20 20 ! ------------------ 21 ! 22 ! 21 ! 22 ! 23 23 ! Former revisions: 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4559 2020-06-11 08:51:48Z raasch 26 29 ! file re-formatted to follow the PALM coding standard 27 30 ! … … 170 173 REAL(wp) :: s_r3 !< sum( particle-radius**3 ) 171 174 172 REAL( sp), DIMENSION(:,:,:), ALLOCATABLE :: local_pf !< output array175 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: local_pf !< output array 173 176 174 177 REAL(wp), DIMENSION(:,:,:), POINTER :: to_be_resorted !< pointer to array which shall be … … 261 264 ! 262 265 !-- Before each output, set array local_pf to fill value 263 local_pf = fill_value266 local_pf = REAL( fill_value, KIND=wp ) 264 267 ! 265 268 !-- Set masking flag for topography for not resorted arrays … … 674 677 ! count = (/ nxr-nxl+2, nyn-nys+2, nzt_do-nzb_do+1, 1 /) ) 675 678 ! ELSE 676 nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_do3d(av,ivar), & 677 local_pf(nxl:nxr,nys:nyn,nzb_do:nzt_do), & 678 start = (/ nxl+1, nys+1, nzb_do+1, do3d_time_count(av) /), & 679 count = (/ nxr-nxl+1, nyn-nys+1, nzt_do-nzb_do+1, 1 /) & 680 ) 679 ! 680 !-- Call for parallel runs 681 nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_do3d(av,ivar), & 682 local_pf(nxl:nxr,nys:nyn,nzb_do:nzt_do), & 683 start = (/ nxl+1, nys+1, nzb_do+1, do3d_time_count(av) /), & 684 count = (/ nxr-nxl+1, nyn-nys+1, nzt_do-nzb_do+1, 1 /) & 685 ) 681 686 ! ENDIF 682 687 CALL netcdf_handle_error( 'data_output_3d', 386 ) … … 685 690 #else 686 691 #if defined( __netcdf ) 692 ! 693 !-- Call for non-parallel runs 687 694 nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_do3d(av,ivar), & 688 695 local_pf(nxl:nxr,nys:nyn,nzb_do:nzt_do), & -
palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90
r4757 r4768 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4757 2020-10-26 10:23:38Z schwenkel 26 29 ! Implement relative humidity as diagnostic output quantity 27 30 ! … … 1201 1204 REAL(wp) :: fill_value !< value for the _FillValue attribute 1202 1205 1203 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !<1206 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< 1204 1207 REAL(wp), DIMENSION(:,:,:), POINTER :: to_be_resorted !< points to array which needs to be resorted for output 1205 1208 -
palm/trunk/SOURCE/dynamics_mod.f90
r4760 r4768 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4760 2020-10-26 13:26:47Z schwenkel 26 29 ! Implement relative humidity as diagnostic output quantity 27 30 ! … … 1839 1842 REAL(wp), INTENT(IN) :: fill_value !< value for the _FillValue attribute 1840 1843 1841 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !<1844 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< 1842 1845 1843 1846 ! -
palm/trunk/SOURCE/gust_mod.f90
r4646 r4768 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4646 2020-08-24 16:02:40Z raasch 26 29 ! file re-formatted to follow the PALM coding standard 27 30 ! … … 543 546 REAL(wp), INTENT(IN) :: fill_value !< value for the _FillValue attribute 544 547 545 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf !< local548 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf !< local 546 549 !< array to which output data is resorted to 547 550 -
palm/trunk/SOURCE/indoor_model_mod.f90
r4750 r4768 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Enable 3D data output also with 64-bit precision 28 ! 29 ! 4750 2020-10-16 14:27:48Z suehring 27 30 ! - Namelist parameter added to switch-off/on the indoor model during wall/soil spinup 28 31 ! - Bugfix in window-wall treatment during spinup - in the urban-surface model the window fraction … … 1996 1999 REAL(wp), INTENT(IN) :: fill_value !< value for the _FillValue attribute 1997 2000 1998 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !<2001 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< 1999 2002 2000 2003 local_pf = fill_value -
palm/trunk/SOURCE/land_surface_model_mod.f90
r4723 r4768 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4723 2020-10-06 15:16:11Z raasch 26 29 ! file re-formatted to follow the PALM coding standard 27 30 ! … … 6223 6226 REAL(wp) :: fill_value = -999.0_wp !< value for the _FillValue attribute 6224 6227 6225 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_soil:nzt_soil) :: local_pf !<6228 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_soil:nzt_soil) :: local_pf !< 6226 6229 6227 6230 -
palm/trunk/SOURCE/module_interface.f90
r4757 r4768 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Enable 3D data output also with 64-bit precision 27 ! 28 ! 4757 2020-10-26 10:23:38Z schwenkel 26 29 ! Implement doq calls 27 30 ! … … 1615 1618 REAL(wp), INTENT(IN) :: fill_value !< ToDo: refactor 1616 1619 1617 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf1620 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf 1618 1621 1619 1622 -
palm/trunk/SOURCE/ocean_mod.f90
r4731 r4768 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Enable 3D data output also with 64-bit precision 28 ! 29 ! 4731 2020-10-07 13:25:11Z schwenkel 27 30 ! Move exchange_horiz from time_integration to modules 28 31 ! … … 1121 1124 REAL(wp) :: fill_value = -999.0_wp !< value for the _FillValue attribute 1122 1125 1123 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< local1126 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< local 1124 1127 !< array to which output data is resorted to 1125 1128 -
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r4671 r4768 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Enable 3D data output also with 64-bit precision 30 ! 31 ! 4671 2020-09-09 20:27:58Z pavelkrc 29 32 ! Implementation of downward facing USM and LSM surfaces 30 33 ! … … 783 786 784 787 REAL(wp) :: fill_value !< fill value 785 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< data output array788 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< data output array 786 789 787 790 -
palm/trunk/SOURCE/radiation_model_mod.f90
r4741 r4768 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Enable 3D data output also with 64-bit precision 31 ! 32 ! 4741 2020-10-14 14:32:50Z suehring 30 33 ! Add option to force calculation of horizontal mean profiles independent on data output 31 34 ! … … 11639 11642 REAL(wp) :: fill_value !< value for the _FillValue attribute 11640 11643 11641 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !<11644 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< 11642 11645 11643 11646 CHARACTER (len=varnamelength) :: var, surfid -
palm/trunk/SOURCE/salsa_mod.f90
r4731 r4768 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Enable 3D data output also with 64-bit precision 29 ! 30 ! 4731 2020-10-07 13:25:11Z schwenkel 28 31 ! Move exchange_horiz from time_integration to modules 29 32 ! … … 12059 12062 REAL(wp) :: temp_bin !< temporary array for calculating output variables 12060 12063 12061 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< local12064 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< local 12062 12065 12063 12066 found = .TRUE. -
palm/trunk/SOURCE/turbulence_closure_mod.f90
r4717 r4768 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Enable 3D data output also with 64-bit precision 28 ! 29 ! 4717 2020-09-30 22:27:40Z pavelkrc 27 30 ! Fixes and optimizations of OpenMP parallelization, formatting of OpenMP 28 31 ! directives (J. Resler) … … 1064 1067 REAL(wp) :: fill_value = -9999.0_wp !< value for the _FillValue attribute 1065 1068 1066 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< local1069 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< local 1067 1070 !< array to which output data is resorted to 1068 1071 -
palm/trunk/SOURCE/urban_surface_mod.f90
r4750 r4768 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Enable 3D data output also with 64-bit precision 30 ! 31 ! 4750 2020-10-16 14:27:48Z suehring 29 32 ! - bugfix in openmp directive 30 33 ! - make t_green_h and t_green_v public (required in indoor model) … … 2455 2458 LOGICAL, INTENT(OUT) :: found !< 2456 2459 2457 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< sp - it has to correspond to module data_output_3d2458 REAL( sp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: temp_pf !< temp array for urban surface output procedure2460 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< sp - it has to correspond to module data_output_3d 2461 REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: temp_pf !< temp array for urban surface output procedure 2459 2462 2460 2463 found = .TRUE. … … 2523 2526 j = surf_usm_h(l)%j(m) 2524 2527 k = surf_usm_h(l)%k(m) 2525 temp_pf(0,j,i) = MAX( temp_pf(0,j,i), REAL( k, KIND = sp) )2528 temp_pf(0,j,i) = MAX( temp_pf(0,j,i), REAL( k, KIND = wp) ) 2526 2529 ENDDO 2527 2530 ELSE … … 2530 2533 j = surf_usm_v(l)%j(m) 2531 2534 k = surf_usm_v(l)%k(m) 2532 temp_pf(0,j,i) = MAX( temp_pf(0,j,i), REAL( k, KIND = sp) + 1.0_sp )2535 temp_pf(0,j,i) = MAX( temp_pf(0,j,i), REAL( k, KIND = wp) + 1.0_sp ) 2533 2536 ENDDO 2534 2537 ENDIF -
palm/trunk/SOURCE/user_module.f90
r4535 r4768 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Enable 3D data output also with 64-bit precision 28 ! 29 ! 4535 2020-05-15 12:07:23Z raasch 27 30 ! bugfix for restart data format query 28 31 ! … … 970 973 ! REAL(wp) :: fill_value = -999.0_wp !< value for the _FillValue attribute 971 974 972 REAL( sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !<975 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< 973 976 974 977 !
Note: See TracChangeset
for help on using the changeset viewer.
