From 279e7b7318675bccd2a84a78631c4e4cd1e3a7d2 Mon Sep 17 00:00:00 2001
From: Ahmad Nawab <ahmad.nawab@ecmwf.int>
Date: Sun, 22 Dec 2024 06:06:31 +0000
Subject: [PATCH] debug print

---
 src/ecwam/wavemdl.F90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/ecwam/wavemdl.F90 b/src/ecwam/wavemdl.F90
index 0d717f91..b16d5ecd 100644
--- a/src/ecwam/wavemdl.F90
+++ b/src/ecwam/wavemdl.F90
@@ -594,16 +594,16 @@ SUBROUTINE WAVEMDL (CBEGDAT, PSTEP, KSTOP, KSTPW, LLWAVEINIT_ONLY,&
 
       CALL SETMARSTYPE
 
-      WRITE(0,*) "===========GOT TO WAMODEL======"
-      WRITE(0,*) CDATEWL
-      WRITE(0,*)
+      PRINT *, "===========GOT TO WAMODEL======"
+      PRINT *, CDATEWL
+      PRINT *
 
       CALL WAMODEL (NADV, LLWAVEINIT_ONLY, LFRSTRST, LDSTOP, LDWRRE, BLK2GLO, &
      &              WVENVI, WVPRPT, FF_NOW, FF_NEXT, INTFLDS, &
      &              WAM2NEMO, NEMO2WAM, VARS_4D)
-      WRITE(0,*) "===========GOT PAST WAMODEL======"
-      WRITE(0,*) CDATEWL
-      WRITE(0,*)
+      PRINT *, "===========GOT PAST WAMODEL======"
+      PRINT *, CDATEWL
+      PRINT *
 
 
 !*    2.2  DATA ASSIMILATION