Changeset 3294 for palm/trunk/SOURCE/buoyancy.f90
- Timestamp:
- Oct 1, 2018 2:37:10 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/buoyancy.f90
r3274 r3294 25 25 ! ----------------- 26 26 ! $Id$ 27 ! module use statements moved to global declaration section 28 ! 29 ! 3274 2018-09-24 15:42:55Z knoop 27 30 ! Modularization of all bulk cloud physics code components 28 31 ! … … 53 56 ! 1850 2016-04-08 13:29:27Z maronga 54 57 ! Module renamed 55 !56 58 ! 57 59 ! 1682 2015-10-07 23:56:08Z knoop … … 121 123 ONLY: g 122 124 125 USE arrays_3d, & 126 ONLY: pt, pt_slope_ref, ref_state, tend 127 128 USE control_parameters, & 129 ONLY: atmos_ocean_sign, cos_alpha_surface, message_string, pt_surface,& 130 sin_alpha_surface, sloping_surface 131 132 USE kinds 133 123 134 PRIVATE 124 135 PUBLIC buoyancy … … 139 150 SUBROUTINE buoyancy( var, wind_component ) 140 151 141 USE arrays_3d, &142 ONLY: pt, pt_slope_ref, ref_state, tend143 144 USE control_parameters, &145 ONLY: atmos_ocean_sign, cos_alpha_surface, message_string, &146 pt_surface, sin_alpha_surface, sloping_surface147 148 152 USE indices, & 149 153 ONLY: nxl, nxlg, nxlu, nxr, nxrg, nyn, nyng, nys, nysg, nzb, & 150 154 nzt, wall_flags_0 151 152 USE kinds153 154 USE pegrid155 155 156 156 … … 245 245 SUBROUTINE buoyancy_ij( i, j, var, wind_component ) 246 246 247 USE arrays_3d, &248 ONLY: pt, pt_slope_ref, ref_state, tend249 250 USE control_parameters, &251 ONLY: atmos_ocean_sign, cos_alpha_surface, message_string, &252 pt_surface, sin_alpha_surface, sloping_surface253 247 254 248 USE indices, & 255 249 ONLY: nxlg, nxrg, nyng, nysg, nzb, nzt, wall_flags_0 256 257 USE kinds258 259 USE pegrid260 261 250 262 251 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.