Clean up some comments, blank lines, etc

NOAA-EMC · Nov 10, 2023 · f87934f · f87934f
1 parent 873f1b0
commit f87934f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 14 deletions.
diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90
@@ -28,7 +28,7 @@ MODULE W3SRCEMD
   !/                  |           H. L. Tolman            |
   !/                  |            F. Ardhuin             |
   !/                  |                        FORTRAN 90 |
-  !/                  | Last update :         22-Mar-2021 |
+  !/                  | Last update :         03-Nov-2023 |
   !/                  +-----------------------------------+
   !/
   !/    For updates see subroutine.
@@ -179,9 +179,6 @@ END SUBROUTINE W3SRCE_INIT
   !> @param[in]    ICEDMAX    Sea ice maximum floe diameter
   !> @param[in]    REFLEC     Reflection coefficients.
   !> @param[in]    REFLED     Reflection direction.
-  !> @param[in]    DELX       Grid cell size in X direction.   !! REMOVED - not used
-  !> @param[in]    DELY       Grid cell size in Y direction.   !! REMOVED - not used
-  !> @param[in]    DELA       Grid cell area.                  !! REMOVED - not used
   !> @param[in]    TRNX       Grid transparency in X.
   !> @param[in]    TRNY       Grid transparency in Y.
   !> @param[in]    BERG       Iceberg damping coefficient.
@@ -399,9 +396,6 @@ SUBROUTINE W3SRCE ( srce_call, IT, IMOD,         &
     !       REFLEC  R.A.   I   reflection coefficients        ( !/BS1 )
     !       REFLED  I.A.   I   reflection direction           ( !/BS1 )
     !       TRNX-Y  Real   I   Grid transparency in X and Y   ( !/BS1 )
-    !       DELX    Real.  I   grid cell size in X direction  ( !/BS1 )    !! REMOVED! Not used...
-    !       DELY    Real.  I   grid cell size in Y direction  ( !/BS1 )    !! REMOVED! Not used...
-    !       DELA    Real.  I   grid cell area                 ( !/BS1 )    !! REMOVED! Not used...
     !       FPI     Real  I/O  Peak-input frequency.          ( !/ST2 )
     !      WCAP_COV R.A.  I/O  Whitecap coverage              ( !/ST4 )
     !      WCAP_THK R.A.  I/O  Whitecap foam thickness        ( !/ST4 )
@@ -2503,7 +2497,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, IMOD,         &
       !       Integer source mask? 0 = active, 1=masked(or complete), 2=masked+complete
       I = 1
       DO JSEA=CHUNK0,CHUNKN
-        ! TODO - THIS BLOCK TEMPORARY - NEED BETTER SOLUTION
+        ! TODO - THIS BLOCK TEMPORARY - NEED BETTER SOLUTION THAN RECALCULATING SRC_MASK
         CALL INIT_GET_ISEA(ISEA, JSEA)  !!! SLOW!
         SRC_MASK(I) = .NOT. (MAPSTA(IY(I),IX(I)) .EQ. 1 .AND. FLAGST(ISEA))
         I = I + 1

diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
@@ -16,7 +16,7 @@ MODULE W3WAVEMD
   !/                  | WAVEWATCH III           NOAA/NCEP |
   !/                  |           H. L. Tolman            |
   !/                  |                        FORTRAN 90 |
-  !/                  | Last update :         13-Sep-2022 |
+  !/                  | Last update :         03-Nov-2023 |
   !/                  +-----------------------------------+
   !/
   !/    04-Feb-2000 : Origination.                        ( version 2.00 )
@@ -2234,6 +2234,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
                        ASF(1:NSEA) )               
                 ELSE
 #endif
+                  ! Explicit source call
                   CALL W3SRCE(srce_direct, IT, IMOD,  &
                        !VAoldDummy,                       & ! Not used, either here or in w3str1 (where it is passed from w3srce)
                        VA(:,1:NSEALM),                    &
@@ -2336,10 +2337,6 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
         END DO
         IF (IT.GT.0) DTG=DTGTEMP
 #endif
-
-
-
-
         !
         !
         ! 3.8 Update global time step.
@@ -2371,7 +2368,6 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
         CALL PRINT_MY_TIME("end of time loop")
 #endif
         !
-        !
       END DO
 
 #ifdef W3_TIMINGS