Ignore:
Timestamp:
Mar 22, 2007 9:54:05 AM (15 years ago)
Author:
raasch
Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/swap_timelevel.f90

    r39 r75  
    44! Actual revisions:
    55! -----------------
    6 !
     6! moisture renamed humidity
    77!
    88! Former revisions:
     
    5656                e_m => e_1;  e => e_2;  e_p => e_3
    5757             ENDIF
    58              IF ( moisture  .OR.  passive_scalar )  THEN
     58             IF ( humidity  .OR.  passive_scalar )  THEN
    5959                q_m => q_1;  q => q_2;  q_p => q_3
    6060             ENDIF
     
    6969                e_m => e_2;  e => e_3;  e_p => e_1
    7070             ENDIF
    71              IF ( moisture  .OR.  passive_scalar )  THEN
     71             IF ( humidity  .OR.  passive_scalar )  THEN
    7272                q_m => q_2;  q => q_3;  q_p => q_1
    7373             ENDIF
     
    8282                e_m => e_3;  e => e_1;  e_p => e_2
    8383             ENDIF
    84              IF ( moisture  .OR.  passive_scalar )  THEN
     84             IF ( humidity  .OR.  passive_scalar )  THEN
    8585                q_m => q_3;  q => q_1;  q_p => q_2
    8686             ENDIF
     
    105105                e => e_1;  e_p => e_2
    106106             ENDIF
    107              IF ( moisture  .OR.  passive_scalar )  THEN
     107             IF ( humidity  .OR.  passive_scalar )  THEN
    108108                q => q_1;  q_p => q_2
    109109             ENDIF
     
    119119                   vsws_m => vsws_1;  vsws => vsws_2
    120120                   shf_m  => shf_1;   shf  => shf_2
    121                    IF ( moisture  .OR.  passive_scalar )  THEN
     121                   IF ( humidity  .OR.  passive_scalar )  THEN
    122122                      qsws_m => qsws_1;  qsws => qsws_2
    123123                   ENDIF
     
    128128                IF ( use_top_fluxes )  THEN
    129129                   tswst_m => tswst_1;  tswst => tswst_2
    130                    IF ( moisture  .OR.  passive_scalar )  THEN
     130                   IF ( humidity  .OR.  passive_scalar )  THEN
    131131                      qswst_m => qswst_1;  qswst => qswst_2
    132132                   ENDIF
     
    134134             ENDIF
    135135
    136              IF ( moisture )  THEN
     136             IF ( humidity )  THEN
    137137                vpt_m => vpt_1;  vpt => vpt_2
    138138             ENDIF
     
    151151                e => e_2;  e_p => e_1
    152152             ENDIF
    153              IF ( moisture  .OR.  passive_scalar )  THEN
     153             IF ( humidity  .OR.  passive_scalar )  THEN
    154154                q => q_2;  q_p => q_1
    155155             ENDIF
     
    164164                   vsws_m => vsws_2;  vsws => vsws_1
    165165                   shf_m  => shf_2;   shf  => shf_1
    166                    IF ( moisture  .OR.  passive_scalar )  THEN
     166                   IF ( humidity  .OR.  passive_scalar )  THEN
    167167                      qsws_m => qsws_2;  qsws => qsws_1
    168168                   ENDIF
     
    173173                IF ( use_top_fluxes )  THEN
    174174                   tswst_m  => tswst_2;  tswst => tswst_1
    175                    IF ( moisture  .OR.  passive_scalar )  THEN
     175                   IF ( humidity  .OR.  passive_scalar )  THEN
    176176                      qswst_m => qswst_2;  qswst => qswst_1
    177177                   ENDIF
     
    179179             ENDIF
    180180
    181              IF ( moisture )  THEN
     181             IF ( humidity )  THEN
    182182                vpt_m => vpt_2;  vpt => vpt_1
    183183             ENDIF
Note: See TracChangeset for help on using the changeset viewer.