Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_module.f90

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
     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
    2228!
    2329!
     
    2834! 1036 2012-10-22 13:43:42Z raasch
    2935! code put under GPL (PALM 3.9)
    30 !
    31 ! 220 2008-12-18 07:00:36Z raasch
    32 ! Former file user_interface.f90 split into one file per subroutine,
    33 ! revision history cleaned up
    34 !
    35 ! 159 2008-04-09 08:06:03Z raasch
    36 ! bugfix in user_read_restart_data
    37 ! small bugfixes for sample code (comments):
    38 ! - initialize ustvst with 0.0 as it is now computed only until nxr and nyn
    39 ! - two ALLOCATE statements moved from user_read_restart_data back to user_init
    40 ! - remove 'READ (13) u2_av' statement in user_read_restart_data
    41 ! +routines user_read_restart_data, user_spectra
    42 !
    43 ! RCS Log replace by Id keyword, revision history cleaned up
    44 !
    45 ! Revision 1.18  2006/06/02 15:25:00  raasch
    46 ! +change of grid-defining arguments in routine user_define_netcdf_grid,
    47 ! new argument "found" in user_data_output_2d and user_data_output_3d
    4836!
    4937! Revision 1.1  1998/03/24 15:29:04  raasch
     
    5745!------------------------------------------------------------------------------!
    5846
    59     INTEGER ::  dots_num_palm, user_idummy
    60     LOGICAL ::  user_defined_namelist_found = .FALSE.
    61     REAL    ::  user_rdummy
     47    USE kinds
     48
     49    IMPLICIT NONE
     50
     51    INTEGER(iwp) ::  dots_num_palm   !:
     52    INTEGER(iwp) ::  user_idummy     !:
     53   
     54    LOGICAL ::  user_defined_namelist_found = .FALSE.   !:
     55   
     56    REAL(wp) ::  user_rdummy   !:
    6257
    6358!
    6459!-- Sample for user-defined output
    65 !    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  u2, u2_av
    66 !    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  ustvst
     60!    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  u2       !: user defined array
     61!    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  u2_av    !: user defined array
     62!    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ustvst   !: user defined array
    6763
    6864    SAVE
Note: See TracChangeset for help on using the changeset viewer.