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

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/swap_timelevel.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! moisture renamed humidity
 !
 ! Former revisions:
@@ -56 +56 @@
                 e_m => e_1;  e => e_2;  e_p => e_3
              ENDIF
-             IF ( moisture  .OR.  passive_scalar )  THEN
+             IF ( humidity  .OR.  passive_scalar )  THEN
                 q_m => q_1;  q => q_2;  q_p => q_3
              ENDIF
@@ -69 +69 @@
                 e_m => e_2;  e => e_3;  e_p => e_1
              ENDIF
-             IF ( moisture  .OR.  passive_scalar )  THEN
+             IF ( humidity  .OR.  passive_scalar )  THEN
                 q_m => q_2;  q => q_3;  q_p => q_1
              ENDIF
@@ -82 +82 @@
                 e_m => e_3;  e => e_1;  e_p => e_2
              ENDIF
-             IF ( moisture  .OR.  passive_scalar )  THEN
+             IF ( humidity  .OR.  passive_scalar )  THEN
                 q_m => q_3;  q => q_1;  q_p => q_2
              ENDIF
@@ -105 +105 @@
                 e => e_1;  e_p => e_2
              ENDIF
-             IF ( moisture  .OR.  passive_scalar )  THEN
+             IF ( humidity  .OR.  passive_scalar )  THEN
                 q => q_1;  q_p => q_2
              ENDIF
@@ -119 +119 @@
                    vsws_m => vsws_1;  vsws => vsws_2
                    shf_m  => shf_1;   shf  => shf_2
-                   IF ( moisture  .OR.  passive_scalar )  THEN
+                   IF ( humidity  .OR.  passive_scalar )  THEN
                       qsws_m => qsws_1;  qsws => qsws_2
                    ENDIF
@@ -128 +128 @@
                 IF ( use_top_fluxes )  THEN
                    tswst_m => tswst_1;  tswst => tswst_2
-                   IF ( moisture  .OR.  passive_scalar )  THEN
+                   IF ( humidity  .OR.  passive_scalar )  THEN
                       qswst_m => qswst_1;  qswst => qswst_2
                    ENDIF
@@ -134 +134 @@
              ENDIF
 
-             IF ( moisture )  THEN
+             IF ( humidity )  THEN
                 vpt_m => vpt_1;  vpt => vpt_2
              ENDIF
@@ -151 +151 @@
                 e => e_2;  e_p => e_1
              ENDIF
-             IF ( moisture  .OR.  passive_scalar )  THEN
+             IF ( humidity  .OR.  passive_scalar )  THEN
                 q => q_2;  q_p => q_1
              ENDIF
@@ -164 +164 @@
                    vsws_m => vsws_2;  vsws => vsws_1
                    shf_m  => shf_2;   shf  => shf_1
-                   IF ( moisture  .OR.  passive_scalar )  THEN
+                   IF ( humidity  .OR.  passive_scalar )  THEN
                       qsws_m => qsws_2;  qsws => qsws_1
                    ENDIF
@@ -173 +173 @@
                 IF ( use_top_fluxes )  THEN
                    tswst_m  => tswst_2;  tswst => tswst_1
-                   IF ( moisture  .OR.  passive_scalar )  THEN
+                   IF ( humidity  .OR.  passive_scalar )  THEN
                       qswst_m => qswst_2;  qswst => qswst_1
                    ENDIF
@@ -179 +179 @@
              ENDIF
 
-             IF ( moisture )  THEN
+             IF ( humidity )  THEN
                 vpt_m => vpt_2;  vpt => vpt_1
              ENDIF