ctbtodev
Last change
on this file since 5b5589b was
dfa7dbd,
checked in by pesei <petra seibert -@…>, 5 years ago
|
changes in the Fortran part and associated regression test
2019-08-21 PS
introduce the "new" versions of source files:
all .f90 free format
code beautification
regression test is OK
make new local gfortran makefiles, remove parameters not needed
anymore
change filenames rwgrib.f90 (all lower), preconvert to calc_etadot,
adapt messages and comments in calc_etadot.f90
adapt all makefiles to new filenames
adapt success message of logfiles in regression test references
redo regression test OK
provide softlinks for standards:
calc_etadot.out -> calc_etadot_fast.out
makefile_local_gfortran -> makefile_fast
provide changelog.txt in Fortran
provide readme.txt in Regression/FortranEtadot?
|
-
Property mode set to
100644
|
File size:
624 bytes
|
Rev | Line | |
---|
[dfa7dbd] | 1 | SUBROUTINE POSNAM(KULNAM,CDNAML) |
---|
| 2 | |
---|
| 3 | !! position in namelist file. |
---|
| 4 | ! author: Mats Hamrud, ECMWF |
---|
| 5 | |
---|
| 6 | INTEGER, INTENT(IN) :: KULNAM |
---|
| 7 | CHARACTER*(*), INTENT(IN) :: CDNAML |
---|
| 8 | CHARACTER*120 CLINE |
---|
| 9 | CHARACTER*1 CLTEST |
---|
| 10 | |
---|
| 11 | REWIND(KULNAM) |
---|
| 12 | ILEN = LEN(CDNAML) |
---|
| 13 | 102 CONTINUE |
---|
| 14 | CLINE = ' ' |
---|
| 15 | READ(KULNAM,'(A)') CLINE |
---|
| 16 | IND1 = INDEX(CLINE,'&'//CDNAML) |
---|
| 17 | IF (IND1 .EQ. 0) GO TO 102 |
---|
| 18 | CLTEST = CLINE(IND1+ILEN+1:IND1+ILEN+1) |
---|
| 19 | IF (LGE(CLTEST,'0') .AND. LLE(CLTEST,'9') .OR. & |
---|
| 20 | LGE(CLTEST,'A') .AND. LLE(CLTEST,'Z')) GOTO 102 |
---|
| 21 | BACKSPACE(KULNAM) |
---|
| 22 | |
---|
| 23 | RETURN |
---|
| 24 | |
---|
| 25 | END SUBROUTINE POSNAM |
---|
Note: See
TracBrowser
for help on using the repository browser.