Changeset 2323 for palm/trunk


Ignore:
Timestamp:
Jul 26, 2017 12:57:38 PM (7 years ago)
Author:
Giersch
Message:

Change unit number of file WTM_DATA

File:
1 edited

Legend:

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

    r2322 r2323  
    2626! -----------------
    2727! $Id$
     28! Change unit number of file WTM_DATA from 201 to 90
     29!
     30! 2322 2017-07-26 08:30:28Z Giersch
    2831! Bugfix of error message and assign error numbers
    2932!
     
    10961099!--    layout of the rotor blade and the lift and drag tables:
    10971100
    1098        OPEN ( 201, FILE='WTM_DATA', STATUS='OLD', FORM='FORMATTED', IOSTAT=ierrn )
     1101       OPEN ( 90, FILE='WTM_DATA', STATUS='OLD', FORM='FORMATTED', IOSTAT=ierrn )
    10991102
    11001103       IF ( ierrn /= 0 )  THEN
     
    11071110       dlen = 0
    11081111
    1109        READ ( 201, '(3/)' )
     1112       READ ( 90, '(3/)' )
    11101113
    11111114       rloop3: DO
    1112           READ ( 201, *, IOSTAT=ierrn ) chmess
     1115          READ ( 90, *, IOSTAT=ierrn ) chmess
    11131116          IF ( ierrn < 0  .OR.  chmess == '#'  .OR.  chmess == '')  EXIT rloop3
    11141117          dlen = dlen + 1
     
    11181121
    11191122       DO jj = 1,dlen+1
    1120           BACKSPACE ( 201, IOSTAT=ierrn )
     1123          BACKSPACE ( 90, IOSTAT=ierrn )
    11211124       ENDDO
    11221125
    11231126       DO jj = 1,dlen
    1124           READ ( 201, * ) trad1(jj), trad2(jj), ttoint1(jj), ttoint2(jj)
     1127          READ ( 90, * ) trad1(jj), trad2(jj), ttoint1(jj), ttoint2(jj)
    11251128       ENDDO
    11261129
     
    11301133       dlen = 0
    11311134
    1132        READ ( 201, '(3/)')
     1135       READ ( 90, '(3/)')
    11331136
    11341137       rloop1: DO
    1135           READ ( 201, *, IOSTAT=ierrn ) chmess
     1138          READ ( 90, *, IOSTAT=ierrn ) chmess
    11361139          IF ( ierrn < 0  .OR.  chmess == '#'  .OR.  chmess == '')  EXIT rloop1
    11371140          dlen = dlen + 1
     
    11401143       ALLOCATE( lrd(1:dlen), ard(1:dlen), crd(1:dlen) )
    11411144       DO jj = 1, dlen+1
    1142           BACKSPACE ( 201, IOSTAT=ierrn )
     1145          BACKSPACE ( 90, IOSTAT=ierrn )
    11431146       ENDDO             
    11441147       DO jj = 1, dlen
    1145           READ ( 201, * ) lrd(jj), ard(jj), crd(jj)
     1148          READ ( 90, * ) lrd(jj), ard(jj), crd(jj)
    11461149       ENDDO
    11471150
     
    11511154       dlen = 0
    11521155
    1153        READ ( 201, '(3/)' )
     1156       READ ( 90, '(3/)' )
    11541157
    11551158       rloop2: DO
    1156           READ ( 201, *, IOSTAT=ierrn ) chmess
     1159          READ ( 90, *, IOSTAT=ierrn ) chmess
    11571160          IF ( ierrn < 0  .OR.  chmess == '#'  .OR.  chmess == '')  EXIT rloop2
    11581161          dlen = dlen + 1
     
    11631166
    11641167       DO jj = 1,dlen+1
    1165           BACKSPACE ( 201, IOSTAT=ierrn )
     1168          BACKSPACE ( 90, IOSTAT=ierrn )
    11661169       ENDDO
    11671170
    11681171       DO jj = 1,dlen
    1169           READ ( 201, * ) read_cl_cd
     1172          READ ( 90, * ) read_cl_cd
    11701173          alpha_attack_tab(jj) = read_cl_cd(1)
    11711174          DO ii= 1, nairfoils
     
    11781181       dlenbl = dlen
    11791182
    1180        CLOSE ( 201 )
     1183       CLOSE ( 90 )
    11811184
    11821185!
Note: See TracChangeset for help on using the changeset viewer.