Changeset 147 for palm/trunk/SOURCE/parin.f90

Timestamp:

Feb 1, 2008 12:41:46 PM (16 years ago)

Author:

raasch

Message:

further updates for turbulent inflow: reading input data of a precursor run using a smaller total domain is working

File:

• palm/trunk/SOURCE/parin.f90 (modified) (1 diff)

palm/trunk/SOURCE/parin.f90

@@ -231 +231 @@
           CALL local_stop
        ENDIF
-
+!
+!--    ATTENTION: in case of changes to the following statement please also
+!--    check the allocate statement in routine read_var_list
        ALLOCATE( lad(0:nz+1),pt_init(0:nz+1), q_init(0:nz+1), sa_init(0:nz+1), &
                  ug(0:nz+1), u_init(0:nz+1), v_init(0:nz+1), vg(0:nz+1),       &