Changeset 771 for palm/trunk/SOURCE/init_masks.f90
- Timestamp:
- Oct 27, 2011 10:56:21 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_masks.f90
r596 r771 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! +lpt 7 7 ! 8 8 ! Former revisions: … … 170 170 unit = 'm2/s2' 171 171 172 CASE ( 'lpt' ) 173 IF ( .NOT. cloud_physics ) THEN 174 WRITE ( message_string, * ) 'output of "', TRIM( var ), & 175 '" requires cloud_physics = .TRUE.' 176 CALL message( 'init_masks', 'PA0348', 1, 2, 0, 6, 0 ) 177 ENDIF 178 unit = 'K' 179 172 180 CASE ( 'pc', 'pr' ) 173 181 IF ( .NOT. particle_advection ) THEN
Note: See TracChangeset
for help on using the changeset viewer.