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

variable description added some routines

File:
1 edited

Legend:

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

    r3361 r3547  
    2626! -----------------
    2727! $Id$
     28! variables documented
     29!
     30! 3361 2018-10-16 20:39:37Z knoop
    2831! Modularization of all bulk cloud physics code components
    2932!
     
    337340       IMPLICIT NONE
    338341
    339        surf_vertical = .FALSE.
    340        downward      = .FALSE.
     342       surf_vertical = .FALSE. !< flag indicating vertically orientated surface elements
     343       downward      = .FALSE. !< flag indicating downward-facing surface elements
    341344!
    342345!--    Derive potential temperature and specific humidity at first grid level
     
    10361039       IMPLICIT NONE
    10371040
    1038        INTEGER(iwp) ::  i             !< running index x direction
    1039        INTEGER(iwp) ::  j             !< running index y direction
    1040        INTEGER(iwp) ::  k             !< running index z direction
    1041        INTEGER(iwp) ::  m             !< running index surface elements
    1042 
    1043        REAL(wp)     ::  u_i
    1044        REAL(wp)     ::  w_i
     1041       INTEGER(iwp) ::  i   !< running index x direction
     1042       INTEGER(iwp) ::  j   !< running index y direction
     1043       INTEGER(iwp) ::  k   !< running index z direction
     1044       INTEGER(iwp) ::  m   !< running index surface elements
     1045
     1046       REAL(wp)     ::  u_i !< u-component on xu-grid
     1047       REAL(wp)     ::  w_i !< w-component on xu-grid
    10451048
    10461049
     
    10711074       IMPLICIT NONE
    10721075
    1073        INTEGER(iwp) ::  i             !< running index x direction
    1074        INTEGER(iwp) ::  j             !< running index y direction
    1075        INTEGER(iwp) ::  k             !< running index z direction
    1076        INTEGER(iwp) ::  m             !< running index surface elements
    1077 
    1078        REAL(wp)     ::  v_i
    1079        REAL(wp)     ::  w_i
     1076       INTEGER(iwp) ::  i   !< running index x direction
     1077       INTEGER(iwp) ::  j   !< running index y direction
     1078       INTEGER(iwp) ::  k   !< running index z direction
     1079       INTEGER(iwp) ::  m   !< running index surface elements
     1080
     1081       REAL(wp)     ::  v_i !< v-component on yv-grid
     1082       REAL(wp)     ::  w_i !< w-component on yv-grid
    10801083
    10811084
     
    11051108       IMPLICIT NONE
    11061109
    1107        INTEGER(iwp) ::  i             !< running index x direction
    1108        INTEGER(iwp) ::  j             !< running index y direction
    1109        INTEGER(iwp) ::  k             !< running index z direction
    1110        INTEGER(iwp) ::  m             !< running index surface elements
    1111 
    1112        REAL(wp)     ::  u_i
    1113        REAL(wp)     ::  v_i
    1114        REAL(wp)     ::  w_i
     1110       INTEGER(iwp) ::  i   !< running index x direction
     1111       INTEGER(iwp) ::  j   !< running index y direction
     1112       INTEGER(iwp) ::  k   !< running index z direction
     1113       INTEGER(iwp) ::  m   !< running index surface elements
     1114
     1115       REAL(wp)     ::  u_i !< u-component on x-zw-grid
     1116       REAL(wp)     ::  v_i !< v-component on y-zw-grid
     1117       REAL(wp)     ::  w_i !< w-component on zw-grid
    11151118!
    11161119!--    North- (l=0) and south-facing (l=1) surfaces
     
    11571160       IMPLICIT NONE
    11581161
    1159        INTEGER(iwp) ::  i             !< running index x direction
    1160        INTEGER(iwp) ::  j             !< running index y direction
    1161        INTEGER(iwp) ::  k             !< running index z direction
    1162        INTEGER(iwp) ::  m             !< running index surface elements
    1163 
    1164        REAL(wp)     ::  u_i
    1165        REAL(wp)     ::  v_i
    1166        REAL(wp)     ::  w_i
     1162       INTEGER(iwp) ::  i   !< running index x direction
     1163       INTEGER(iwp) ::  j   !< running index y direction
     1164       INTEGER(iwp) ::  k   !< running index z direction
     1165       INTEGER(iwp) ::  m   !< running index surface elements
     1166
     1167       REAL(wp)     ::  u_i !< u-component on scalar grid
     1168       REAL(wp)     ::  v_i !< v-component on scalar grid
     1169       REAL(wp)     ::  w_i !< w-component on scalar grid
    11671170
    11681171!
Note: See TracChangeset for help on using the changeset viewer.