Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

READS.out removed from Crop System Models output list. #51

Merged
merged 2 commits into from
Dec 11, 2020
Merged

READS.out removed from Crop System Models output list. #51

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
5be7a76
READS.out file removed from CSM output list
Dec 8, 2020
d17bcc5
Merge branch 'develop' of https://github.com/DSSAT/dssat-csm-os into …
Dec 8, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 10 additions & 9 deletions Plant/CSCER_CSCRP_CSCAS/CSCAS.for
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -329,7 +329,7 @@
INTEGER FNUMPREM ! File number,measured responses #
INTEGER FNUMPRES ! File number,simulated response #
INTEGER FNUMPSUM ! Number used for plant summary #
INTEGER FNUMREA ! File number,reads.out file #
! INTEGER FNUMREA ! File number,reads.out file #
INTEGER FNUMT ! Number used for T-file #
INTEGER FNUMTMP ! File number,temporary file #
INTEGER FNUMWRK ! File number,work file #
Expand Down Expand Up @@ -1699,14 +1699,15 @@
& ACTION = 'READWRITE')
WRITE(fnumwrk,*) ' '
WRITE(fnumwrk,*) 'CSCAS Cropsim Cassava Module '
CALL Getlun('READS.OUT',fnumrea)
! Close and re-open Reads file
CLOSE (FNUMREA, STATUS = 'DELETE')
OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
& ACTION = 'READWRITE')
WRITE(fnumrea,*)' '
WRITE(fnumrea,*)
& ' File closed and re-opened to avoid generating huge file'
! FO/LPM/GH/CHP - 12-04-2020 - READS.out file removed from CSM output.
! CALL Getlun('READS.OUT',fnumrea)
! ! Close and re-open Reads file
! CLOSE (FNUMREA, STATUS = 'DELETE')
! OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
! & ACTION = 'READWRITE')
! WRITE(fnumrea,*)' '
! WRITE(fnumrea,*)
! & ' File closed and re-opened to avoid generating huge file'
ELSE
WRITE(fnumwrk,*) ' '
WRITE(fnumwrk,*) 'CSCAS Cropsim Cassava Module '
Expand Down
24 changes: 13 additions & 11 deletions Plant/CSCER_CSCRP_CSCAS/CSCER.for
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -406,7 +406,7 @@
REAL FNH4 ! Unitless ammonium supply index #
REAL FNO3 ! Unitless nitrate supply index #
INTEGER FNUMLVS ! File number,leaves #
INTEGER FNUMREA ! File number,reads.out file #
! INTEGER FNUMREA ! File number,reads.out file #
INTEGER FNUMT ! Number used for T-file #
INTEGER FNUMTMP ! File number,temporary file #
INTEGER FNUMWRK ! File number,work file #
Expand Down Expand Up @@ -1449,10 +1449,11 @@
WRITE(fnumwrk,*) 'CSCER Cropsim-Ceres Crop Module '
ENDIF
ENDIF

! Set Reads file #
IF (FNUMREA.LE.0.OR.FNUMREA.GT.1000)
& CALL Getlun('READS.OUT',fnumrea)

! FO/LPM/GH/CHP - 12-04-2020 - READS.out file removed from CSM output.
! ! Set Reads file #
! IF (FNUMREA.LE.0.OR.FNUMREA.GT.1000)
! & CALL Getlun('READS.OUT',fnumrea)
! Set temporary file #
IF (FNUMTMP.LE.0.OR.FNUMTMP.GT.1000)
& CALL Getlun ('FNAMETMP',fnumtmp)
Expand Down Expand Up @@ -1856,12 +1857,13 @@ C FO - 05/07/2020 Add new Y4K subroutine call to convert YRDOY
OPEN (UNIT = FNUMWRK,FILE = 'WORK.OUT', STATUS = 'NEW',
& ACTION = 'READWRITE')
WRITE(FNUMWRK,*) 'CSCER Cropsim-Ceres Crop Module '
CLOSE (FNUMREA, STATUS = 'DELETE')
OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
& ACTION = 'READWRITE')
WRITE(FNUMREA,*)' '
WRITE(FNUMREA,*)
& ' File closed and re-opened to avoid generating huge file'
! FO/LPM/GH/CHP - 12-04-2020 - READS.out file removed from CSM output.
! CLOSE (FNUMREA, STATUS = 'DELETE')
! OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
! & ACTION = 'READWRITE')
! WRITE(FNUMREA,*)' '
! WRITE(FNUMREA,*)
! & ' File closed and re-opened to avoid generating huge file'
ENDIF

! Create composite run variable
Expand Down
36 changes: 19 additions & 17 deletions Plant/CSCER_CSCRP_CSCAS/CSCRP.for
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -437,7 +437,7 @@
INTEGER FNUMPREM ! File number,measured responses #
INTEGER FNUMPRES ! File number,simulated response #
INTEGER FNUMPSUM ! Number used for plant summary #
INTEGER FNUMREA ! File number,reads.out file #
! INTEGER FNUMREA ! File number,reads.out file #
INTEGER FNUMT ! Number used for T-file #
INTEGER FNUMTMP ! File number,temporary file #
INTEGER FNUMWRK ! File number,work file #
Expand Down Expand Up @@ -2107,14 +2107,15 @@
WRITE(fnumwrk,*) ' '
WRITE(fnumwrk,*) 'CSCRP Cropsim Cereal Crop Module '
ENDIF
IF (FNUMREA.LE.0) CALL Getlun('READS.OUT',fnumrea)
! Close and re-open Reads file
CLOSE (FNUMREA, STATUS = 'DELETE')
OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
& ACTION = 'READWRITE')
WRITE(fnumrea,*)' '
WRITE(fnumrea,*)
& ' File closed and re-opened to avoid generating huge file'
! FO/LPM/GH/CHP - 12-04-2020 - READS.out file removed from CSM output.
! IF (FNUMREA.LE.0) CALL Getlun('READS.OUT',fnumrea)
! ! Close and re-open Reads file
! CLOSE (FNUMREA, STATUS = 'DELETE')
! OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
! & ACTION = 'READWRITE')
! WRITE(fnumrea,*)' '
! WRITE(fnumrea,*)
! & ' File closed and re-opened to avoid generating huge file'
ENDIF
ELSE ! File is open .. not closed at end of run!
IF (IDETL.EQ.'0'.OR.IDETL.EQ.'Y'.OR.IDETL.EQ.'N') THEN
Expand All @@ -2125,14 +2126,15 @@
& ACTION = 'READWRITE')
WRITE(fnumwrk,*) ' '
WRITE(fnumwrk,*) 'CSCRP Cropsim Cereal Crop Module '
CALL Getlun('READS.OUT',fnumrea)
! Close and re-open Reads file
CLOSE (FNUMREA, STATUS = 'DELETE')
OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
& ACTION = 'READWRITE')
WRITE(fnumrea,*)' '
WRITE(fnumrea,*)
& ' File closed and re-opened to avoid generating huge file'
! FO/LPM/GH/CHP - 12-04-2020 - READS.out file removed from CSM output.
! CALL Getlun('READS.OUT',fnumrea)
! ! Close and re-open Reads file
! CLOSE (FNUMREA, STATUS = 'DELETE')
! OPEN (UNIT = FNUMREA,FILE = 'READS.OUT', STATUS = 'NEW',
! & ACTION = 'READWRITE')
! WRITE(fnumrea,*)' '
! WRITE(fnumrea,*)
! & ' File closed and re-opened to avoid generating huge file'
ELSE
WRITE(fnumwrk,*) ' '
WRITE(fnumwrk,*) 'CSCRP Cropsim Cereal Crop Module '
Expand Down
Loading