Changeset 3382 for palm/trunk


Ignore:
Timestamp:
Oct 19, 2018 1:10:32 PM (6 years ago)
Author:
knoop
Message:

Bugix: made array declaration in urban_surface_mod Fortran Standard conform

File:
1 edited

Legend:

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

    r3378 r3382  
    2828! -----------------
    2929! $Id$
     30! Bugix: made array declaration Fortran Standard conform
     31!
     32! 3378 2018-10-19 12:34:59Z kanani
    3033! merge from radiation branch (r3362) into trunk
    3134! (moh.hefny):
     
    24132416        INTEGER(iwp), PARAMETER                       :: nl1 = 32     !< number of directional usm variables
    24142417        CHARACTER(LEN=varnamelength), DIMENSION(nl1)  :: varlist1 = & !< list of directional usm variables
    2415                   (/'usm_rad_net','usm_rad_insw','usm_rad_inlw','usm_rad_inswdir',     &
    2416                     'usm_rad_inswdif','usm_rad_inswref','usm_rad_inlwdif','usm_wshf',  &
    2417                     'usm_rad_inlwref','usm_rad_outsw','usm_rad_outlw','usm_rad_hf',    &
    2418                     'usm_rad_ressw','usm_rad_reslw','usm_wghf','usm_wghf_window',      &
    2419                     'usm_wghf_green','usm_iwghf','usm_iwghf_window','usm_surfz',       &
    2420                     'usm_surfwintrans','usm_surfcat','usm_surfalb','usm_surfemis',     &
    2421                     'usm_t_surf','usm_t_surf_window','usm_t_surf_green','usm_t_green', &
    2422                     'usm_t_surf_10cm','usm_t_wall','usm_t_window','usm_t_green'/)
     2418                  (/'usm_rad_net                   ', &
     2419                    'usm_rad_insw                  ', &
     2420                    'usm_rad_inlw                  ', &
     2421                    'usm_rad_inswdir               ', &
     2422                    'usm_rad_inswdif               ', &
     2423                    'usm_rad_inswref               ', &
     2424                    'usm_rad_inlwdif               ', &
     2425                    'usm_wshf                      ', &
     2426                    'usm_rad_inlwref               ', &
     2427                    'usm_rad_outsw                 ', &
     2428                    'usm_rad_outlw                 ', &
     2429                    'usm_rad_hf                    ', &
     2430                    'usm_rad_ressw                 ', &
     2431                    'usm_rad_reslw                 ', &
     2432                    'usm_wghf                      ', &
     2433                    'usm_wghf_window               ', &
     2434                    'usm_wghf_green                ', &
     2435                    'usm_iwghf                     ', &
     2436                    'usm_iwghf_window              ', &
     2437                    'usm_surfz                     ', &
     2438                    'usm_surfwintrans              ', &
     2439                    'usm_surfcat                   ', &
     2440                    'usm_surfalb                   ', &
     2441                    'usm_surfemis                  ', &
     2442                    'usm_t_surf                    ', &
     2443                    'usm_t_surf_window             ', &
     2444                    'usm_t_surf_green              ', &
     2445                    'usm_t_green                   ', &
     2446                    'usm_t_surf_10cm               ', &
     2447                    'usm_t_wall                    ', &
     2448                    'usm_t_window                  ', &
     2449                    'usm_t_green                   '/)
    24232450
    24242451        INTEGER(iwp), PARAMETER                       :: nl2 = 9      !< number of other variables
    24252452        CHARACTER(LEN=varnamelength), DIMENSION(nl2)  :: varlist2 = & !< list of other usm variables
    2426                   (/'usm_skyvf','usm_skyvft','usm_svf','usm_dif','usm_rad_pc_inlw',    &
    2427                   'usm_rad_pc_insw','usm_rad_pc_inswdir','usm_rad_pc_inswdif',         &
    2428                   'usm_rad_pc_inswref'/)
     2453                  (/'usm_skyvf                     ', &
     2454                    'usm_skyvft                    ', &
     2455                    'usm_svf                       ', &
     2456                    'usm_dif                       ', &
     2457                    'usm_rad_pc_inlw               ', &
     2458                    'usm_rad_pc_insw               ', &
     2459                    'usm_rad_pc_inswdir            ', &
     2460                    'usm_rad_pc_inswdif            ', &
     2461                    'usm_rad_pc_inswref            '/)
    24292462
    24302463        INTEGER(iwp), PARAMETER                       :: nd = 5     !< number of directions
Note: See TracChangeset for help on using the changeset viewer.