Changeset 1320 for palm/trunk/SOURCE/user_init_plant_canopy.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init_plant_canopy.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! kind-parameters added to all INTEGER and REAL declaration statements, 23 ! kinds are defined in new module kinds, 24 ! old module precision_kind is removed, 25 ! revision history before 2012 removed, 26 ! comment fields (!:) to be used for variable explanations added to 27 ! all variable declaration statements 28 ! 22 29 ! 23 30 ! Former revisions: … … 27 34 ! 1036 2012-10-22 13:43:42Z raasch 28 35 ! code put under GPL (PALM 3.9) 29 !30 ! 667 2010-12-23 12:06:00Z suehring/gryschka31 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng32 !33 ! 274 2009-03-26 15:11:21Z heinze34 ! Output of messages replaced by message handling routine.35 36 ! 36 37 ! 211 2008-11-11 04:46:24Z raasch … … 45 46 46 47 USE arrays_3d 48 47 49 USE control_parameters 50 48 51 USE indices 52 53 USE kinds 54 49 55 USE user 50 56 51 57 IMPLICIT NONE 52 58 53 INTEGER :: i, j 59 INTEGER(iwp) :: i !: 60 INTEGER(iwp) :: j !: 54 61 55 62 !
Note: See TracChangeset
for help on using the changeset viewer.