- Timestamp:
- 2017-09-07T20:08:11+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv_umx.F90
r8504 r8512 74 74 !!---------------------------------------------------------------------- 75 75 ! 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' 81 77 ! 82 78 ALLOCATE( zudy(jpi,jpj) , zvdx(jpi,jpj) , zcu_box(jpi,jpj) , zcv_box(jpi,jpj) ) … … 193 189 ! High order (_ho) fluxes 194 190 ! ----------------------- 195 SELECT CASE( nn_ limadv_ord)191 SELECT CASE( nn_UMx ) 196 192 CASE ( 20 ) ! centered second order 197 193 DO jj = 2, jpjm1 … … 203 199 ! 204 200 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 ) 206 202 ! 207 203 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.