Changeset 3256 for palm/trunk/SOURCE
 Timestamp:
 Sep 17, 2018 12:20:07 PM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/land_surface_model_mod.f90
r3248 r3256 25 25 !  26 26 ! $Id$ 27 ! Enable initialization of z0q for vegetation, pavement and water surfaces via 28 ! namelist input. 29 ! 30 ! 3248 20180914 09:42:06Z sward 27 31 ! Minor formating changes 28 32 ! … … 3140 3144 IF ( z0h_vegetation == 9999999.9_wp ) THEN 3141 3145 z0h_vegetation = vegetation_pars(ind_v_z0qh,vegetation_type) 3142 ENDIF 3146 ENDIF 3147 3148 IF ( z0q_vegetation == 9999999.9_wp ) THEN 3149 z0q_vegetation = vegetation_pars(ind_v_z0qh,vegetation_type) 3150 ENDIF 3143 3151 3144 3152 IF ( lambda_surface_stable == 9999999.9_wp ) THEN … … 3177 3185 surf_lsm_h%z0(m) = z0_vegetation 3178 3186 surf_lsm_h%z0h(m) = z0h_vegetation 3179 surf_lsm_h%z0q(m) = z0 h_vegetation3187 surf_lsm_h%z0q(m) = z0q_vegetation 3180 3188 surf_lsm_h%lambda_surface_s(m) = lambda_surface_stable 3181 3189 surf_lsm_h%lambda_surface_u(m) = lambda_surface_unstable … … 3206 3214 surf_lsm_v(l)%z0(m) = z0_vegetation 3207 3215 surf_lsm_v(l)%z0h(m) = z0h_vegetation 3208 surf_lsm_v(l)%z0q(m) = z0 h_vegetation3216 surf_lsm_v(l)%z0q(m) = z0q_vegetation 3209 3217 surf_lsm_v(l)%lambda_surface_s(m) = lambda_surface_stable 3210 3218 surf_lsm_v(l)%lambda_surface_u(m) = lambda_surface_unstable … … 3461 3469 z0h_water = water_pars(ind_w_z0h,water_type) 3462 3470 ENDIF 3471 3472 IF ( z0q_water == 9999999.9_wp ) THEN 3473 z0q_water = water_pars(ind_w_z0h,water_type) 3474 ENDIF 3463 3475 3464 3476 IF ( albedo_type == 9999999 .AND. albedo == 9999999.9_wp ) THEN … … 3479 3491 surf_lsm_h%z0(m) = z0_water 3480 3492 surf_lsm_h%z0h(m) = z0h_water 3481 surf_lsm_h%z0q(m) = z0 h_water3493 surf_lsm_h%z0q(m) = z0q_water 3482 3494 surf_lsm_h%lambda_surface_s(m) = 1.0E10_wp 3483 3495 surf_lsm_h%lambda_surface_u(m) = 1.0E10_wp … … 3500 3512 surf_lsm_v(l)%z0(m) = z0_water 3501 3513 surf_lsm_v(l)%z0h(m) = z0h_water 3502 surf_lsm_v(l)%z0q(m) = z0 h_water3514 surf_lsm_v(l)%z0q(m) = z0q_water 3503 3515 surf_lsm_v(l)%lambda_surface_s(m) = 1.0E10_wp 3504 3516 surf_lsm_v(l)%lambda_surface_u(m) = 1.0E10_wp … … 3712 3724 z0h_pavement = pavement_pars(ind_p_z0h,pavement_type) 3713 3725 ENDIF 3726 3727 IF ( z0q_pavement == 9999999.9_wp ) THEN 3728 z0q_pavement = pavement_pars(ind_p_z0h,pavement_type) 3729 ENDIF 3714 3730 3715 3731 IF ( pavement_heat_conduct == 9999999.9_wp ) THEN … … 3755 3771 surf_lsm_h%z0(m) = z0_pavement 3756 3772 surf_lsm_h%z0h(m) = z0h_pavement 3757 surf_lsm_h%z0q(m) = z0 h_pavement3773 surf_lsm_h%z0q(m) = z0q_pavement 3758 3774 surf_lsm_h%lambda_surface_s(m) = pavement_heat_conduct & 3759 3775 * ddz_soil(nzb_soil) & … … 3793 3809 surf_lsm_v(l)%z0(m) = z0_pavement 3794 3810 surf_lsm_v(l)%z0h(m) = z0h_pavement 3795 surf_lsm_v(l)%z0q(m) = z0 h_pavement3811 surf_lsm_v(l)%z0q(m) = z0q_pavement 3796 3812 surf_lsm_v(l)%lambda_surface_s(m) = pavement_heat_conduct & 3797 3813 * ddz_soil(nzb_soil) &
Note: See TracChangeset
for help on using the changeset viewer.