Changeset 10685 for branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

Timestamp:

2019-02-14T16:55:25+01:00 (5 years ago)

Author:

jcastill

Message:

Changes as Ash's files

File:

• branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90 (modified) (4 diffs)

branches/UKMO/r8395_India_uncoupled/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

@@ -31 +31 @@
    INTEGER , PUBLIC ::   kt_tide         !:
    REAL(wp), PUBLIC ::   rdttideramp     !:
-   
+   REAL(wp), PUBLIC ::   dn_love_number  !:
    INTEGER , PUBLIC, ALLOCATABLE, DIMENSION(:) ::   ntide   !:
 
@@ -49 +49 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !
-      NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_tide_ramp, rdttideramp, clname
+      NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_tide_ramp, rdttideramp, dn_love_number, clname
       !!----------------------------------------------------------------------
       !
@@ -70 +70 @@
             WRITE(numout,*) '              Use tidal components : ln_tide      = ', ln_tide
             WRITE(numout,*) '      Apply astronomical potential : ln_tide_pot  = ', ln_tide_pot
-            WRITE(numout,*) '                                     nb_harmo     = ', nb_harmo
             WRITE(numout,*) '                                     ln_tide_ramp = ', ln_tide_ramp
-            WRITE(numout,*) '                                     rdttideramp  = ', rdttideramp
+            WRITE(numout,*) '                                     dn_love_number = ', dn_love_number
          ENDIF
       ELSE
@@ -89 +88 @@
          END DO
       END DO
-      !       
+      IF (ln_tide .and.lwp) WRITE(numout,*) '                                     nb_harmo     = ', nb_harmo
+
       ! Ensure that tidal components have been set in namelist_cfg
       IF( nb_harmo == 0 )   CALL ctl_stop( 'tide_init : No tidal components set in nam_tide' )