debug

awnawab · Dec 22, 2024 · ea46aef · ea46aef
1 parent feb568a
commit ea46aef
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/ecwam/wavemdl.F90 b/src/ecwam/wavemdl.F90
@@ -137,7 +137,7 @@ SUBROUTINE WAVEMDL (CBEGDAT, PSTEP, KSTOP, KSTPW, LLWAVEINIT_ONLY,&
       USE YOWWNDG  , ONLY : ICODE_CPL
       USE YOWTEXT  , ONLY : LRESTARTED
       USE YOWSPEC  , ONLY : NSTART   ,NEND     ,FF_NOW   ,VARS_4D
-      USE YOWWIND  , ONLY : CDAWIFL  ,CDATEWO  ,CDATEFL  ,              &
+      USE YOWWIND  , ONLY : CDAWIFL  ,CDATEWO  ,CDATEFL  , CDATEWL,     &
      &                      FF_NEXT  ,                                  &
      &                      NXFFS    ,NXFFE    ,NYFFS    ,NYFFE,        &
      &                      NXFFS_LOC,NXFFE_LOC,NYFFS_LOC,NYFFE_LOC
@@ -594,9 +594,16 @@ SUBROUTINE WAVEMDL (CBEGDAT, PSTEP, KSTOP, KSTPW, LLWAVEINIT_ONLY,&
 
       CALL SETMARSTYPE
 
+      WRITE(0,*) "===========GOT TO WAMODEL======"
+      WRITE(0,*) CDATEWL
+      WRITE(0,*)
+
       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,*)
 
 
 !*    2.2  DATA ASSIMILATION