Changeset 9737


Ignore:
Timestamp:
2018-06-05T14:37:53+02:00 (2 years ago)
Author:
clem
Message:

allow the model to run with traldf_triad option (remove a ctl_stop)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LDF/ldftra.F90

    r9598 r9737  
    195195      IF( .NOT.ln_traldf_OFF ) THEN    !==  direction ==>> type of operator  ==! 
    196196         ioptio = 0 
    197          IF( ln_traldf_lev )   ioptio = ioptio + 1 
    198          IF( ln_traldf_hor )   ioptio = ioptio + 1 
    199          IF( ln_traldf_iso )   ioptio = ioptio + 1 
    200          IF( ioptio /=  1  )   CALL ctl_stop( 'tra_ldf_init: use ONE direction (level/hor/iso)' ) 
     197         IF( ln_traldf_lev   )   ioptio = ioptio + 1 
     198         IF( ln_traldf_hor   )   ioptio = ioptio + 1 
     199         IF( ln_traldf_iso   )   ioptio = ioptio + 1 
     200         IF( ln_traldf_triad )   ioptio = ioptio + 1 
     201         IF( ioptio /=  1  )   CALL ctl_stop( 'tra_ldf_init: use ONE direction (level/hor/iso/triad)' ) 
    201202         ! 
    202203         !                                ! defined the type of lateral diffusion from ln_traldf_... logicals 
Note: See TracChangeset for help on using the changeset viewer.