Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (6 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

File:
1 edited

Legend:

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

    r1439 r1682  
    1  SUBROUTINE init_masks
    2 
     1!> @file init_masks.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    7877! Description:
    7978! ------------
    80 ! Initialize masked data output
     79!> Initialize masked data output
    8180!------------------------------------------------------------------------------!
     81 SUBROUTINE init_masks
    8282
    8383    USE arrays_3d,                                                             &
     
    112112    IMPLICIT NONE
    113113
    114     CHARACTER (LEN=6) ::  var  !:
    115     CHARACTER (LEN=7) ::  unit !:
     114    CHARACTER (LEN=6) ::  var  !<
     115    CHARACTER (LEN=7) ::  unit !<
    116116   
    117     CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask      !:
    118     CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask_user !:
    119 
    120     INTEGER(iwp) ::  i            !:
    121     INTEGER(iwp) ::  ilen         !:
    122     INTEGER(iwp) ::  ind(6)       !:
    123     INTEGER(iwp) ::  ind_array(1) !:
    124     INTEGER(iwp) ::  j            !:
    125     INTEGER(iwp) ::  k            !:
    126     INTEGER(iwp) ::  n            !:
    127     INTEGER(iwp) ::  sender       !:
     117    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask      !<
     118    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask_user !<
     119
     120    INTEGER(iwp) ::  i            !<
     121    INTEGER(iwp) ::  ilen         !<
     122    INTEGER(iwp) ::  ind(6)       !<
     123    INTEGER(iwp) ::  ind_array(1) !<
     124    INTEGER(iwp) ::  j            !<
     125    INTEGER(iwp) ::  k            !<
     126    INTEGER(iwp) ::  n            !<
     127    INTEGER(iwp) ::  sender       !<
    128128   
    129     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  tmp_array !:
    130 
    131     LOGICAL ::  found !:
     129    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  tmp_array !<
     130
     131    LOGICAL ::  found !<
    132132!
    133133!-- Allocation and initialization
     
    526526          CALL MPI_BCAST( mask_k_global(mid,:), nz+2, MPI_INTEGER, 0, comm2d, &
    527527                          ierr )
    528          
     528    
    529529       ENDIF
    530530
     
    546546 CONTAINS
    547547
     548!------------------------------------------------------------------------------!
     549! Description:
     550! ------------
     551!> Set local mask for each subdomain along 'dim' direction.
     552!------------------------------------------------------------------------------!
    548553    SUBROUTINE set_mask_locations( dim, dxyz, dxyz_string, nxyz, nxyz_string, &
    549554                                   lb, ub )
    550 !------------------------------------------------------------------------------!
    551 !
    552 ! Description:
    553 ! ------------
    554 ! Set local mask for each subdomain along 'dim' direction.
    555 !------------------------------------------------------------------------------!
    556555
    557556       IMPLICIT NONE
    558557
    559        CHARACTER (LEN=2) ::  dxyz_string !:
    560        CHARACTER (LEN=2) ::  nxyz_string !:
     558       CHARACTER (LEN=2) ::  dxyz_string !<
     559       CHARACTER (LEN=2) ::  nxyz_string !<
    561560       
    562        INTEGER(iwp)  ::  count       !:
    563        INTEGER(iwp)  ::  count_l     !:
    564        INTEGER(iwp)  ::  dim         !:
    565        INTEGER(iwp)  ::  m           !:
    566        INTEGER(iwp)  ::  loop_begin  !:
    567        INTEGER(iwp)  ::  loop_end    !:
    568        INTEGER(iwp)  ::  loop_stride !:
    569        INTEGER(iwp)  ::  lb          !:
    570        INTEGER(iwp)  ::  nxyz        !:
    571        INTEGER(iwp)  ::  ub          !:
     561       INTEGER(iwp)  ::  count       !<
     562       INTEGER(iwp)  ::  count_l     !<
     563       INTEGER(iwp)  ::  dim         !<
     564       INTEGER(iwp)  ::  m           !<
     565       INTEGER(iwp)  ::  loop_begin  !<
     566       INTEGER(iwp)  ::  loop_end    !<
     567       INTEGER(iwp)  ::  loop_stride !<
     568       INTEGER(iwp)  ::  lb          !<
     569       INTEGER(iwp)  ::  nxyz        !<
     570       INTEGER(iwp)  ::  ub          !<
    572571       
    573        REAL(wp)      ::  dxyz  !:
    574        REAL(wp)      ::  ddxyz !:
    575        REAL(wp)      ::  tmp1  !:
    576        REAL(wp)      ::  tmp2  !:
     572       REAL(wp)      ::  dxyz  !<
     573       REAL(wp)      ::  ddxyz !<
     574       REAL(wp)      ::  tmp1  !<
     575       REAL(wp)      ::  tmp2  !<
    577576
    578577       count = 0;  count_l = 0 
Note: See TracChangeset for help on using the changeset viewer.