Changeset 14053 for NEMO/trunk/src/OCE/DYN/dynadv.F90

Timestamp:

2020-12-03T14:48:38+01:00 (3 years ago)

Author:

techene

Message:

#2385 added to the trunk

File:

• NEMO/trunk/src/OCE/DYN/dynadv.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/DYN/dynadv.F90

@@ -127 +127 @@
       IF( ioptio /= 1 )   CALL ctl_stop( 'choose ONE and only ONE advection scheme' )
       IF( nn_dynkeg /= nkeg_C2 .AND. nn_dynkeg /= nkeg_HW )   CALL ctl_stop( 'KEG scheme wrong value of nn_dynkeg' )
-
+#if defined key_qcoTest_FluxForm
+      IF( ln_dynadv_vec  ) THEN CALL ctl_stop( 'STOP', 'key_qcoTest_FluxForm requires flux form advection' )
+#endif
 
       IF(lwp) THEN                    ! Print the choice