Ignore:
Timestamp:
Jun 2, 2007 4:48:38 PM (14 years ago)
Author:
raasch
Message:

further preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r77 r95  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Swaping of salinity
    77!
    88! Former revisions:
     
    106106             pt => pt_1;  pt_p => pt_2
    107107             IF ( .NOT. constant_diffusion )  THEN
    108                 e => e_1;  e_p => e_2
    109              ENDIF
    110              IF ( humidity  .OR.  passive_scalar )  THEN
    111                 q => q_1;  q_p => q_2
     108                e => e_1;    e_p => e_2
     109             ENDIF
     110             IF ( ocean )  THEN
     111                sa => sa_1;  sa_p => sa_2
     112             ENDIF
     113             IF ( humidity  .OR.  passive_scalar )  THEN
     114                q => q_1;    q_p => q_2
    112115             ENDIF
    113116
     
    152155             pt => pt_2;  pt_p => pt_1
    153156             IF ( .NOT. constant_diffusion )  THEN
    154                 e => e_2;  e_p => e_1
    155              ENDIF
    156              IF ( humidity  .OR.  passive_scalar )  THEN
    157                 q => q_2;  q_p => q_1
     157                e => e_2;    e_p => e_1
     158             ENDIF
     159             IF ( ocean )  THEN
     160                sa => sa_2;  sa_p => sa_1
     161             ENDIF
     162             IF ( humidity  .OR.  passive_scalar )  THEN
     163                q => q_2;    q_p => q_1
    158164             ENDIF
    159165
Note: See TracChangeset for help on using the changeset viewer.