Changeset 4535 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

May 15, 2020 12:07:23 PM (5 years ago)

Author:

raasch

Message:

bugfix for restart data format query

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4527 2020-05-11 09:39:55Z monakurppa
 ! Correct a bug in salsa_wrd_global and salsa_check_data_output,
 ! and add reglim to be read/written in the restart data
@@ -3402 +3405 @@
        WRITE ( 14 )  reglim
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
        DO  i = 1, 7
@@ -3527 +3530 @@
        ENDIF
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
        ALLOCATE( tmp_3d(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )