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

Timestamp:

Jul 27, 2007 9:09:17 AM (17 years ago)

Author:

raasch

Message:

preliminary version for coupled runs

File:

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

palm/trunk/SOURCE/swap_timelevel.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! swaping of uswst, vswst included
 !
 ! Former revisions:
@@ -136 +136 @@
                 ENDIF
                 IF ( use_top_fluxes )  THEN
+                   uswst_m => uswst_1;  uswst => uswst_2
+                   vswst_m => vswst_1;  vswst => vswst_2
                    tswst_m => tswst_1;  tswst => tswst_2
                    IF ( humidity  .OR.  passive_scalar )  THEN
@@ -184 +186 @@
                 ENDIF
                 IF ( use_top_fluxes )  THEN
-                   tswst_m  => tswst_2;  tswst => tswst_1
+                   uswst_m => uswst_2;  uswst => uswst_1
+                   vswst_m => vswst_2;  vswst => vswst_1
+                   tswst_m => tswst_2;  tswst => tswst_1
                    IF ( humidity  .OR.  passive_scalar )  THEN
                       qswst_m => qswst_2;  qswst => qswst_1