Ignore:
Timestamp:
Nov 21, 2018 1:21:24 PM (3 years ago)
Author:
suehring
Message:

variable description added some routines

File:
1 edited

Legend:

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

    r3467 r3547  
    2626! -----------------
    2727! $Id$
     28! variables documented
     29!
     30! 3467 2018-10-30 19:05:21Z suehring
    2831! Bugfix in surface_wrd_local for cloud and rain water flux
    2932!
     
    473476       REAL(wp), DIMENSION(:), ALLOCATABLE ::  surfinlw            !< longwave radiation falling to local surface including radiation from reflections
    474477       REAL(wp), DIMENSION(:), ALLOCATABLE ::  surfoutlw           !< total longwave radiation outgoing from nonvirtual surfaces surfaces after all reflection
     478       
     479       REAL(wp), DIMENSION(:), ALLOCATABLE ::  n_vg_green          !< vangenuchten parameters
     480       REAL(wp), DIMENSION(:), ALLOCATABLE ::  alpha_vg_green      !< vangenuchten parameters
     481       REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_vg_green          !< vangenuchten parameters
    475482
    476483
     
    497504       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  tt_green_m        !< t_green prognostic array
    498505       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  zw_green          !< green layer depths (m)
    499        REAL(wp), DIMENSION(:), ALLOCATABLE ::  n_vg_green        !< vangenuchten parameters
    500        REAL(wp), DIMENSION(:), ALLOCATABLE ::  alpha_vg_green    !< vangenuchten parameters
    501        REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_vg_green    !< vangenuchten parameters
    502        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green_sat    !< hydraulic conductivity
     506
     507       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green_sat !< hydraulic conductivity
    503508       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  lambda_w_green
    504        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green    !< hydraulic conductivity
    505        REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tswc_h_m
     509       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green     !< hydraulic conductivity
     510       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  tswc_h_m
    506511
    507512
     
    625630       IMPLICIT NONE
    626631
    627        INTEGER(iwp) ::  i         !<
    628        INTEGER(iwp) ::  j         !<
    629        INTEGER(iwp) ::  k         !<
    630 
    631        INTEGER(iwp), DIMENSION(0:1) ::  num_h         !<
    632        INTEGER(iwp), DIMENSION(0:1) ::  num_h_kji     !<
    633        INTEGER(iwp), DIMENSION(0:1) ::  start_index_h !<
     632       INTEGER(iwp) ::  i         !< loop index along x-direction
     633       INTEGER(iwp) ::  j         !< loop index along y-direction
     634       INTEGER(iwp) ::  k         !< loop index along y-direction
     635
     636       INTEGER(iwp), DIMENSION(0:1) ::  num_h         !< number of surfaces
     637       INTEGER(iwp), DIMENSION(0:1) ::  num_h_kji     !< number of surfaces for (j,i)-grid point
     638       INTEGER(iwp), DIMENSION(0:1) ::  start_index_h !< local start index
    634639
    635640!
Note: See TracChangeset for help on using the changeset viewer.