Changeset 3057 for branches/2011/dev_r2802_NOCL_bfrimp/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

Timestamp:

2011-11-08T13:39:35+01:00 (12 years ago)

Author:

hliu

Message:

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

File:

• branches/2011/dev_r2802_NOCL_bfrimp/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90 (modified) (1 diff)

branches/2011/dev_r2802_NOCL_bfrimp/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

@@ -157 +157 @@
       !                              ! allocate zdfbfr arrays
       IF( zdf_bfr_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_bfr_init : unable to allocate arrays' )
+
+      !                              ! Make sure ln_zdfexp=.false. when use implicit bfr
+      IF( ln_bfrimp .AND. ln_zdfexp ) THEN
+         IF(lwp) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) 'Implicit bottom friction can only be used when ln_zdfexp=.false.'
+            WRITE(numout,*) 'but you set: ln_bfrimp=.true. and ln_zdfexp=.true.!!!!'
+            WRITE(ctmp1,*) '         bad ln_bfrimp value = .true.' 
+            CALL ctl_stop( ctmp1 )
+         END IF
+      END IF
 
       SELECT CASE (nn_bfr)