Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (10 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_define_netcdf_grid.f90

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
     22! comment fields (!:) to be used for variable explanations added to
     23! all variable declaration statements
    2224!
    2325!
     
    3941!------------------------------------------------------------------------------!
    4042
     43    USE kinds
     44   
    4145    USE user
    4246
    4347    IMPLICIT NONE
    4448
    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   !:
    4653
    47     LOGICAL ::  found
     54    LOGICAL ::  found   !:
    4855
    4956
Note: See TracChangeset for help on using the changeset viewer.