Update RUNTIME_VARS.F

Need to comment out two lines for writing to OUTDEV and LOGDEV in aqm_dev branch
noaa-oar-arl · Jan 10, 2024 · 4492f16 · 4492f16
1 parent 5803ed7
commit 4492f16
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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