Skip to content

Commit

Permalink
Changed variable type and definitions,JDATE and IDSAT, b/c WCOSS2 com…
Browse files Browse the repository at this point in the history
…piler
  • Loading branch information
ilianagenkova committed Apr 15, 2022
1 parent 211f42c commit a8bd7d7
Show file tree
Hide file tree
Showing 4 changed files with 4 additions and 10 deletions.
1 change: 0 additions & 1 deletion build.sh
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,6 @@ mkdir -p build && cd build
# build and install.
cmake -DCMAKE_INSTALL_PREFIX=$INSTALL_PREFIX \
-DCMAKE_INSTALL_BINDIR=exec \
-DCMAKE_BUILD_TYPE=Debug \
-DMODULEFILE_INSTALL_PREFIX=$MODULEFILE_INSTALL_PREFIX \
..
make -j ${BUILD_JOBS:-6} VERBOSE=${BUILD_VERBOSE:-}
Expand Down
4 changes: 0 additions & 4 deletions sorc/prepobs_listheaders.fd/listheaders.f90
Original file line number Diff line number Diff line change
Expand Up @@ -78,10 +78,6 @@ PROGRAM PREPOBS_LISTHEADERS
kount(k)=0
do m=1,kmsgs+1
call rdmemm(m,subset,jdate,iret)
! ILIANA check returned jdate
PRINT 987, jdate
987 FORMAT(/19X,'ILIANA: listheaders.f90 jdate= ', I12.12/)

if (iret.ne.0 ) then
! All messages have been read; write out the count associated with the
! current list type and move on to the next list type
Expand Down
5 changes: 2 additions & 3 deletions sorc/prepobs_prepdata.fd/prepdata.f
Original file line number Diff line number Diff line change
Expand Up @@ -12673,7 +12673,7 @@ SUBROUTINE SATEDS
LOGICAL SATMST,TR80KM,TOVEDS
INTEGER IBUF(140),JRTRV(3),NUMOB(5,4,2,4,4),KEPOB(5,4,2,4),
$ MSTOB(5,4,2,4),IDATA(MAXOBS),KSATOB(3),IDSAT(8),ISAMPLE(2)
C MADE IDSAT(4) TO IDSAT(8)
C MADE IDSAT(4) TO IDSAT(8) to accomodate compiler on WCOSS2
INTEGER(8) IDSDAT,IDSDMP_8
REAL(8) BMISS,obs8_8,alon_8,alat_8
COMMON/ADP/ISATOB,PMAND(23),RDATA(MAXOBS),IPRINT
Expand Down Expand Up @@ -12756,8 +12756,7 @@ SUBROUTINE SATEDS
C IER = 1 RETURNS DATA SET INFO (ONLY) AFTER FIRST CALL
PRINT 7000, DSNAME,IDSDAT,IDSDMP_8
7000 FORMAT(//22X,'--> DATA SET INFORMATION: NAME: ',A8,'; DATE: ',
$ I10.10,'; DUMP TIME: ',I30.30,' <--'//)
C..........ILIANA I12.12 -> I30.30
$ I10.10,'; DUMP TIME: ',I12.12,' <--'//)
C DOES DATE FROM DATA SET MATCH CENTER (CYCLE) DATE?
IF(IDSDAT.NE.IDAT10) THEN
PRINT 324
Expand Down
4 changes: 2 additions & 2 deletions sorc/prepobs_prepdata.fd/w3xtovseds.f
Original file line number Diff line number Diff line change
Expand Up @@ -217,7 +217,7 @@ SUBROUTINE W3XTOVSEDS(IUNIT,IBDATE,IBUFTN,ISATOB,PBOT,DSNAME,
REAL GEOOPR(18),TLAYER(15),PLAYER(16),RINC(5)

INTEGER IBUFTN(140),ISATOB(3),JDATE(5),JDUMP(5),IBIT(2)
C ADDED IDSAT to integer8
C DEFINED IDSAT as INTEGER(8) to accomodate WCOSS2 compiler
INTEGER(8) IDSDAT, IDSDMP_8,JDUMP_8(5),KDATE(8),LDATE(8)

CHARACTER*8 SUBSET,DSNAME
Expand Down Expand Up @@ -289,7 +289,7 @@ SUBROUTINE W3XTOVSEDS(IUNIT,IBDATE,IBUFTN,ISATOB,PBOT,DSNAME,
JFIRST = 1
IUNITL = IUNIT
CALL DUMPBF(IUNIT,JDATE,JDUMP)
print'(" ILIANA w3xttovseds output for jdate and jdump ")'
print'(" w3xttovseds output for jdate and jdump ")'
print'(" CENTER DATE (JDATE) = ",5(I0,1X))', jdate
print'(" DUMP DATE (JDUMP) = ",5(I0,1X))', jdump
print'(1X)'
Expand Down

0 comments on commit a8bd7d7

Please sign in to comment.