Changeset 15687 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate

Timestamp:

2022-02-02T20:42:17+01:00 (2 years ago)

Author:

hadjt

Message:

nambdy_ssh

Set default values so ssh is used if nambdy_ssh is not defined.

Only print out tide360 on the write processor, rather than on every processor

Location:

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE

Files:

• BDY/bdyini.F90 (modified) (1 diff)
• SBC/tide_mod.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/BDY/bdyini.F90

@@ -101 +101 @@
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist' )
       IF(lwm) WRITE ( numond, nambdy )
+
+      ! set a default value to nambdy_ssh, so switched on if not defined in Namelist
+      DO ib_bdy = 1,nb_bdy
+        ln_ssh_bdy(ib_bdy) = .True.
+        rn_ssh_shift(ib_bdy) = 0.
+      ENDDO
       
       ! davbyr Propagating ENDA's stuff from 3.6

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/tide_mod.F90

@@ -122 +122 @@
           ENDIF
           
-
-          IF ( ln_tide_drift   ) THEN
-              WRITE(numout,*) "       tides360: Tides continuous so equinoctal tides drift through the year,"
-              WRITE(numout,*) "                 as the S2-K2 beating occurs 5 days later every year."
+          IF( lwp ) THEN
+
+              IF ( ln_tide_drift   ) THEN
+                  WRITE(numout,*) "       tides360: Tides continuous so equinoctal tides drift through the year,"
+                  WRITE(numout,*) "                 as the S2-K2 beating occurs 5 days later every year."
+              ENDIF
+
+              IF ( ln_tide_compress   ) THEN
+                  WRITE(numout,*) "       tides360: The Tropical Year (and so some tidal periods) are compressed,"
+                  WRITE(numout,*) "                 so the tides repeat with an annual cycle, so the "
+                  WRITE(numout,*) "                 the S2-K2 beating is fixed relative to the calendar, but the "
+                  WRITE(numout,*) "                 M2 period varies slightly."
+                  WRITE(numout,*) "                 Use with care, as this requires more work."
+              ENDIF
+
+              IF ( ( .NOT. ln_tide_drift  ) .AND. ( .NOT. ln_tide_compress ) ) THEN
+                  WRITE(numout,*) "       tides360: Use the default NEMO tide code, where the tides are reset "
+                  WRITE(numout,*) "                 at the beginning of each month, leading to a slight discontinuity"
+                  WRITE(numout,*) "                 in the tides, and making tidal analysis difficult."
+              ENDIF
           ENDIF
 
-          IF ( ln_tide_compress   ) THEN
-              WRITE(numout,*) "       tides360: The Tropical Year (and so some tidal periods) are compressed,"
-              WRITE(numout,*) "                 so the tides repeat with an annual cycle, so the "
-              WRITE(numout,*) "                 the S2-K2 beating is fixed relative to the calendar, but the "
-              WRITE(numout,*) "                 M2 period varies slightly."
-              WRITE(numout,*) "                 Use with care, as this requires more work."
-          ENDIF
-
-          IF ( ( .NOT. ln_tide_drift  ) .AND. ( .NOT. ln_tide_compress ) ) THEN
-              WRITE(numout,*) "       tides360: Use the default NEMO tide code, where the tides are reset "
-              WRITE(numout,*) "                 at the beginning of each month, leading to a slight discontinuity"
-              WRITE(numout,*) "                 in the tides, and making tidal analysis difficult."
-          ENDIF
-
       ELSE        
-          WRITE(numout,*) "       tides360: Gregorian calendar so using standard tides"
+         IF( lwp )  WRITE(numout,*) "       tides360: Gregorian calendar so using standard tides"
       ENDIF