Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (7 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_mask.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! comment fields (!:) to be used for variable explanations added to
     26! all variable declaration statements
    2227!
    2328!
     
    2934! code put under GPL (PALM 3.9)
    3035!
    31 ! Initial version
    32 !
    3336! Description:
    3437! ------------
     
    3841
    3942    USE control_parameters
     43       
    4044    USE indices
     45   
     46    USE kinds
     47   
    4148    USE user
    4249
    4350    IMPLICIT NONE
    4451
    45     CHARACTER (LEN=*) ::  variable
     52    CHARACTER (LEN=*) ::  variable   !:
    4653
    47     INTEGER ::  av, i, j, k
     54    INTEGER(iwp) ::  av   !:
     55    INTEGER(iwp) ::  i    !:
     56    INTEGER(iwp) ::  j    !:
     57    INTEGER(iwp) ::  k    !:
    4858
    49     LOGICAL ::  found
     59    LOGICAL ::  found     !:
    5060
    51     REAL, DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2), &
    52                     mask_size_l(mid,3)) ::  local_pf
     61    REAL(wp),                                                                  &
     62       DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) ::  &
     63          local_pf   !:
    5364
    5465
     
    5768    SELECT CASE ( TRIM( variable ) )
    5869
    59 !
    6070!--    Uncomment and extend the following lines, if necessary.
    6171!--    The arrays for storing the user defined quantities (here u2 and u2_av)
     
    6777!               DO  j = 1, mask_size_l(mid,2)
    6878!                  DO  k = 1, mask_size_l(mid,3)
    69 !                      local_pf(i,j,k) = u2(mask_k(mid,k), &
     79!                      local_pf(i,j,k) = u2(mask_k(mid,k),                       &
    7080!                                           mask_j(mid,j),mask_i(mid,i))
    7181!                   ENDDO
     
    7686!               DO  j = 1, mask_size_l(mid,2)
    7787!                  DO  k = 1, mask_size_l(mid,3)
    78 !                      local_pf(i,j,k) = u2_av(mask_k(mid,k), &
     88!                      local_pf(i,j,k) = u2_av(mask_k(mid,k),                    &
    7989!                                              mask_j(mid,j),mask_i(mid,i))
    8090!                   ENDDO
     
    8292!             ENDDO
    8393!          ENDIF
    84 !
    8594
    8695       CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.