Changeset 3547 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Nov 21, 2018 1:21:24 PM (6 years ago)

Author:

suehring

Message:

variable description added some routines

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3467 2018-10-30 19:05:21Z suehring
 ! Bugfix in surface_wrd_local for cloud and rain water flux
 ! 
@@ -473 +476 @@
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  surfinlw            !< longwave radiation falling to local surface including radiation from reflections
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  surfoutlw           !< total longwave radiation outgoing from nonvirtual surfaces surfaces after all reflection
+       
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  n_vg_green          !< vangenuchten parameters
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  alpha_vg_green      !< vangenuchten parameters
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_vg_green          !< vangenuchten parameters
 
 
@@ -497 +504 @@
        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  tt_green_m        !< t_green prognostic array 
        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  zw_green          !< green layer depths (m)
-       REAL(wp), DIMENSION(:), ALLOCATABLE ::  n_vg_green        !< vangenuchten parameters
-       REAL(wp), DIMENSION(:), ALLOCATABLE ::  alpha_vg_green    !< vangenuchten parameters
-       REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_vg_green    !< vangenuchten parameters
-       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green_sat    !< hydraulic conductivity
+
+       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green_sat !< hydraulic conductivity
        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  lambda_w_green
-       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green    !< hydraulic conductivity
-       REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tswc_h_m
+       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  gamma_w_green     !< hydraulic conductivity
+       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  tswc_h_m
 
 
@@ -625 +630 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i         !<
-       INTEGER(iwp) ::  j         !<
-       INTEGER(iwp) ::  k         !<
-
-       INTEGER(iwp), DIMENSION(0:1) ::  num_h         !<
-       INTEGER(iwp), DIMENSION(0:1) ::  num_h_kji     !<
-       INTEGER(iwp), DIMENSION(0:1) ::  start_index_h !<
+       INTEGER(iwp) ::  i         !< loop index along x-direction
+       INTEGER(iwp) ::  j         !< loop index along y-direction
+       INTEGER(iwp) ::  k         !< loop index along y-direction
+
+       INTEGER(iwp), DIMENSION(0:1) ::  num_h         !< number of surfaces
+       INTEGER(iwp), DIMENSION(0:1) ::  num_h_kji     !< number of surfaces for (j,i)-grid point
+       INTEGER(iwp), DIMENSION(0:1) ::  start_index_h !< local start index
 
 !