- Timestamp:
- 2014-08-13T10:46:04+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90
r4359 r4739 302 302 !!---------------------------------------------------------------------- 303 303 ! 304 INTEGER, imask !local file handle 305 304 306 IF( nn_timing == 1 ) CALL timing_start('trc_dmp_init') 305 307 ! 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 308 314 309 IF( lzoom ) nn_zdmp_tr = 0 ! restoring to climatology at closed north or south boundaries … … 325 320 & CALL ctl_stop( 'passive trace damping need key_tradmp to compute damping coef.' ) 326 321 ! 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 ENDIF322 ! ! Read damping coefficients from file 323 !Read in mask from file 324 CALL iom_open ( cn_resto_tr, imask) 325 CALL iom_get ( imask, jpdom_autoglo, 'resto', restotr) 326 CALL iom_close( imask ) 332 327 ! 333 328 IF( nn_timing == 1 ) CALL timing_stop('trc_dmp_init')
Note: See TracChangeset
for help on using the changeset viewer.