Changeset 587 for palm


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_var_list.f90

    r581 r587  
    44! Current revisions:
    55! -----------------
    6 !
     6! +time_domask
     7!
    78!
    89! Former revisions:
     
    179180    READ ( 13 )  variable_chr
    180181    DO  WHILE ( TRIM( variable_chr ) /= '*** end ***' )
     182   
     183       IF(myid == 0)PRINT*,'read_var_list: variable_chr=',variable_chr
    181184
    182185       SELECT CASE ( TRIM( variable_chr ) )
     
    492495          CASE ( 'time_disturb' )
    493496             READ ( 13 )  time_disturb
    494           CASE ( 'time_dopr' )
     497          CASE ( 'time_dopr' )
    495498             READ ( 13 )  time_dopr
     499          CASE ( 'time_domask' )
     500             READ ( 13 )  time_domask
    496501          CASE ( 'time_dopr_av' )
    497502             READ ( 13 )  time_dopr_av
  • palm/trunk/SOURCE/write_3d_binary.f90

    r484 r587  
    44! Current revisions:
    55! -----------------
    6 !
     6! +time_domaks
     7!
    78!
    89! Former revisions:
  • palm/trunk/SOURCE/write_var_list.f90

    r581 r587  
    410410    WRITE ( 14 )  'time_disturb                  '
    411411    WRITE ( 14 )  time_disturb
     412    WRITE ( 14 )  'time_domask                   '
     413    WRITE ( 14 )  time_domask
    412414    WRITE ( 14 )  'time_dopr                     '
    413415    WRITE ( 14 )  time_dopr
Note: See TracChangeset for help on using the changeset viewer.