Changeset 3547 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Nov 21, 2018 1:21:24 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r3361 r3547 26 26 ! ----------------- 27 27 ! $Id$ 28 ! variables documented 29 ! 30 ! 3361 2018-10-16 20:39:37Z knoop 28 31 ! Modularization of all bulk cloud physics code components 29 32 ! … … 337 340 IMPLICIT NONE 338 341 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 341 344 ! 342 345 !-- Derive potential temperature and specific humidity at first grid level … … 1036 1039 IMPLICIT NONE 1037 1040 1038 INTEGER(iwp) :: i 1039 INTEGER(iwp) :: j 1040 INTEGER(iwp) :: k 1041 INTEGER(iwp) :: m 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 1045 1048 1046 1049 … … 1071 1074 IMPLICIT NONE 1072 1075 1073 INTEGER(iwp) :: i 1074 INTEGER(iwp) :: j 1075 INTEGER(iwp) :: k 1076 INTEGER(iwp) :: m 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 1080 1083 1081 1084 … … 1105 1108 IMPLICIT NONE 1106 1109 1107 INTEGER(iwp) :: i 1108 INTEGER(iwp) :: j 1109 INTEGER(iwp) :: k 1110 INTEGER(iwp) :: m 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 1115 1118 ! 1116 1119 !-- North- (l=0) and south-facing (l=1) surfaces … … 1157 1160 IMPLICIT NONE 1158 1161 1159 INTEGER(iwp) :: i 1160 INTEGER(iwp) :: j 1161 INTEGER(iwp) :: k 1162 INTEGER(iwp) :: m 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 1167 1170 1168 1171 !
Note: See TracChangeset
for help on using the changeset viewer.