Changeset 5970


Ignore:
Timestamp:
2015-12-01T20:31:12+01:00 (5 years ago)
Author:
mathiot
Message:

ISF: minor change to run ISOMIP with 2nd order COMPACT scheme

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r5956 r5970  
    243243      ENDIF 
    244244      IF( ln_isfcav ) THEN                                                       ! ice-shelf cavities 
    245          IF(  ln_traadv_cen .AND. nn_cen_v /= 4    .OR.   &                            ! NO 4th order with ISF 
    246             & ln_traadv_fct .AND. nn_fct_v /= 4   )   CALL ctl_stop( 'tra_adv_init: 4th order COMPACT scheme not allowed with ISF' ) 
     245         IF(  ln_traadv_cen .AND. nn_cen_v == 4    .OR.   &                            ! NO 4th order with ISF 
     246            & ln_traadv_fct .AND. nn_fct_v == 4   )   CALL ctl_stop( 'tra_adv_init: 4th order COMPACT scheme not allowed with ISF' ) 
    247247      ENDIF 
    248248      ! 
Note: See TracChangeset for help on using the changeset viewer.