Changeset 1053 for palm/trunk/SOURCE/swap_timelevel.f90

Timestamp:

Nov 13, 2012 5:11:03 PM (11 years ago)

Author:

hoffmann

Message:

two-moment cloud physics implemented

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/swap_timelevel.f90 (modified) (4 diffs)

palm/trunk/SOURCE/swap_timelevel.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! swap of timelevels for nr, qr added
 ! 
-!
 ! Former revisions:
 ! -----------------
@@ -91 +91 @@
     ENDIF
     IF ( humidity  .OR.  passive_scalar )  THEN
-       q = q_p
+       q = q_p             
+       IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
+          qr = qr_p
+          nr = nr_p
+       ENDIF
     ENDIF
 
@@ -116 +120 @@
           IF ( humidity  .OR.  passive_scalar )  THEN
              q => q_1;    q_p => q_2
+             IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
+                qr => qr_1;    qr_p => qr_2
+                nr => nr_1;    nr_p => nr_2
+             ENDIF
           ENDIF
 
@@ -135 +143 @@
           IF ( humidity  .OR.  passive_scalar )  THEN
              q => q_2;    q_p => q_1
+             IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
+                qr => qr_2;    qr_p => qr_1
+                nr => nr_2;    nr_p => nr_1
+             ENDIF
           ENDIF