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

Timestamp:

Dec 3, 2014 5:42:41 PM (9 years ago)

Author:

maronga

Message:

bugfixes and adjustments in land surface model

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (1 diff)

palm/trunk/SOURCE/check_parameters.f90

@@ -958 +958 @@
        ENDIF   
 
-!      Dirichlet boundary conditions are allowed at the moment for testing 
-!      purposes
-!        IF ( bc_pt_b == 'dirichlet' .OR. bc_q_b == 'dirichlet' )  THEN
-!           message_string = 'lsm requires setting of'//                         &
-!                            'bc_pt_b = "neumann" and '//                        &
-!                            'bc_q_b  = "neumann"'
-!           CALL message( 'check_parameters', 'PA0399', 1, 2, 0, 6, 0 )
-!        ENDIF
+!
+!--    Dirichlet boundary conditions are required as the surface fluxes are
+!--    calculated from the temperature/humidity gradients in the land surface
+!--    model
+       IF ( bc_pt_b == 'neumann' .OR. bc_q_b == 'neumann' )  THEN
+          message_string = 'lsm requires setting of'//                         &
+                           'bc_pt_b = "dirichlet" and '//                        &
+                           'bc_q_b  = "dirichlet"'
+          CALL message( 'check_parameters', 'PA0399', 1, 2, 0, 6, 0 )
+       ENDIF
 
        IF ( .NOT. prandtl_layer )  THEN