Changeset 861 for palm/trunk/SOURCE/modules.f90

Timestamp:

Mar 26, 2012 2:18:34 PM (12 years ago)

Author:

suehring

Message:

WS5 is available in combination with topography. Version number changed from 3.8 to 3.8a. Modification in init_pt_anomaly.

File:

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

palm/trunk/SOURCE/modules.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +wall_flags_0
+! -boundary_flags
+! +nzb_max
+! +adv_sca_1, +adv_mom_1
 !
 ! Former revisions:
@@ -422 +425 @@
 
     REAL    ::  pi = 3.141592654
-    REAL    ::  adv_sca_5, adv_sca_3, adv_mom_5, adv_mom_3
+    REAL    ::  adv_mom_1, adv_mom_3, adv_mom_5, adv_sca_1, adv_sca_3, adv_sca_5
     
 
@@ -913 +916 @@
                 nxlu, nxr, nxra, nxrg, nx_on_file, nny, ny = 0, ny_a, ny_o,    &
                 nya, nyn, nyna, nyng, nys, nysg, nysv, ny_on_file, nnz, nz = 0,&
-                nza, nzb, nzb_diff, nzt, nzta, nzt_diff               
+                nza, nzb, nzb_diff, nzb_max, nzt, nzta, nzt_diff
 
 
@@ -923 +926 @@
 
 
-    INTEGER, DIMENSION(:,:), ALLOCATABLE :: boundary_flags,                    &
-                ngp_2dh_outer, ngp_2dh_s_inner, mg_loc_ind, nzb_diff_s_inner,  &
-                nzb_diff_s_outer, nzb_diff_u, nzb_diff_v, nzb_inner, nzb_outer,&
-                nzb_s_inner, nzb_s_outer, nzb_u_inner, nzb_u_outer,            &
-                nzb_v_inner, nzb_v_outer, nzb_w_inner, nzb_w_outer, nzb_2d
+    INTEGER, DIMENSION(:,:), ALLOCATABLE :: ngp_2dh_outer, ngp_2dh_s_inner,    &
+                mg_loc_ind, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u,    &
+                nzb_diff_v, nzb_inner, nzb_outer, nzb_s_inner, nzb_s_outer,    &
+                nzb_u_inner, nzb_u_outer, nzb_v_inner, nzb_v_outer,            &
+                nzb_w_inner, nzb_w_outer, nzb_2d
 
     INTEGER, DIMENSION(:,:,:), POINTER ::  flags
 
-    INTEGER, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::  wall_flags_1,           &
-                wall_flags_2, wall_flags_3, wall_flags_4, wall_flags_5,        &
-                wall_flags_6, wall_flags_7, wall_flags_8, wall_flags_9,        &
-                wall_flags_10
+    INTEGER( KIND = SELECTED_INT_KIND(11) ), DIMENSION(:,:,:), ALLOCATABLE ::  &
+                wall_flags_0  ! need to have 34 Bit
+
+    INTEGER, DIMENSION(:,:,:), ALLOCATABLE,  TARGET ::                         &
+                wall_flags_1, wall_flags_2, wall_flags_3, wall_flags_4,        &
+                wall_flags_5, wall_flags_6, wall_flags_7, wall_flags_8,        &
+                wall_flags_9, wall_flags_10
+
 
     SAVE