Changeset 5775


Ignore:
Timestamp:
2015-10-02T15:03:40+02:00 (5 years ago)
Author:
cetlod
Message:

LDF-ADV, step II.2: minor bugfix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r5774 r5775  
    247247      ENDIF 
    248248      ! 
    249       !                              ! Set nadv 
    250       IF( ln_trcadv_cen  )   nadv = np_CEN 
    251       IF( ln_trcadv_fct  )   nadv = np_FCT 
    252       IF( nn_fct_zts > 0 )   nadv = np_FCT_zts 
    253       IF( ln_trcadv_mus  )   nadv = np_MUS 
    254       IF( ln_trcadv_ubs  )   nadv = np_UBS 
    255       IF( ln_trcadv_qck  )   nadv = np_QCK 
     249      !                                !==  used advection scheme  ==! 
     250      !                                      ! set nadv 
     251      IF( ln_trcadv_cen                      )   nadv = np_CEN 
     252      IF( ln_trcadv_fct                      )   nadv = np_FCT 
     253      IF( ln_trcadv_fct .AND. nn_fct_zts > 0 )   nadv = np_FCT_zts 
     254      IF( ln_trcadv_mus                      )   nadv = np_MUS 
     255      IF( ln_trcadv_ubs                      )   nadv = np_UBS 
     256      IF( ln_trcadv_qck                      )   nadv = np_QCK 
    256257      ! 
    257258      IF(lwp) THEN                   ! Print the choice 
Note: See TracChangeset for help on using the changeset viewer.