Changeset 591 for palm/trunk/SOURCE/read_var_list.f90
- Timestamp:
- Oct 28, 2010 6:35:52 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_var_list.f90
r588 r591 182 182 READ ( 13 ) variable_chr 183 183 DO WHILE ( TRIM( variable_chr ) /= '*** end ***' ) 184 185 IF(myid == 0)PRINT*,'read_var_list: variable_chr=',variable_chr186 184 187 185 SELECT CASE ( TRIM( variable_chr ) )
Note: See TracChangeset
for help on using the changeset viewer.