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

Timestamp:

Jul 12, 2016 4:34:24 PM (8 years ago)

Author:

suehring

Message:

Separate balance equations for humidity and passive_scalar

File:

• palm/trunk/SOURCE/parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/parin.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Allocation of s_init
 ! 
 ! Former revisions:
@@ -218 +218 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  pt_init, q_init, ref_state, sa_init, ug, u_init, v_init,        &
+        ONLY:  pt_init, q_init, ref_state, s_init, sa_init, ug, u_init, v_init,&
                vg
 
@@ -597 +597 @@
 !--          ATTENTION: in case of changes to the following statement please
 !--                  also check the allocate statement in routine read_var_list
-             ALLOCATE( pt_init(0:nz+1), q_init(0:nz+1),                       &
+             ALLOCATE( pt_init(0:nz+1), q_init(0:nz+1), s_init(0:nz+1),        &
                        ref_state(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),             &