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_data_output_2d.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! revision history before 2012 removed,
     25! comment fields (!:) to be used for variable explanations added to
     26! all variable declaration statements
    2227!
    2328! Former revisions:
     
    2732! 1036 2012-10-22 13:43:42Z raasch
    2833! code put under GPL (PALM 3.9)
    29 !
    30 ! 667 2010-12-23 12:06:00Z suehring/gryschka
    31 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
    32 !
    33 ! 343 2009-06-24 12:59:09Z maronga
    34 ! +dummy argument two_d
    3534!
    3635! 211 2008-11-11 04:46:24Z raasch
     
    4544
    4645    USE indices
     46
     47    USE kinds
     48
    4749    USE user
    4850
    4951    IMPLICIT NONE
    5052
    51     CHARACTER (LEN=*) ::  grid, variable
     53    CHARACTER (LEN=*) ::  grid     !:
     54    CHARACTER (LEN=*) ::  variable !:
    5255
    53     INTEGER ::  av, i, j, k
     56    INTEGER(iwp) ::  av !:
     57    INTEGER(iwp) ::  i  !:
     58    INTEGER(iwp) ::  j  !:
     59    INTEGER(iwp) ::  k  !:
    5460
    55     LOGICAL ::  found, two_d
     61    LOGICAL      ::  found !:
     62    LOGICAL      ::  two_d !:
    5663
    57     REAL, DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nzt+1) ::  local_pf
     64    REAL(wp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nzt+1) ::  local_pf !:
    5865
    5966
Note: See TracChangeset for help on using the changeset viewer.