- Timestamp:
- 2012-10-08T16:27:20+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3327_MERCATOR1_BDY/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90
r3367 r3490 26 26 ftide 27 27 28 LOGICAL, PUBLIC :: ln_tide_pot = .false. 28 LOGICAL, PUBLIC :: ln_tide_pot = .false., ln_tide_ramp = .false. 29 REAL(wp), PUBLIC :: rdttideramp 29 30 INTEGER, PUBLIC :: nb_harmo 30 31 INTEGER, PUBLIC, ALLOCATABLE, DIMENSION(:) :: ntide … … 46 47 CHARACTER(LEN=4), DIMENSION(jpmax_harmo) :: clname 47 48 ! 48 NAMELIST/nam_tide/ln_tide_pot, clname49 NAMELIST/nam_tide/ln_tide_pot, ln_tide_ramp, rdttideramp, clname 49 50 !!---------------------------------------------------------------------- 50 51 … … 54 55 WRITE(numout,*) 55 56 WRITE(numout,*) 'tide_init : Initialization of the tidal components' 56 WRITE(numout,*) '~~~~~~~ '57 WRITE(numout,*) '~~~~~~~~~ ' 57 58 ENDIF 58 59 ! … … 77 78 WRITE(numout,*) ' Namelist nam_tide' 78 79 WRITE(numout,*) ' nb_harmo = ', nb_harmo 80 WRITE(numout,*) ' ln_tide_ramp = ', ln_tide_ramp 81 WRITE(numout,*) ' rdttideramp = ', rdttideramp 82 IF (ln_tide_ramp.AND.((nitend-nit000+1)*rdt/rday < rdttideramp)) & 83 & CALL ctl_stop('rdttideramp must be lower than run duration') 84 IF (ln_tide_ramp.AND.(rdttideramp<0.)) & 85 & CALL ctl_stop('rdttideramp must be positive') 79 86 CALL flush(numout) 80 87 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.