HACK: run 49R2 IFS experiment

awnawab · Nov 12, 2024 · e5d100c · e5d100c
1 parent d9a1766
commit e5d100c
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/src/ecwam/outstep0.F90 b/src/ecwam/outstep0.F90
@@ -233,7 +233,7 @@ SUBROUTINE OUTSTEP0 (WVENVI, WVPRPT, FF_NOW, INTFLDS,  &
 
         IF (LFDB .AND. LLFLUSH) THEN
            CALL GSTATS(1976,0)
-           CALL WAM_MULTIO_FLUSH()
+!           CALL WAM_MULTIO_FLUSH()
            CALL GSTATS(1976,1)
            LLFLUSH=.FALSE.
         ENDIF

diff --git a/src/ecwam/wamodel.F90 b/src/ecwam/wamodel.F90
@@ -467,7 +467,7 @@ SUBROUTINE WAMODEL (NADV, LDSTOP, LDWRRE, BLK2GLO,             &
 
         IF ( LFDB .AND. LLFLUSH .AND. (IASSI /= 1 .OR. CDTPRO > CDATEF) ) THEN
           CALL GSTATS(1976,0)
-          CALL WAM_MULTIO_FLUSH()
+!          CALL WAM_MULTIO_FLUSH()
           CALL GSTATS(1976,1)
           WRITE(IU06,*) ' '
           WRITE(IU06,*) '  FDB FLUSHED AT ',  CDTPRO, ' FROM WAMODEL. '

diff --git a/src/ecwam/wgrib2fdb.F90 b/src/ecwam/wgrib2fdb.F90
@@ -92,10 +92,10 @@ SUBROUTINE WGRIB2FDB (KUSO, KTEST,                                &
 !!      CALL IGRIB_GET_MESSAGE_SIZE(IGRIB_HANDLE,KBYTES)
 !!      CALL IGRIB_WRITE_BYTES(IFILE_HANDLE,KGRIB,KBYTES)
 
-      CALL WAM_MULTIO_WRITE( KGRIB, KLEN, ISTAT )
+!      CALL WAM_MULTIO_WRITE( KGRIB, KLEN, ISTAT )
       IF ( ISTAT .NE. 0 ) THEN
         WRITE(KUSO, '( "Error\ /WGRIB2FDB/ Failed to write to fdb")' )
-        CALL WAM_MULTIO_FLUSH()
+!        CALL WAM_MULTIO_FLUSH()
         KERR = 1
         RETURN
       ENDIF