Ignore:
Timestamp:
2014-02-06T11:43:09+01:00 (7 years ago)
Author:
rfurner
Message:

fixes to enable proper calulation of slopes for geopotential diffusion in scoords

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

    r3294 r4488  
    2020   USE dynldf_iso     ! lateral mixing            (dyn_ldf_iso    routine) 
    2121   USE dynldf_lap     ! lateral mixing            (dyn_ldf_lap    routine) 
     22   USE ldftra_oce, ONLY: ln_traldf_hor     ! ocean tracers lateral physics 
    2223   USE trdmod         ! ocean dynamics and tracer trends 
    2324   USE trdmod_oce     ! ocean variables trends 
     
    152153      IF( ioptio >  1 ) CALL ctl_stop( '          use only ONE direction (level/hor/iso)' ) 
    153154 
     155      IF( ln_dynldf_iso .AND. ln_traldf_hor ) CALL ctl_stop( 'Not sensible to use geopotential diffusion for tracers with isoneutral diffusion for dynamics' ) 
     156 
    154157      !                                   ! Set nldf, the type of lateral diffusion, from ln_dynldf_... logicals 
    155158      ierr = 0 
Note: See TracChangeset for help on using the changeset viewer.