Changeset 587 for palm

Timestamp:

Oct 27, 2010 8:36:51 AM (14 years ago)

Author:

helmke

Message:

add time_domask to read_var_list and write_var_list

Location:

palm/trunk/SOURCE

Files:

• read_var_list.f90 (modified) (3 diffs)
• write_3d_binary.f90 (modified) (1 diff)
• write_var_list.f90 (modified) (1 diff)

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +time_domask
+!
 !
 ! Former revisions:
@@ -179 +180 @@
     READ ( 13 )  variable_chr
     DO  WHILE ( TRIM( variable_chr ) /= '*** end ***' )
+    
+       IF(myid == 0)PRINT*,'read_var_list: variable_chr=',variable_chr
 
        SELECT CASE ( TRIM( variable_chr ) )
@@ -492 +495 @@
           CASE ( 'time_disturb' )
              READ ( 13 )  time_disturb
-          CASE ( 'time_dopr' )
+          CASE ( 'time_dopr' )
              READ ( 13 )  time_dopr
+          CASE ( 'time_domask' )
+             READ ( 13 )  time_domask
           CASE ( 'time_dopr_av' )
              READ ( 13 )  time_dopr_av

palm/trunk/SOURCE/write_3d_binary.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +time_domaks
+!
 !
 ! Former revisions:

palm/trunk/SOURCE/write_var_list.f90

@@ -410 +410 @@
     WRITE ( 14 )  'time_disturb                  '
     WRITE ( 14 )  time_disturb
+    WRITE ( 14 )  'time_domask                   '
+    WRITE ( 14 )  time_domask
     WRITE ( 14 )  'time_dopr                     '
     WRITE ( 14 )  time_dopr