Changeset 9610 for NEMO/trunk/src/ICE
- Timestamp:
- 2018-05-18T16:29:56+02:00 (6 years ago)
- Location:
- NEMO/trunk/src/ICE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_rhg_evp.F90
r9604 r9610 495 495 ! 496 496 #if defined key_agrif 497 !! CALL agrif_interp_ si3( 'V', jter, nn_nevp )498 CALL agrif_interp_ si3( 'V' )497 !! CALL agrif_interp_ice( 'V', jter, nn_nevp ) 498 CALL agrif_interp_ice( 'V' ) 499 499 #endif 500 500 IF( ln_bdy ) CALL bdy_ice_dyn( 'V' ) … … 543 543 ! 544 544 #if defined key_agrif 545 !! CALL agrif_interp_ si3( 'U', jter, nn_nevp )546 CALL agrif_interp_ si3( 'U' )545 !! CALL agrif_interp_ice( 'U', jter, nn_nevp ) 546 CALL agrif_interp_ice( 'U' ) 547 547 #endif 548 548 IF( ln_bdy ) CALL bdy_ice_dyn( 'U' ) … … 593 593 ! 594 594 #if defined key_agrif 595 !! CALL agrif_interp_ si3( 'U', jter, nn_nevp )596 CALL agrif_interp_ si3( 'U' )595 !! CALL agrif_interp_ice( 'U', jter, nn_nevp ) 596 CALL agrif_interp_ice( 'U' ) 597 597 #endif 598 598 IF( ln_bdy ) CALL bdy_ice_dyn( 'U' ) … … 641 641 ! 642 642 #if defined key_agrif 643 !! CALL agrif_interp_ si3( 'V', jter, nn_nevp )644 CALL agrif_interp_ si3( 'V' )643 !! CALL agrif_interp_ice( 'V', jter, nn_nevp ) 644 CALL agrif_interp_ice( 'V' ) 645 645 #endif 646 646 IF( ln_bdy ) CALL bdy_ice_dyn( 'V' ) -
NEMO/trunk/src/ICE/icestp.F90
r9604 r9610 132 132 IF( .NOT. Agrif_Root() ) lim_nbstep = MOD( lim_nbstep, Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) + 1 133 133 ! ! these calls must remain here for restartability purposes 134 CALL agrif_interp_ si3( 'T' )135 CALL agrif_interp_ si3( 'U' )136 CALL agrif_interp_ si3( 'V' )134 CALL agrif_interp_ice( 'T' ) 135 CALL agrif_interp_ice( 'U' ) 136 CALL agrif_interp_ice( 'V' ) 137 137 #endif 138 138 CALL store_fields ! Store now ice values
Note: See TracChangeset
for help on using the changeset viewer.