Changeset 5102 for trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90
- Timestamp:
- 2015-02-23T10:42:04+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90
r4990 r5102 24 24 USE trdtra 25 25 USE trd_oce 26 USE iom 26 27 27 28 IMPLICIT NONE … … 302 303 !!---------------------------------------------------------------------- 303 304 ! 305 INTEGER :: imask !local file handle 306 304 307 IF( nn_timing == 1 ) CALL timing_start('trc_dmp_init') 305 308 ! 306 SELECT CASE ( nn_hdmp_tr )307 CASE ( -1 ) ; IF(lwp) WRITE(numout,*) ' tracer damping in the Med & Red seas only'308 CASE ( 1:90 ) ; IF(lwp) WRITE(numout,*) ' tracer damping poleward of', nn_hdmp_tr, ' degrees'309 CASE DEFAULT310 WRITE(ctmp1,*) ' bad flag value for nn_hdmp_tr = ', nn_hdmp_tr311 CALL ctl_stop(ctmp1)312 END SELECT313 309 314 310 IF( lzoom ) nn_zdmp_tr = 0 ! restoring to climatology at closed north or south boundaries … … 325 321 & CALL ctl_stop( 'passive trace damping need key_tradmp to compute damping coef.' ) 326 322 ! 327 ! ! Damping coefficients initialization328 IF( lzoom ) THEN ; CALL dtacof_zoom( restotr )329 ELSE ; CALL dtacof( nn_hdmp_tr, rn_surf_tr, rn_bot_tr, rn_dep_tr, &330 & nn_file_tr, 'TRC' , restotr)331 ENDIF323 ! ! Read damping coefficients from file 324 !Read in mask from file 325 CALL iom_open ( cn_resto_tr, imask) 326 CALL iom_get ( imask, jpdom_autoglo, 'resto', restotr) 327 CALL iom_close( imask ) 332 328 ! 333 329 IF( nn_timing == 1 ) CALL timing_stop('trc_dmp_init')
Note: See TracChangeset
for help on using the changeset viewer.