Changeset 2402 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.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/TRP/trcadv.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -150 +150 @@
       IF( ioptio /= 1 )   CALL ctl_stop( 'Choose ONE advection scheme in namelist namtrc_adv' )
 
-      IF( n_cla == 1 .AND. .NOT. ln_trcadv_cen2 )   &
-         &                CALL ctl_stop( 'cross-land advection only with 2nd order advection scheme' )
-
       !                              ! Set nadv
       IF( ln_trcadv_cen2   )   nadv =  1