Changeset 1682 for palm/trunk/SOURCE/user_init_land_surface.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init_land_surface.f90
r1586 r1682 1 SUBROUTINE user_init_land_surface 2 1 !> @file user_init_land_surface.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ----------------- 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 34 33 ! Description: 35 34 ! ------------ 36 ! Execution of user-defined actions to initiate the land surface model35 !> Execution of user-defined actions to initiate the land surface model 37 36 !------------------------------------------------------------------------------! 37 SUBROUTINE user_init_land_surface 38 38 39 39 40 USE arrays_3d … … 51 52 IMPLICIT NONE 52 53 53 INTEGER(iwp) :: i ! :running index54 INTEGER(iwp) :: j ! :running index54 INTEGER(iwp) :: i !< running index 55 INTEGER(iwp) :: j !< running index 55 56 56 57 !
Note: See TracChangeset
for help on using the changeset viewer.