New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8512 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv_umx.F90 – NEMO

Ignore:
Timestamp:
2017-09-07T20:08:11+02:00 (7 years ago)
Author:
clem
Message:

changes in style - part5 - reaching the end

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv_umx.F90

    r8504 r8512  
    7474      !!---------------------------------------------------------------------- 
    7575      ! 
    76       IF( kt == nit000 .AND. lwp ) THEN 
    77          WRITE(numout,*)  
    78          WRITE(numout,*) 'ice_adv_umx : Ultimate-MACHO advection scheme' 
    79          WRITE(numout,*) '~~~~~~~~~~~' 
    80       ENDIF 
     76      IF( kt == nit000 .AND. lwp )   WRITE(numout,*) '-- ice_adv_umx: Ultimate-Macho advection scheme' 
    8177      ! 
    8278      ALLOCATE( zudy(jpi,jpj) , zvdx(jpi,jpj) , zcu_box(jpi,jpj) , zcv_box(jpi,jpj) ) 
     
    193189      ! High order (_ho) fluxes  
    194190      ! ----------------------- 
    195       SELECT CASE( nn_limadv_ord ) 
     191      SELECT CASE( nn_UMx ) 
    196192      CASE ( 20 )                          ! centered second order 
    197193         DO jj = 2, jpjm1 
     
    203199         ! 
    204200      CASE ( 1:5 )                      ! 1st to 5th order ULTIMATE-MACHO scheme 
    205          CALL macho( kt, nn_limadv_ord, pdt, ptc, puc, pvc, pubox, pvbox, zt_u, zt_v ) 
     201         CALL macho( kt, nn_UMx, pdt, ptc, puc, pvc, pubox, pvbox, zt_u, zt_v ) 
    206202         ! 
    207203         DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.