Ignore:
Timestamp:
Oct 24, 2018 6:39:32 PM (3 years ago)
Author:
gronemeier
Message:

new surface-data output; renamed output variables (pt to theta, rho_air to rho, rho_ocean to rho_sea_water)

File:
1 edited

Legend:

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

    r3381 r3421  
    2525! -----------------
    2626! $Id$
     27! Renamed output variables
     28!
     29! 3381 2018-10-19 13:09:06Z raasch
    2730! spin-up cooling for ocean surface implemented, see new parameter
    2831! surface_cooling_spinup_time
     
    674677    SELECT CASE ( TRIM( var ) )
    675678
    676        CASE ( 'rho_ocean' )
     679       CASE ( 'rho_sea_water' )
    677680          unit = 'kg/m3'
    678681
     
    723726          unit = dopr_unit
    724727
    725        CASE ( 'rho_ocean' )
     728       CASE ( 'rho_sea_water' )
    726729          dopr_index(var_count) = 64
    727730          dopr_unit             = 'kg/m3'
     
    797800    SELECT CASE ( TRIM( var ) )
    798801
    799        CASE ( 'rho_ocean', 'sa' )
     802       CASE ( 'rho_sea_water', 'rho_sea_water_xy', 'rho_sea_water_xz', &
     803              'rho_sea_water_yz', 'sa', 'sa_xy', 'sa_xz', 'sa_yz' )
    800804          grid_x = 'x'
    801805          grid_y = 'y'
     
    846850       SELECT CASE ( TRIM( variable ) )
    847851
    848           CASE ( 'rho_ocean' )
     852          CASE ( 'rho_sea_water' )
    849853             IF ( .NOT. ALLOCATED( rho_ocean_av ) )  THEN
    850854                ALLOCATE( rho_ocean_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     
    867871       SELECT CASE ( TRIM( variable ) )
    868872
    869           CASE ( 'rho_ocean' )
     873          CASE ( 'rho_sea_water' )
    870874             IF ( ALLOCATED( rho_ocean_av ) )  THEN
    871875                DO  i = nxlg, nxrg
     
    899903       SELECT CASE ( TRIM( variable ) )
    900904
    901           CASE ( 'rho_ocean' )
     905          CASE ( 'rho_sea_water' )
    902906             IF ( ALLOCATED( rho_ocean_av ) ) THEN
    903907                DO  i = nxlg, nxrg
     
    980984    SELECT CASE ( TRIM( variable ) )
    981985
    982        CASE ( 'rho_ocean_xy', 'rho_ocean_xz', 'rho_ocean_yz' )
     986       CASE ( 'rho_sea_water_xy', 'rho_sea_water_xz', 'rho_sea_water_yz' )
    983987          IF ( av == 0 )  THEN
    984988             to_be_resorted => rho_ocean
     
    10731077    SELECT CASE ( TRIM( variable ) )
    10741078
    1075        CASE ( 'rho_ocean' )
     1079       CASE ( 'rho_sea_water' )
    10761080          IF ( av == 0 )  THEN
    10771081             to_be_resorted => rho_ocean
Note: See TracChangeset for help on using the changeset viewer.