Changeset 1320 for palm/trunk/SOURCE/user_init.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! revision history before 2012 removed, 23 ! comment fields (!:) to be used for variable explanations added to 24 ! all variable declaration statements 25 ! 22 26 ! 23 27 ! Former revisions: … … 27 31 ! 1036 2012-10-22 13:43:42Z raasch 28 32 ! 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 ! 33 34 ! 211 2008-11-11 04:46:24Z raasch … … 40 41 41 42 USE control_parameters 43 42 44 USE indices 45 46 USE kinds 47 43 48 USE netcdf_control 49 44 50 USE pegrid 51 45 52 USE user 46 53 47 54 IMPLICIT NONE 48 55 49 CHARACTER (LEN=20) :: field_char 56 CHARACTER (LEN=20) :: field_char !: 50 57 ! 51 58 !-- Here the user-defined initializing actions follow:
Note: See TracChangeset
for help on using the changeset viewer.