Ignore:
Timestamp:
Jun 4, 2007 8:07:41 AM (14 years ago)
Author:
raasch
Message:

more preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r77 r96  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Output of density and salinity
    77!
    88! Former revisions:
     
    370370                IF ( mode == 'xy' )  level_z = zu
    371371
     372             CASE ( 'rho_xy', 'rho_xz', 'rho_yz' )
     373                IF ( av == 0 )  THEN
     374                   to_be_resorted => rho
     375                ELSE
     376                   to_be_resorted => rho_av
     377                ENDIF
     378
    372379             CASE ( 's_xy', 's_xz', 's_yz' )
    373380                IF ( av == 0 )  THEN
     
    375382                ELSE
    376383                   to_be_resorted => q_av
     384                ENDIF
     385
     386             CASE ( 'sa_xy', 'sa_xz', 'sa_yz' )
     387                IF ( av == 0 )  THEN
     388                   to_be_resorted => sa
     389                ELSE
     390                   to_be_resorted => sa_av
    377391                ENDIF
    378392
Note: See TracChangeset for help on using the changeset viewer.