Changeset 1320 for palm/trunk/SOURCE/init_masks.f90

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:

• palm/trunk/SOURCE/init_masks.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -50 +55 @@
 ! 807 2012-01-25 11:53:51Z maronga
 ! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! 771 2011-10-27 10:56:21Z heinze
-! +lpt
-!
-! 595 2010-11-12 09:52:10Z helmke
-! Calculation of z locations for masked output changed
-!
-! 564 2010-09-30 13:18:59Z helmke
-! assignment of mask_xyz_loop added, palm message identifiers of masked output
-! changed 
-!/localdata/raasch.14299
-! 557 2010-09-07 14:50:07Z weinreis 
-! bugfix message string in set_mask_locations
-!
-! 553 2010-09-01 14:09:06Z weinreis
-! parameters for masked output are replaced by arrays
-!
-! 493 2010-03-01 08:30:24Z raasch
-! netcdf_format_mask* and format_parallel_io replaced by netcdf_data_format
 !
 ! 410 2009-12-04 17:05:40Z letzel
@@ -79 +65 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE grid_variables
-    USE indices
-    USE netcdf_control
-    USE particle_attributes
+    USE arrays_3d,                                                             &
+        ONLY:  zu, zw
+
+    USE control_parameters,                                                    &
+        ONLY:  constant_diffusion, cloud_droplets, cloud_physics,              &
+               data_output_masks, data_output_masks_user,                      &
+               doav, doav_n, domask, domask_no, dz, dz_stretch_level, humidity,&
+               mask, masks, mask_scale, mask_i,                                &
+               mask_i_global, mask_j, mask_j_global, mask_k, mask_k_global,    &
+               mask_loop, mask_size, mask_size_l, mask_start_l, mask_x,        &
+               mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
+               mask_z_loop, max_masks,  message_string, mid,                   &
+               netcdf_data_format, passive_scalar, ocean
+
+    USE grid_variables,                                                        &
+        ONLY:  dx, dy
+
+    USE indices,                                                               &
+        ONLY:  nx, nxl, nxr, ny, nyn, nys, nz, nzb, nzt
+
+    USE kinds
+
+    USE netcdf_control,                                                        &
+        ONLY:  domask_unit
+
+    USE particle_attributes,                                                   &
+        ONLY:  particle_advection
+
     USE pegrid
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=6)   ::  var
-    CHARACTER (LEN=7)   ::  unit
-    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask, do_mask_user
-
-    INTEGER :: i, ilen, ind(6), ind_array(1), j, k, n, sender
-    INTEGER, DIMENSION(:), ALLOCATABLE ::  tmp_array
-
-    LOGICAL ::  found
+    CHARACTER (LEN=6) ::  var  !:
+    CHARACTER (LEN=7) ::  unit !:
+    
+    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask      !:
+    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask_user !:
+
+    INTEGER(iwp) ::  i            !: 
+    INTEGER(iwp) ::  ilen         !:
+    INTEGER(iwp) ::  ind(6)       !:
+    INTEGER(iwp) ::  ind_array(1) !:
+    INTEGER(iwp) ::  j            !:
+    INTEGER(iwp) ::  k            !:
+    INTEGER(iwp) ::  n            !:
+    INTEGER(iwp) ::  sender       !:
+    
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  tmp_array !:
+
+    LOGICAL ::  found !:
 !
 !-- Allocation and initialization
@@ -480 +498 @@
        IMPLICIT NONE
 
-       CHARACTER (LEN=2) :: dxyz_string, nxyz_string
-       INTEGER  ::  count, count_l, dim, m, loop_begin, loop_end, loop_stride, &
-                    lb, nxyz, ub
-       REAL     ::  dxyz, ddxyz, tmp1, tmp2
+       CHARACTER (LEN=2) ::  dxyz_string !:
+       CHARACTER (LEN=2) ::  nxyz_string !:
+       
+       INTEGER(iwp)  ::  count       !:
+       INTEGER(iwp)  ::  count_l     !:
+       INTEGER(iwp)  ::  dim         !:
+       INTEGER(iwp)  ::  m           !:
+       INTEGER(iwp)  ::  loop_begin  !:
+       INTEGER(iwp)  ::  loop_end    !:
+       INTEGER(iwp)  ::  loop_stride !:
+       INTEGER(iwp)  ::  lb          !:
+       INTEGER(iwp)  ::  nxyz        !:
+       INTEGER(iwp)  ::  ub          !:
+       
+       REAL(wp)      ::  dxyz  !:
+       REAL(wp)      ::  ddxyz !:
+       REAL(wp)      ::  tmp1  !:
+       REAL(wp)      ::  tmp2  !:
 
        count = 0;  count_l = 0;  ddxyz = 1.0 / dxyz;  tmp1 = 0.0;  tmp2 = 0.0