Changeset 1003 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Sep 14, 2012 2:35:53 PM (12 years ago)

Author:

raasch

Message:

subdomains must have identical size, i.e. grid_matching = "match" not allowed any more
parameter grid_matching removed
some obsolete variables removed

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
-!
+! nxra,nyna, nzta replaced ny nxr, nyn, nzt
 !
 ! Former revisions:
@@ -235 +235 @@
               z0h(nysg:nyng,nxlg:nxrg) )
 
-    ALLOCATE( d(nzb+1:nzta,nys:nyna,nxl:nxra),     &
+    ALLOCATE( d(nzb+1:nzt,nys:nyn,nxl:nxr),        &
               e_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),  &
               e_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg),  &