Ignore:
Timestamp:
2018-05-18T16:29:56+02:00 (3 years ago)
Author:
clem
Message:

replace names of the agrif subroutines from si3 to ice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

    r9604 r9610  
    495495            ! 
    496496#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' ) 
    499499#endif 
    500500            IF( ln_bdy ) CALL bdy_ice_dyn( 'V' ) 
     
    543543            ! 
    544544#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' ) 
    547547#endif 
    548548            IF( ln_bdy ) CALL bdy_ice_dyn( 'U' ) 
     
    593593            ! 
    594594#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' ) 
    597597#endif 
    598598            IF( ln_bdy ) CALL bdy_ice_dyn( 'U' ) 
     
    641641            ! 
    642642#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' ) 
    645645#endif 
    646646            IF( ln_bdy ) CALL bdy_ice_dyn( 'V' ) 
Note: See TracChangeset for help on using the changeset viewer.