Changeset 4429 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Feb 27, 2020 3:24:30 PM (5 years ago)

Author:

raasch

Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missing cpp-directives for serial mode added, misplaced cpp-directives moved
+! 
+! 4381 2020-01-20 13:51:46Z suehring
 ! - Bugfix in nested soil initialization in case no dynamic input file is 
 !   present
@@ -2332 +2335 @@
            ONLY:  nx, ny, topo_min_level
 
+#if defined( __parallel )
        USE pmc_handle_communicator,                                            &
         ONLY:  pmc_is_rootmodel
+#endif
            
        USE pmc_interface,                                                      &
@@ -4447 +4452 @@
                 DEALLOCATE( t_soil_root )
              ENDIF
-          ENDIF
 #endif
+          ENDIF
 !
 !--       Proceed with Level 2 initialization.