From 4492f165063be33891daca60951ff50f94896cd9 Mon Sep 17 00:00:00 2001 From: lwcugb <35088762+lwcugb@users.noreply.github.com> Date: Wed, 10 Jan 2024 14:08:56 -0500 Subject: [PATCH] Update RUNTIME_VARS.F Need to comment out two lines for writing to OUTDEV and LOGDEV in aqm_dev branch --- src/model/src/RUNTIME_VARS.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/model/src/RUNTIME_VARS.F b/src/model/src/RUNTIME_VARS.F index 264b803..0a4d5b0 100644 --- a/src/model/src/RUNTIME_VARS.F +++ b/src/model/src/RUNTIME_VARS.F @@ -982,8 +982,9 @@ SUBROUTINE INIT_ENV_VARS( JDATE, JTIME ) XMSG = 'MET data determined based on WRF ARW version ' IF( MYPE .EQ. 0 ) THEN - WRITE(OUTDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) - WRITE(LOGDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) + !Need to comment out for aqm_dev branch (AQM) + !WRITE(OUTDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) + !WRITE(LOGDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) ELSE WRITE(LOGDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) END IF