Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

    r3026 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised
     28!
     29! 3026 2018-05-22 10:30:53Z schwenkel
    2730! Changed the name specific humidity to mixing ratio, since we are computing
    2831! mixing ratios.
     
    732735!--    Check nudging and large scale forcing from external file
    733736       IF ( nudging  .AND.  (  .NOT.  large_scale_forcing ) )  THEN
    734           message_string = 'Nudging requires large_scale_forcing = .T.. &'//   &
    735                         'Surface fluxes and geostrophic wind should be &'//    &
     737          message_string = 'Nudging requires large_scale_forcing = .T.. '//    &
     738                        'Surface fluxes and geostrophic wind should be '//     &
    736739                        'prescribed in file LSF_DATA'
    737740          CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
     
    740743       IF ( large_scale_forcing  .AND.  ( bc_lr /= 'cyclic'  .OR.              &
    741744                                          bc_ns /= 'cyclic' ) )  THEN
    742           message_string = 'Non-cyclic lateral boundaries do not allow for &'//&
     745          message_string = 'Non-cyclic lateral boundaries do not allow for  '//&
    743746                        'the usage of large scale forcing from external file.'
    744747          CALL message( 'check_parameters', 'PA0375', 1, 2, 0, 6, 0 )
     
    746749
    747750       IF ( large_scale_forcing  .AND.  (  .NOT.  humidity ) )  THEN
    748           message_string = 'The usage of large scale forcing from external &'//&
     751          message_string = 'The usage of large scale forcing from external  '//&
    749752                        'file LSF_DATA requires humidity = .T..'
    750753          CALL message( 'check_parameters', 'PA0376', 1, 2, 0, 6, 0 )
     
    752755
    753756       IF ( large_scale_forcing  .AND.  passive_scalar )  THEN
    754           message_string = 'The usage of large scale forcing from external &'//&
     757          message_string = 'The usage of large scale forcing from external '// &
    755758                        'file LSF_DATA is not implemented for passive scalars'
    756759          CALL message( 'check_parameters', 'PA0440', 1, 2, 0, 6, 0 )
     
    759762       IF ( large_scale_forcing  .AND.  topography /= 'flat'                   &
    760763                              .AND.  .NOT.  lsf_exception )  THEN
    761           message_string = 'The usage of large scale forcing from external &'//&
     764          message_string = 'The usage of large scale forcing from external  '//&
    762765                        'file LSF_DATA is not implemented for non-flat topography'
    763766          CALL message( 'check_parameters', 'PA0377', 1, 2, 0, 6, 0 )
     
    765768
    766769       IF ( large_scale_forcing  .AND.  ocean )  THEN
    767           message_string = 'The usage of large scale forcing from external &'//&
     770          message_string = 'The usage of large scale forcing from external '// &
    768771                        'file LSF_DATA is not implemented for ocean runs'
    769772          CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 )
     
    858861                                 TRIM( data_output_pr(var_count) ) //          &
    859862                                 ' is not implemented for ' //                 &
    860                                  'large_scale_forcing = .FALSE.'
    861                 CALL message( 'lsf_nudging_check_data_output_pr', 'PA0393',    &
     863                                 'nudging = .FALSE.'
     864                CALL message( 'lsf_nudging_check_data_output_pr', 'PA0394',    &
    862865                               1, 2, 0, 6, 0 )
    863866             ELSE
     
    873876                                 TRIM( data_output_pr(var_count) ) //          &
    874877                                 ' is not implemented for ' //                 &
    875                                  'large_scale_forcing = .FALSE.'
    876                 CALL message( 'lsf_nudging_check_data_output_pr', 'PA0393',    &
     878                                 'nudging = .FALSE.'
     879                CALL message( 'lsf_nudging_check_data_output_pr', 'PA0394',    &
    877880                               1, 2, 0, 6, 0 )
    878881             ELSE
     
    888891                                 TRIM( data_output_pr(var_count) ) //          &
    889892                                 ' is not implemented for ' //                 &
    890                                  'large_scale_forcing = .FALSE.'
    891                 CALL message( 'lsf_nudging_check_data_output_pr', 'PA0393',    &
     893                                 'nudging = .FALSE.'
     894                CALL message( 'lsf_nudging_check_data_output_pr', 'PA0394',    &
    892895                               1, 2, 0, 6, 0 )
    893896             ELSE
     
    903906                                 TRIM( data_output_pr(var_count) ) //          &
    904907                                 ' is not implemented for ' //                 &
    905                                  'large_scale_forcing = .FALSE.'
    906                 CALL message( 'lsf_nudging_check_data_output_pr', 'PA0393',    &
     908                                 'nudging = .FALSE.'
     909                CALL message( 'lsf_nudging_check_data_output_pr', 'PA0394',    &
    907910                               1, 2, 0, 6, 0 )
    908911             ELSE
     
    12801283
    12811284             IF ( ierrn /= 0 )  THEN
    1282                WRITE ( message_string, * ) 'No time dependent surface variables ' //&
    1283                                  'in&LSF_DATA for end of run found'
     1285               WRITE ( message_string, * ) 'No time dependent surface ' //     &
     1286                                 'variables in LSF_DATA for end of run found'
    12841287
    12851288                CALL message( 'ls_forcing', 'PA0363', 1, 2, 0, 6, 0 )
     
    12891292          IF ( time_surf(1) > end_time )  THEN
    12901293             WRITE ( message_string, * ) 'Time dependent surface variables in ' // &
    1291                                          '&LSF_DATA set in after end of ' ,        &
     1294                                         'LSF_DATA set in after end of ' ,         &
    12921295                                         'simulation - lsf_surf is set to FALSE'
    12931296             CALL message( 'ls_forcing', 'PA0371', 0, 0, 0, 6, 0 )
     
    13161319                IF ( ierrn < 0 )  THEN
    13171320                   WRITE( message_string, * ) 'No time dependent vertical profiles',&
    1318                                     ' in&LSF_DATA for end of run found'
     1321                                    ' in LSF_DATA for end of run found'
    13191322                   CALL message( 'ls_forcing', 'PA0372', 1, 2, 0, 6, 0 )
    13201323                ENDIF
     
    13621365
    13631366                   IF ( ierrn /= 0 )  THEN
    1364                       WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm ', &
    1365                            'is higher than the maximum height in LSF_DATA which ',&
    1366                            'is ', lowheight, 'm. Interpolation on PALM ',         &
     1367                      WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm ',  &
     1368                           'is higher than the maximum height in LSF_DATA ',   &
     1369                           'which is ', lowheight, 'm. Interpolation on PALM ',&
    13671370                           'grid is not possible.'
    13681371                      CALL message( 'ls_forcing', 'PA0395', 1, 2, 0, 6, 0 )
     
    18321835 
    18331836                ierrn = 0
    1834                 READ ( finput, *, IOSTAT=ierrn )  highheight , hightnudge , &
    1835                                                   highunudge , highvnudge , &
    1836                                                   highwnudge , highptnudge, &
     1837                READ ( finput, *, IOSTAT=ierrn )  highheight , hightnudge ,    &
     1838                                                  highunudge , highvnudge ,    &
     1839                                                  highwnudge , highptnudge,    &
    18371840                                                  highqnudge
    18381841                IF (ierrn /= 0 )  THEN
    1839                    WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm is ',&
    1840                         'higher than the maximum height in NUDING_DATA which ',  &
    1841                         'is ', lowheight, 'm. Interpolation on PALM ',           &
     1842                   WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm is ',  &
     1843                        'higher than the maximum height in NUDING_DATA which ',&
     1844                        'is ', lowheight, 'm. Interpolation on PALM ',         &
    18421845                        'grid is not possible.'
    18431846                   CALL message( 'nudging', 'PA0364', 1, 2, 0, 6, 0 )
     
    18721875          ENDIF
    18731876
    1874           WRITE( message_string, * ) 'Initial profiles of u, v and ',          &
    1875                                      'scalars from NUDGING_DATA are used.'
     1877          WRITE( message_string, * ) 'Initial profiles of u, v, pt and q ',    &
     1878                                     'from NUDGING_DATA are used.'
    18761879          CALL message( 'large_scale_forcing_nudging', 'PA0370', 0, 0, 0, 6, 0 )
    18771880       ENDIF
Note: See TracChangeset for help on using the changeset viewer.