Ignore:
Timestamp:
2011-11-08T13:39:35+01:00 (9 years ago)
Author:
hliu
Message:

update semi-implicit bottom friction branch, Document has been added in NEMO_book Chapter 10.4.4

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_NOCL_bfrimp/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r2872 r3057  
    157157      !                              ! allocate zdfbfr arrays 
    158158      IF( zdf_bfr_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_bfr_init : unable to allocate arrays' ) 
     159 
     160      !                              ! Make sure ln_zdfexp=.false. when use implicit bfr 
     161      IF( ln_bfrimp .AND. ln_zdfexp ) THEN 
     162         IF(lwp) THEN 
     163            WRITE(numout,*) 
     164            WRITE(numout,*) 'Implicit bottom friction can only be used when ln_zdfexp=.false.' 
     165            WRITE(numout,*) 'but you set: ln_bfrimp=.true. and ln_zdfexp=.true.!!!!' 
     166            WRITE(ctmp1,*) '         bad ln_bfrimp value = .true.'  
     167            CALL ctl_stop( ctmp1 ) 
     168         END IF 
     169      END IF 
    159170 
    160171      SELECT CASE (nn_bfr) 
Note: See TracChangeset for help on using the changeset viewer.