Ignore:
Timestamp:
Sep 17, 2018 10:53:57 AM (3 years ago)
Author:
suehring
Message:

Additional checks for surface_fractions and building_id; Remove redundant subroutine argument in surface_mod

File:
1 edited

Legend:

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

    r3253 r3254  
    2626! -----------------
    2727! $Id$
     28! Remove redundant subroutine argument
     29!
     30! 3253 2018-09-17 08:39:12Z suehring
    2831! Bugfix, missing deallocation of q_surface
    2932!
     
    18151818                                 topo_no_distinct
    18161819                      IF ( urban_surface  .AND.  building )  THEN
    1817                          CALL initialize_vertical_surfaces( 0, k, j, i,        &
     1820                         CALL initialize_vertical_surfaces( k, j, i,           &
    18181821                                                            surf_usm_v(0),     &
    18191822                                                            num_usm_v(0),      &
     
    18221825                                                            .FALSE., .TRUE. )
    18231826                      ELSEIF ( land_surface  .AND.  terrain )  THEN
    1824                          CALL initialize_vertical_surfaces( 0, k, j, i,        &
     1827                         CALL initialize_vertical_surfaces( k, j, i,           &
    18251828                                                            surf_lsm_v(0),     &
    18261829                                                            num_lsm_v(0),      &
     
    18291832                                                            .FALSE., .TRUE. )
    18301833                      ELSE
    1831                          CALL initialize_vertical_surfaces( 0, k, j, i,        &
     1834                         CALL initialize_vertical_surfaces( k, j, i,           &
    18321835                                                            surf_def_v(0),     &
    18331836                                                            num_def_v(0),      &
     
    18471850                                 topo_no_distinct
    18481851                      IF ( urban_surface  .AND.  building )  THEN
    1849                          CALL initialize_vertical_surfaces( 1, k, j, i,        &
     1852                         CALL initialize_vertical_surfaces( k, j, i,           &
    18501853                                                            surf_usm_v(1),     &
    18511854                                                            num_usm_v(1),      &
     
    18541857                                                            .TRUE., .FALSE. )
    18551858                      ELSEIF ( land_surface  .AND.  terrain )  THEN
    1856                          CALL initialize_vertical_surfaces( 1, k, j, i,        &
     1859                         CALL initialize_vertical_surfaces( k, j, i,           &
    18571860                                                            surf_lsm_v(1),     &
    18581861                                                            num_lsm_v(1),      &
     
    18611864                                                            .TRUE., .FALSE. ) 
    18621865                      ELSE
    1863                          CALL initialize_vertical_surfaces( 1, k, j, i,        &
     1866                         CALL initialize_vertical_surfaces( k, j, i,           &
    18641867                                                            surf_def_v(1),     &
    18651868                                                            num_def_v(1),      &
     
    18791882                                 topo_no_distinct
    18801883                      IF ( urban_surface  .AND.  building )  THEN
    1881                          CALL initialize_vertical_surfaces( 2, k, j, i,        &
     1884                         CALL initialize_vertical_surfaces( k, j, i,           &
    18821885                                                            surf_usm_v(2),     &
    18831886                                                            num_usm_v(2),      &
     
    18861889                                                            .FALSE., .FALSE. )
    18871890                      ELSEIF ( land_surface  .AND.  terrain )  THEN
    1888                          CALL initialize_vertical_surfaces( 2, k, j, i,        &
     1891                         CALL initialize_vertical_surfaces( k, j, i,           &
    18891892                                                            surf_lsm_v(2),     &
    18901893                                                            num_lsm_v(2),      &
     
    18931896                                                            .FALSE., .FALSE. )
    18941897                      ELSE
    1895                          CALL initialize_vertical_surfaces( 2, k, j, i,        &
     1898                         CALL initialize_vertical_surfaces( k, j, i,           &
    18961899                                                            surf_def_v(2),     &
    18971900                                                            num_def_v(2),      &
     
    19111914                                 topo_no_distinct
    19121915                      IF ( urban_surface  .AND.  building )  THEN
    1913                          CALL initialize_vertical_surfaces( 3, k, j, i,        &
     1916                         CALL initialize_vertical_surfaces( k, j, i,           &
    19141917                                                            surf_usm_v(3),     &
    19151918                                                            num_usm_v(3),      &
     
    19181921                                                           .FALSE., .FALSE. )
    19191922                      ELSEIF ( land_surface  .AND.  terrain )  THEN
    1920                          CALL initialize_vertical_surfaces( 3, k, j, i,        &
     1923                         CALL initialize_vertical_surfaces( k, j, i,           &
    19211924                                                            surf_lsm_v(3),     &
    19221925                                                            num_lsm_v(3),      &
     
    19251928                                                           .FALSE., .FALSE. )
    19261929                      ELSE
    1927                          CALL initialize_vertical_surfaces( 3, k, j, i,        &
     1930                         CALL initialize_vertical_surfaces( k, j, i,           &
    19281931                                                            surf_def_v(3),     &
    19291932                                                            num_def_v(3),      &
     
    23572360!> Initialize vertical surface elements.
    23582361!------------------------------------------------------------------------------!
    2359           SUBROUTINE initialize_vertical_surfaces( l, k, j, i, surf, num_v,    &
    2360                                                 num_v_kji, east_facing,        &
    2361                                                 west_facing, south_facing,     &
    2362                                                 north_facing )       
     2362          SUBROUTINE initialize_vertical_surfaces( k, j, i, surf, num_v,       &
     2363                                                   num_v_kji, east_facing,     &
     2364                                                   west_facing, south_facing,  &
     2365                                                   north_facing )       
    23632366
    23642367             IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.