Changeset 4495 for palm/trunk/SOURCE/plant_canopy_model_mod.f90

Timestamp:

Apr 13, 2020 8:11:20 PM (4 years ago)

Author:

raasch

Message:

restart data handling with MPI-IO added, first part

File:

• palm/trunk/SOURCE/plant_canopy_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -26 +26 @@
 ! Former revisions:
 ! -----------------
+! $Id$
+! restart data handling with MPI-IO added
+!
+! 4457 2020-03-11 14:20:43Z raasch
 !
 ! use statement for exchange horiz added
-! 
-! 
-! $Id$
 ! (salim) removed the error message PA0672 to consider PC 3d data via ascii file
 !
@@ -191 +192 @@
               passive_scalar,                                                  &
               plant_canopy,                                                    &
+              restart_data_format_output,                                      &
               restart_string,                                                  &
               urban_surface
@@ -221 +223 @@
 
     USE pegrid
+
+    USE restart_data_mpi_io_mod,                                                                   &
+        ONLY:  wrd_mpi_io
 
     USE surface_mod,                                                           &
@@ -2436 +2441 @@
     SUBROUTINE pcm_wrd_local
 
-       IF ( ALLOCATED( pcm_heatrate_av ) )  THEN
-          CALL wrd_write_string( 'pcm_heatrate_av' )
-          WRITE ( 14 )  pcm_heatrate_av
+       IF ( TRIM( restart_data_format_output ) == 'fortran_binary' )  THEN
+
+          IF ( ALLOCATED( pcm_heatrate_av ) )  THEN
+             CALL wrd_write_string( 'pcm_heatrate_av' )
+             WRITE ( 14 )  pcm_heatrate_av
+          ENDIF
+
+          IF ( ALLOCATED( pcm_latentrate_av ) )  THEN
+             CALL wrd_write_string( 'pcm_latentrate_av' )
+             WRITE ( 14 )  pcm_latentrate_av
+          ENDIF
+
+          IF ( ALLOCATED( pcm_transpirationrate_av ) )  THEN
+             CALL wrd_write_string( 'pcm_transpirationrate_av' )
+             WRITE ( 14 )  pcm_transpirationrate_av
+          ENDIF
+
+       ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+
+          IF ( ALLOCATED( pcm_heatrate_av ) )  CALL wrd_mpi_io( 'pcm_heatrate_av', pcm_heatrate_av )
+          IF ( ALLOCATED( pcm_latentrate_av ) )  THEN
+             CALL wrd_mpi_io( 'pcm_latentrate_av', pcm_latentrate_av )
+          ENDIF
+          IF ( ALLOCATED( pcm_transpirationrate_av ) )  THEN
+             CALL wrd_write_string( 'pcm_transpirationrate_av', pcm_transpirationrate_av )
+          ENDIF
+
        ENDIF
 
-       IF ( ALLOCATED( pcm_latentrate_av ) )  THEN
-          CALL wrd_write_string( 'pcm_latentrate_av' )
-          WRITE ( 14 )  pcm_latentrate_av
-       ENDIF
-
-       IF ( ALLOCATED( pcm_transpirationrate_av ) )  THEN
-          CALL wrd_write_string( 'pcm_transpirationrate_av' )
-          WRITE ( 14 )  pcm_transpirationrate_av
-       ENDIF
-
     END SUBROUTINE pcm_wrd_local