Ignore:
Timestamp:
Dec 19, 2016 4:30:25 PM (5 years ago)
Author:
suehring
Message:

Bugfixes in initial salinity profile and generic topography definition in case of ocean simulations

File:
1 edited

Legend:

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

    r2085 r2088  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix in initial salinity profile
    2323!
    2424! Former revisions:
     
    503503    LOGICAL     ::  found                            !<
    504504   
     505    REAL(wp)    ::  dum                              !<
    505506    REAL(wp)    ::  gradient                         !<
    506507    REAL(wp)    ::  remote = 0.0_wp                  !<
     
    14651466          CALL init_vertical_profiles( sa_vertical_gradient_level_ind,          &
    14661467                                       sa_vertical_gradient_level,              &
    1467                                        sa_vertical_gradient, s_init,            &
    1468                                        sa_surface, -999.0_wp )
     1468                                       sa_vertical_gradient, sa_init,           &
     1469                                       sa_surface, dum )
    14691470       ENDIF
    14701471
Note: See TracChangeset for help on using the changeset viewer.