Changeset 1320 for palm/trunk/SOURCE/user_define_netcdf_grid.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_define_netcdf_grid.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! comment fields (!:) to be used for variable explanations added to 23 ! all variable declaration statements 22 24 ! 23 25 ! … … 39 41 !------------------------------------------------------------------------------! 40 42 43 USE kinds 44 41 45 USE user 42 46 43 47 IMPLICIT NONE 44 48 45 CHARACTER (LEN=*) :: grid_x, grid_y, grid_z, variable 49 CHARACTER (LEN=*) :: grid_x !: 50 CHARACTER (LEN=*) :: grid_y !: 51 CHARACTER (LEN=*) :: grid_z !: 52 CHARACTER (LEN=*) :: variable !: 46 53 47 LOGICAL :: found 54 LOGICAL :: found !: 48 55 49 56
Note: See TracChangeset
for help on using the changeset viewer.