Ignore:
Timestamp:
Jan 14, 2019 12:49:24 PM (3 years ago)
Author:
maronga
Message:

removed most_methods circular and lookup. added improved version of palm_csd

File:
1 edited

Legend:

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

    r3655 r3668  
    2525! -----------------
    2626! $Id$
     27! Removed most_method
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! nopointer option removed
    2831!
     
    13241327
    13251328    USE control_parameters,                                                    &
    1326         ONLY:  bc_pt_b, bc_q_b, constant_flux_layer, message_string,           &
    1327                most_method
     1329        ONLY:  bc_pt_b, bc_q_b, constant_flux_layer, message_string
    13281330                     
    13291331   
     
    14461448   
    14471449    IF ( TRIM( surface_type ) == 'water' )  THEN
    1448 
    1449        IF ( TRIM( most_method ) == 'lookup' )  THEN   
    1450           WRITE( message_string, * ) 'surface_type = ', surface_type,          &
    1451                                      ' is not allowed in combination with ',   &
    1452                                      'most_method = ', most_method
    1453           CALL message( 'lsm_check_parameters', 'PA0414', 1, 2, 0, 6, 0 )
    1454        ENDIF
    14551450
    14561451       IF ( water_type == 0 )  THEN 
     
    15311526
    15321527    IF ( TRIM( surface_type ) == 'netcdf' )  THEN
    1533        IF ( ANY( water_type_f%var /= water_type_f%fill )  .AND.                &
    1534             TRIM( most_method ) == 'lookup' )  THEN   
    1535           WRITE( message_string, * ) 'water-surfaces are not allowed in ' //   &
    1536                                      'combination with most_method = ',        &
    1537                                      TRIM( most_method )
    1538           CALL message( 'lsm_check_parameters', 'PA0999', 2, 2, 0, 6, 0 )
    1539        ENDIF
    15401528!
    15411529!--    MS: Some problme here, after calling message everythings stucks at
Note: See TracChangeset for help on using the changeset viewer.