Changeset 2323 for palm

Timestamp:

Jul 26, 2017 12:57:38 PM (7 years ago)

Author:

Giersch

Message:

Change unit number of file WTM_DATA

File:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (9 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Change unit number of file WTM_DATA from 201 to 90
+! 
+! 2322 2017-07-26 08:30:28Z Giersch
 ! Bugfix of error message and assign error numbers
 ! 
@@ -1096 +1099 @@
 !--    layout of the rotor blade and the lift and drag tables:
 
-       OPEN ( 201, FILE='WTM_DATA', STATUS='OLD', FORM='FORMATTED', IOSTAT=ierrn )
+       OPEN ( 90, FILE='WTM_DATA', STATUS='OLD', FORM='FORMATTED', IOSTAT=ierrn )
 
        IF ( ierrn /= 0 )  THEN
@@ -1107 +1110 @@
        dlen = 0
 
-       READ ( 201, '(3/)' )
+       READ ( 90, '(3/)' )
 
        rloop3: DO
-          READ ( 201, *, IOSTAT=ierrn ) chmess
+          READ ( 90, *, IOSTAT=ierrn ) chmess
           IF ( ierrn < 0  .OR.  chmess == '#'  .OR.  chmess == '')  EXIT rloop3
           dlen = dlen + 1
@@ -1118 +1121 @@
 
        DO jj = 1,dlen+1
-          BACKSPACE ( 201, IOSTAT=ierrn )
+          BACKSPACE ( 90, IOSTAT=ierrn )
        ENDDO
 
        DO jj = 1,dlen
-          READ ( 201, * ) trad1(jj), trad2(jj), ttoint1(jj), ttoint2(jj)
+          READ ( 90, * ) trad1(jj), trad2(jj), ttoint1(jj), ttoint2(jj)
        ENDDO
 
@@ -1130 +1133 @@
        dlen = 0 
 
-       READ ( 201, '(3/)')
+       READ ( 90, '(3/)')
 
        rloop1: DO
-          READ ( 201, *, IOSTAT=ierrn ) chmess
+          READ ( 90, *, IOSTAT=ierrn ) chmess
           IF ( ierrn < 0  .OR.  chmess == '#'  .OR.  chmess == '')  EXIT rloop1
           dlen = dlen + 1
@@ -1140 +1143 @@
        ALLOCATE( lrd(1:dlen), ard(1:dlen), crd(1:dlen) )
        DO jj = 1, dlen+1
-          BACKSPACE ( 201, IOSTAT=ierrn )
+          BACKSPACE ( 90, IOSTAT=ierrn )
        ENDDO             
        DO jj = 1, dlen
-          READ ( 201, * ) lrd(jj), ard(jj), crd(jj) 
+          READ ( 90, * ) lrd(jj), ard(jj), crd(jj) 
        ENDDO
 
@@ -1151 +1154 @@
        dlen = 0
 
-       READ ( 201, '(3/)' )
+       READ ( 90, '(3/)' )
 
        rloop2: DO
-          READ ( 201, *, IOSTAT=ierrn ) chmess
+          READ ( 90, *, IOSTAT=ierrn ) chmess
           IF ( ierrn < 0  .OR.  chmess == '#'  .OR.  chmess == '')  EXIT rloop2
           dlen = dlen + 1
@@ -1163 +1166 @@
 
        DO jj = 1,dlen+1
-          BACKSPACE ( 201, IOSTAT=ierrn )
+          BACKSPACE ( 90, IOSTAT=ierrn )
        ENDDO 
 
        DO jj = 1,dlen
-          READ ( 201, * ) read_cl_cd
+          READ ( 90, * ) read_cl_cd
           alpha_attack_tab(jj) = read_cl_cd(1)
           DO ii= 1, nairfoils
@@ -1178 +1181 @@
        dlenbl = dlen 
 
-       CLOSE ( 201 )
+       CLOSE ( 90 )
 
 !