Changeset 2402 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcini.F90

Timestamp:

2010-11-17T17:14:31+01:00 (13 years ago)

Author:

cetlod

Message:

Update TOP component according to changes related to cross-land advection. see ticket #127

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcini.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -93 +93 @@
 
       IF( ln_dm2dc .AND. ( lk_pisces .OR. lk_lobster ) )    &
-      &       CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER  ' )
+         &       CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER  ' )
+
+      IF( nn_cla == 1 )   &
+         &       CALL ctl_stop( ' Cross Land Advection not yet implemented with passive tracer ; nn_cla must be 0' )
 
       IF( lk_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model