Changeset 2088 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Dec 19, 2016 4:30:25 PM (7 years ago)

Author:

suehring

Message:

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

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in initial salinity profile
 ! 
 ! Former revisions:
@@ -503 +503 @@
     LOGICAL     ::  found                            !< 
     
+    REAL(wp)    ::  dum                              !< 
     REAL(wp)    ::  gradient                         !< 
     REAL(wp)    ::  remote = 0.0_wp                  !< 
@@ -1465 +1466 @@
           CALL init_vertical_profiles( sa_vertical_gradient_level_ind,          &
                                        sa_vertical_gradient_level,              &
-                                       sa_vertical_gradient, s_init,            &
-                                       sa_surface, -999.0_wp )
+                                       sa_vertical_gradient, sa_init,           &
+                                       sa_surface, dum )
        ENDIF