Ignore:
Timestamp:
Apr 24, 2017 3:10:35 PM (4 years ago)
Author:
kanani
Message:

bugfix in PCM output, minor formatting and clean-up

File:
1 edited

Legend:

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

    r2210 r2213  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Removal of output quantities usm_lad and usm_canopy_hr
    2424!
    2525! Former revisions:
     
    20052005                  var(1:11) == 'usm_surfalb'  .OR.  var(1:12) == 'usm_surfemis')  THEN
    20062006            unit = '1'
    2007         ELSE IF ( plant_canopy  .AND.  var(1:7) == 'usm_lad' )  THEN
    2008             unit = 'm2/m3'
    2009         ELSE IF ( plant_canopy  .AND.  var(1:13) == 'usm_canopy_hr' )  THEN
    2010             unit = 'K/s'
    20112007        ELSE
    20122008            unit = 'illegal'
     
    24012397                 ENDIF
    24022398              ENDDO
    2403 
    2404           CASE ( 'usm_lad' )
    2405 !--           leaf area density
    2406               DO i = nxl, nxr
    2407                  DO j = nys, nyn
    2408                      DO k = nzb_s_inner(j,i), nzut
    2409                          temp_pf(k,j,i) = lad_s(k-nzb_s_inner(j,i),j,i)
    2410                      ENDDO
    2411                  ENDDO
    2412               ENDDO
    2413              
    2414           CASE ( 'usm_canopy_hr' )
    2415 !--           canopy heating rate
    2416               DO i = nxl, nxr
    2417                  DO j = nys, nyn
    2418                      DO k = nzb_s_inner(j,i), nzut
    2419                          temp_pf(k,j,i) = pc_heating_rate(k-nzb_s_inner(j,i),j,i)
    2420                      ENDDO
    2421                  ENDDO
    2422               ENDDO
    24232399             
    24242400          CASE DEFAULT
     
    24712447             var(1:9) == 'usm_surfz'  .OR.  var(1:7) == 'usm_svf'  .OR.                     &
    24722448             var(1:7) == 'usm_dif'  .OR.  var(1:11) == 'usm_surfcat'  .OR.                  &
    2473              var(1:11) == 'usm_surfalb'  .OR.  var(1:12) == 'usm_surfemis'  .OR.            &
    2474              var(1:7) == 'usm_lad'  .OR.  var(1:13) == 'usm_canopy_hr' )  THEN
     2449             var(1:11) == 'usm_surfalb'  .OR.  var(1:12) == 'usm_surfemis' )  THEN
    24752450
    24762451            found = .TRUE.
Note: See TracChangeset for help on using the changeset viewer.