Changeset 4258 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Oct 7, 2019 1:29:08 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r4237 r4258 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Initialization of Obukhov lenght also at vertical surfaces (if allocated). 29 ! 30 ! 4237 2019-09-25 11:33:42Z knoop 28 31 ! Added missing OpenMP directives 29 32 ! … … 554 557 ! Description: 555 558 ! ------------ 556 !> Initializing actions for the surface layer routine. Basically, this involves 557 !> the preparation of a lookup table for the the bulk Richardson number vs 558 !> Obukhov length L when using the lookup table method. 559 !> Initializing actions for the surface layer routine. 559 560 !------------------------------------------------------------------------------! 560 561 SUBROUTINE init_surface_layer_fluxes … … 562 563 IMPLICIT NONE 563 564 565 INTEGER(iwp) :: l !< running index for vertical surface orientation 564 566 565 567 CALL location_message( 'initializing surface layer', 'start' ) … … 572 574 IF ( surf_lsm_h%ns >= 1 ) surf_lsm_h%ol = 1.0E10_wp 573 575 IF ( surf_usm_h%ns >= 1 ) surf_usm_h%ol = 1.0E10_wp 576 577 DO l = 0, 3 578 IF ( surf_def_v(l)%ns >= 1 .AND. & 579 ALLOCATED( surf_def_v(l)%ol ) ) surf_def_v(l)%ol = 1.0E10_wp 580 IF ( surf_lsm_v(l)%ns >= 1 .AND. & 581 ALLOCATED( surf_lsm_v(l)%ol ) ) surf_lsm_v(l)%ol = 1.0E10_wp 582 IF ( surf_usm_v(l)%ns >= 1 .AND. & 583 ALLOCATED( surf_usm_v(l)%ol ) ) surf_usm_v(l)%ol = 1.0E10_wp 584 ENDDO 585 574 586 ENDIF 575 587
Note: See TracChangeset
for help on using the changeset viewer.