Ignore:
Timestamp:
2020-02-25T16:29:34+01:00 (12 months ago)
Author:
jcastill
Message:

First implementation of the branch - compiling after merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/tideini.F90

    r11715 r12453  
    3333   INTEGER , PUBLIC ::   kt_tide         !: 
    3434   REAL(wp), PUBLIC ::   rdttideramp     !: 
     35   REAL(wp), PUBLIC ::   dn_love_number  !: 
    3536   REAL(wp), PUBLIC ::   rn_scal_load    !: 
    3637   CHARACTER(lc), PUBLIC ::   cn_tide_load   !:  
     
    5455      ! 
    5556      NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_scal_load, ln_read_load, cn_tide_load, & 
    56                   &     ln_tide_ramp, rn_scal_load, rdttideramp, clname 
     57                  &     ln_tide_ramp, rn_scal_load, rdttideramp, dn_love_number, clname 
    5758      !!---------------------------------------------------------------------- 
    5859      ! 
     
    7879            WRITE(numout,*) '         Read load potential from file           ln_read_load = ', ln_read_load 
    7980            WRITE(numout,*) '         Apply ramp on tides at startup          ln_tide_ramp = ', ln_tide_ramp 
     81            WRITE(numout,*) '                                              dn_love_number  = ', dn_love_number 
    8082            WRITE(numout,*) '         Fraction of SSH used in scal. approx.   rn_scal_load = ', rn_scal_load 
    8183            WRITE(numout,*) '         Duration (days) of ramp                 rdttideramp  = ', rdttideramp 
     
    99101      END DO 
    100102      !        
     103      IF (ln_tide .and.lwp) WRITE(numout,*) '                                     nb_harmo     = ', nb_harmo 
     104 
    101105      ! Ensure that tidal components have been set in namelist_cfg 
    102106      IF( nb_harmo == 0 )   CALL ctl_stop( 'tide_init : No tidal components set in nam_tide' ) 
Note: See TracChangeset for help on using the changeset viewer.