Changes in src/readcommand.f90 [4c64400:c04b739] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readcommand.f90
r4c64400 rc04b739 170 170 if (index(line,'LDIRECT') .eq. 0) then 171 171 old = .false. 172 if (lroot) write(*,*) 'COMMAND in old short format, & 173 &please update to namelist format' 172 write(*,*) 'COMMAND in old short format, please update to namelist format' 174 173 else 175 174 old = .true. 176 if (lroot) write(*,*) 'COMMAND in old long format, & 177 &please update to namelist format' 175 write(*,*) 'COMMAND in old long format, please update to namelist format' 178 176 endif 179 177 rewind(unitcommand)
Note: See TracChangeset
for help on using the changeset viewer.