Changeset 4039 for palm/trunk/SOURCE/netcdf_interface_mod.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_interface_mod.f90
r4029 r4039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Rename subroutines in module for diagnostic quantities 28 ! 29 ! 4029 2019-06-14 14:04:35Z raasch 27 30 ! netcdf variable NF90_NOFILL is used as argument instead of "1" in calls to NF90_DEF_VAR_FILL 28 31 ! … … 698 701 skip_time_do3d, topography, num_leg, num_var_fl, & 699 702 urban_surface 703 704 USE diagnostic_output_quantities_mod, & 705 ONLY: doq_define_netcdf_grid 700 706 701 707 USE grid_variables, & … … 1124 1130 CASE ( 'e', 'nc', 'nr', 'p', 'pc', 'pr', 'prr', & 1125 1131 'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', & 1126 's', 'theta', 'thetal', 'thetav' , 'ti')1132 's', 'theta', 'thetal', 'thetav' ) 1127 1133 1128 1134 grid_x = 'x' … … 1169 1175 ENDIF 1170 1176 1177 IF ( .NOT. found ) & 1178 CALL doq_define_netcdf_grid( domask(mid,av,i), found, & 1179 grid_x, grid_y, grid_z ) 1180 1171 1181 IF ( .NOT. found .AND. gust_module_enabled ) THEN 1172 1182 CALL gust_define_netcdf_grid( domask(mid,av,i), found, & … … 1870 1880 CASE ( 'e', 'nc', 'nr', 'p', 'pc', 'pr', 'prr', & 1871 1881 'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', & 1872 's', 'theta', 'thetal', 'thetav' , 'ti')1882 's', 'theta', 'thetal', 'thetav' ) 1873 1883 1874 1884 grid_x = 'x' … … 1974 1984 grid_y, grid_z ) 1975 1985 ENDIF 1986 1987 IF ( .NOT. found ) & 1988 CALL doq_define_netcdf_grid( do3d(av,i), found, grid_x, & 1989 grid_y, grid_z ) 1976 1990 1977 1991 IF ( .NOT. found ) THEN … … 2858 2872 'ql_vp_xy', 'qr_xy', 'qv_xy', & 2859 2873 's_xy', & 2860 'theta_xy', 'thetal_xy', 'thetav_xy' , 'ti_xy')2874 'theta_xy', 'thetal_xy', 'thetav_xy' ) 2861 2875 2862 2876 grid_x = 'x' … … 2944 2958 grid_z ) 2945 2959 ENDIF 2946 2947 2960 2961 IF ( .NOT. found ) & 2962 CALL doq_define_netcdf_grid( & 2963 do2d(av,i), found, grid_x, & 2964 grid_y, grid_z ) 2948 2965 ! 2949 2966 !-- Check for user-defined quantities … … 3762 3779 'ql_xz', 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qr_xz', & 3763 3780 'qv_xz', 's_xz', & 3764 'theta_xz', 'thetal_xz', 'thetav_xz' , 'ti_xz')3781 'theta_xz', 'thetal_xz', 'thetav_xz' ) 3765 3782 3766 3783 grid_x = 'x' … … 3837 3854 grid_z ) 3838 3855 ENDIF 3856 3857 IF ( .NOT. found ) & 3858 CALL doq_define_netcdf_grid( do2d(av,i), found, & 3859 grid_x, grid_y, grid_z ) 3839 3860 3840 3861 ! … … 4695 4716 grid_z ) 4696 4717 ENDIF 4718 4719 IF ( .NOT. found ) & 4720 CALL doq_define_netcdf_grid( & 4721 do2d(av,i), found, grid_x, & 4722 grid_y, grid_z ) 4697 4723 ! 4698 4724 !-- Check for user-defined quantities … … 6000 6026 'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', & 6001 6027 'rho_sea_water', 's', 'sa', & 6002 'theta', 'thetal', 'thetav', ' ti', 'u', 'v' )6028 'theta', 'thetal', 'thetav', 'u', 'v' ) 6003 6029 6004 6030 grid_z = 'zu'
Note: See TracChangeset
for help on using the changeset viewer.