Changeset 2735 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Jan 11, 2018 12:01:27 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r2718 r2735 25 25 ! ----------------- 26 26 ! $Id$ 27 ! output of r_a moved from land-surface to consider also urban-type surfaces 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 3282 3285 CONTINUE 3283 3286 3284 CASE ( 'lwp*', 'ol*', 'pra*', 'prr*', 'qsws*', ' shf*', 'ssws*', 't*',&3285 ' u*', 'z0*', 'z0h*', 'z0q*' )3287 CASE ( 'lwp*', 'ol*', 'pra*', 'prr*', 'qsws*', 'r_a*', 'shf*', & 3288 'ssws*', 't*', 'u*', 'z0*', 'z0h*', 'z0q*' ) 3286 3289 IF ( k == 0 .OR. data_output(i)(ilen-2:ilen) /= '_xy' ) THEN 3287 3290 message_string = 'illegal value for data_output: "' // & … … 3318 3321 CALL message( 'check_parameters', 'PA0322', 1, 2, 0, 6, 0 ) 3319 3322 ENDIF 3323 IF ( TRIM( var ) == 'r_a*' .AND. .NOT. land_surface .AND. & 3324 .NOT. urban_surface ) & 3325 THEN 3326 message_string = 'output of "' // TRIM( var ) // '" requi' // & 3327 'res land_surface = .TRUE. or ' // & 3328 'urban_surface = .TRUE.' 3329 CALL message( 'check_parameters', 'PA0404', 1, 2, 0, 6, 0 ) 3330 ENDIF 3320 3331 IF ( TRIM( var ) == 'ssws*' .AND. .NOT. passive_scalar ) THEN 3321 3332 message_string = 'output of "' // TRIM( var ) // '" requi' // & … … 3325 3336 3326 3337 IF ( TRIM( var ) == 'lwp*' ) unit = 'kg/m2' 3327 IF ( TRIM( var ) == 'ol*' )unit = 'm'3338 IF ( TRIM( var ) == 'ol*' ) unit = 'm' 3328 3339 IF ( TRIM( var ) == 'pra*' ) unit = 'mm' 3329 3340 IF ( TRIM( var ) == 'prr*' ) unit = 'mm/s' 3330 3341 IF ( TRIM( var ) == 'qsws*' ) unit = 'kgm/kgs' 3342 IF ( TRIM( var ) == 'r_a*' ) unit = 's/m' 3331 3343 IF ( TRIM( var ) == 'shf*' ) unit = 'K*m/s' 3332 3344 IF ( TRIM( var ) == 'ssws*' ) unit = 'kg/m2*s'
Note: See TracChangeset
for help on using the changeset viewer.