Changeset 3844 for palm


Ignore:
Timestamp:
Apr 1, 2019 12:34:01 PM (6 years ago)
Author:
suehring
Message:

Bugfix in one of the checks

File:
1 edited

Legend:

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

    r3744 r3844  
    2121! -----------------
    2222!
     23!
    2324! Former revisions:
    2425! -----------------
    2526! $Id$
     27! Bugfix in one of the checks. Typo removed.
     28!
     29! 3744 2019-02-15 18:38:58Z suehring
    2630! Enable mesoscale offline nesting for chemistry variables as well as
    2731! initialization of chemistry via dynamic input file.
     
    38923896                           'soil_type and water_type are '//                   &
    38933897                           'required. If urban-surface model is applied, ' //  &
    3894                            'also building_type ist required'
     3898                           'also building_type is required'
    38953899          CALL message( 'netcdf_data_input_mod', 'PA0554', 1, 2, 0, 6, 0 )
    38963900       ENDIF
     
    40194023!--          vegetation_type, pavement_type, building_type, or water_type
    40204024!--          must be set to a non­missing value.
    4021              IF ( vegetation_type_f%var(j,i) == vegetation_type_f%fill  .AND.  &
    4022                   pavement_type_f%var(j,i)   == pavement_type_f%fill    .AND.  &
    4023                   building_type_f%var(j,i)   == building_type_f%fill    .AND.  &
    4024                   water_type_f%var(j,i)      == water_type_f%fill )  THEN
    4025                 WRITE( message_string, * ) 'At least one of the parameters '// &
    4026                                  'vegetation_type, pavement_type, '     //     &
     4025             IF ( land_surface  .AND.  .NOT. urban_surface )  THEN
     4026                IF ( vegetation_type_f%var(j,i) == vegetation_type_f%fill  .AND.&
     4027                     pavement_type_f%var(j,i)   == pavement_type_f%fill    .AND.&
     4028                     water_type_f%var(j,i)      == water_type_f%fill )  THEN
     4029                   WRITE( message_string, * )                                  &
     4030                                    'At least one of the parameters '//        &
     4031                                    'vegetation_type, pavement_type, '     //  &
     4032                                    'or water_type must be set '//             &
     4033                                    'to a non-missing value. Grid point: ', j, i
     4034                   CALL message( 'netcdf_data_input_mod', 'PA0563', 2, 2, myid, 6, 0 )
     4035                ENDIF
     4036             ELSEIF ( land_surface  .AND.  urban_surface )  THEN
     4037                IF ( vegetation_type_f%var(j,i) == vegetation_type_f%fill  .AND.&
     4038                     pavement_type_f%var(j,i)   == pavement_type_f%fill    .AND.&
     4039                     building_type_f%var(j,i)   == building_type_f%fill    .AND.&
     4040                     water_type_f%var(j,i)      == water_type_f%fill )  THEN
     4041                   WRITE( message_string, * )                                  &
     4042                                 'At least one of the parameters '//           &
     4043                                 'vegetation_type, pavement_type, '  //        &
    40274044                                 'building_type, or water_type must be set '// &
    40284045                                 'to a non-missing value. Grid point: ', j, i
    4029                 CALL message( 'netcdf_data_input_mod', 'PA0563', 2, 2, myid, 6, 0 )
     4046                   CALL message( 'netcdf_data_input_mod', 'PA0563', 2, 2, myid, 6, 0 )
     4047                ENDIF
    40304048             ENDIF
     4049               
    40314050!
    40324051!--          Note that a soil_type is required for each location (y,x) where
Note: See TracChangeset for help on using the changeset viewer.