Changeset 3490 for branches/2012/dev_r3327_MERCATOR1_BDY/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

Timestamp:

2012-10-08T16:27:20+02:00 (12 years ago)

Author:

cbricaud

Message:

add Jerome Chanut 's modications for BDY, Mercator_1 2012 task

File:

• branches/2012/dev_r3327_MERCATOR1_BDY/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90 (modified) (4 diffs)

branches/2012/dev_r3327_MERCATOR1_BDY/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

@@ -26 +26 @@
        ftide
 
-  LOGICAL, PUBLIC :: ln_tide_pot = .false.
+  LOGICAL, PUBLIC :: ln_tide_pot = .false., ln_tide_ramp = .false.
+  REAL(wp), PUBLIC :: rdttideramp 
   INTEGER, PUBLIC :: nb_harmo
   INTEGER, PUBLIC, ALLOCATABLE, DIMENSION(:) :: ntide
@@ -46 +47 @@
     CHARACTER(LEN=4), DIMENSION(jpmax_harmo) :: clname
     !
-    NAMELIST/nam_tide/ln_tide_pot,clname
+    NAMELIST/nam_tide/ln_tide_pot, ln_tide_ramp, rdttideramp, clname
     !!----------------------------------------------------------------------
 
@@ -54 +55 @@
           WRITE(numout,*)
           WRITE(numout,*) 'tide_init : Initialization of the tidal components'
-          WRITE(numout,*) '~~~~~~~ '
+          WRITE(numout,*) '~~~~~~~~~ '
        ENDIF
        !
@@ -77 +78 @@
           WRITE(numout,*) '        Namelist nam_tide'
           WRITE(numout,*) '        nb_harmo    = ', nb_harmo
+          WRITE(numout,*) '        ln_tide_ramp = ', ln_tide_ramp 
+          WRITE(numout,*) '        rdttideramp = ', rdttideramp
+          IF (ln_tide_ramp.AND.((nitend-nit000+1)*rdt/rday < rdttideramp)) &
+          & CALL ctl_stop('rdttideramp must be lower than run duration')
+          IF (ln_tide_ramp.AND.(rdttideramp<0.)) &
+          & CALL ctl_stop('rdttideramp must be positive')
           CALL flush(numout)
        ENDIF