debug print

awnawab · Dec 22, 2024 · 06748c8 · 06748c8
1 parent 999a7f5
commit 06748c8
Showing 1 changed file with 6 additions and 6 deletions.
diff --git 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