Changeset 9610


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

replace names of the agrif subroutines from si3 to ice

Location:
NEMO/trunk/src
Files:
7 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' ) 
  • NEMO/trunk/src/ICE/icestp.F90

    r9604 r9610  
    132132         IF( .NOT. Agrif_Root() )       lim_nbstep = MOD( lim_nbstep, Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) + 1 
    133133         !                              ! 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' ) 
    137137#endif 
    138138                                        CALL store_fields             ! Store now ice values 
  • NEMO/trunk/src/NST/agrif_ice_interp.F90

    r9598 r9610  
    1414   !!   'key_agrif' :                                 AGRIF library 
    1515   !!---------------------------------------------------------------------- 
    16    !!  agrif_interp_si3    : interpolation of ice at "after" sea-ice time step 
     16   !!  agrif_interp_ice    : interpolation of ice at "after" sea-ice time step 
    1717   !!  agrif_interp_u_ice   : atomic routine to interpolate u_ice  
    1818   !!  agrif_interp_v_ice   : atomic routine to interpolate v_ice  
     
    2929   PRIVATE 
    3030 
    31    PUBLIC   agrif_interp_si3   ! called by agrif_user.F90 
     31   PUBLIC   agrif_interp_ice   ! called by agrif_user.F90 
    3232 
    3333   !!---------------------------------------------------------------------- 
     
    3939CONTAINS 
    4040 
    41    SUBROUTINE agrif_interp_si3( cd_type, kiter, kitermax ) 
     41   SUBROUTINE agrif_interp_ice( cd_type, kiter, kitermax ) 
    4242      !!----------------------------------------------------------------------- 
    4343      !!                 *** ROUTINE agrif_rhg_lim3  *** 
     
    7777      Agrif_UseSpecialValue = .FALSE. 
    7878      ! 
    79    END SUBROUTINE agrif_interp_si3 
     79   END SUBROUTINE agrif_interp_ice 
    8080 
    8181 
  • NEMO/trunk/src/NST/agrif_ice_update.F90

    r9598 r9610  
    1717   !!   'key_agrif' :                                 AGRIF library  
    1818   !!---------------------------------------------------------------------- 
    19    !!   agrif_update_si3  : update sea-ice on boundaries or total 
     19   !!   agrif_update_ice  : update sea-ice on boundaries or total 
    2020   !!                        child domain for velocities and ice properties 
    2121   !!   update_tra_ice     : sea-ice properties 
     
    3333   PRIVATE 
    3434 
    35    PUBLIC   agrif_update_si3   ! called by agrif_user.F90 and icestp.F90 
     35   PUBLIC   agrif_update_ice   ! called by agrif_user.F90 and icestp.F90 
    3636 
    3737   !!---------------------------------------------------------------------- 
     
    4242CONTAINS 
    4343 
    44    SUBROUTINE agrif_update_si3( kt ) 
     44   SUBROUTINE agrif_update_ice( kt ) 
    4545      !!---------------------------------------------------------------------- 
    46       !!                     *** ROUTINE agrif_update_si3 *** 
     46      !!                     *** ROUTINE agrif_update_ice *** 
    4747      !! ** Method  :   Call the hydrostaticupdate pressure at the boundary or the entire domain  
    4848      !! 
     
    7070      Agrif_UseSpecialValueInUpdate = .FALSE. 
    7171      ! 
    72    END SUBROUTINE agrif_update_si3 
     72   END SUBROUTINE agrif_update_ice 
    7373 
    7474 
  • NEMO/trunk/src/NST/agrif_user.F90

    r9598 r9610  
    6262# endif 
    6363# if defined key_si3 
    64    CALL Agrif_InitValues_cont_si3 
     64   CALL Agrif_InitValues_cont_ice 
    6565# endif 
    6666   ! 
     
    327327 
    328328#if defined key_si3 
    329    CALL agrif_update_si3(0) 
     329   CALL agrif_update_ice(0) 
    330330#endif 
    331331    
     
    493493 
    494494#if defined key_si3 
    495 SUBROUTINE Agrif_InitValues_cont_si3 
    496    !!---------------------------------------------------------------------- 
    497    !!                 *** ROUTINE Agrif_InitValues_cont_si3 *** 
     495SUBROUTINE Agrif_InitValues_cont_ice 
     496   !!---------------------------------------------------------------------- 
     497   !!                 *** ROUTINE Agrif_InitValues_cont_ice *** 
    498498   !! 
    499499   !! ** Purpose :: Initialisation of variables to be interpolated for LIM3 
     
    512512   ! Declaration of the type of variable which have to be interpolated (parent=>child) 
    513513   !---------------------------------------------------------------------------------- 
    514    CALL agrif_declare_var_si3 
     514   CALL agrif_declare_var_ice 
    515515 
    516516   ! Controls 
     
    529529   !---------------------------------------------------------------------- 
    530530   lim_nbstep = ( Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) ! clem: to have calledweight=1 in interp (otherwise the western border of the zoom is wrong) 
    531    CALL agrif_interp_si3('U') ! interpolation of ice velocities 
    532    CALL agrif_interp_si3('V') ! interpolation of ice velocities 
    533    CALL agrif_interp_si3('T') ! interpolation of ice tracers  
     531   CALL agrif_interp_ice('U') ! interpolation of ice velocities 
     532   CALL agrif_interp_ice('V') ! interpolation of ice velocities 
     533   CALL agrif_interp_ice('T') ! interpolation of ice tracers  
    534534   lim_nbstep = 0 
    535535    
    536536   ! 
    537 END SUBROUTINE Agrif_InitValues_cont_si3 
    538  
    539 SUBROUTINE agrif_declare_var_si3 
    540    !!---------------------------------------------------------------------- 
    541    !!                 *** ROUTINE agrif_declare_var_si3 *** 
     537END SUBROUTINE Agrif_InitValues_cont_ice 
     538 
     539SUBROUTINE agrif_declare_var_ice 
     540   !!---------------------------------------------------------------------- 
     541   !!                 *** ROUTINE agrif_declare_var_ice *** 
    542542   !! 
    543543   !! ** Purpose :: Declaration of variables to be interpolated for LIM3 
     
    590590#endif 
    591591 
    592 END SUBROUTINE agrif_declare_var_si3 
     592END SUBROUTINE agrif_declare_var_ice 
    593593#endif 
    594594 
  • NEMO/trunk/src/OCE/step.F90

    r9598 r9610  
    297297!!jc in fact update is useless at last time step, but do it for global diagnostics 
    298298#if defined key_si3 
    299                               CALL Agrif_Update_si3( kstp )   ! update sea-ice 
     299                              CALL Agrif_Update_ice( kstp )   ! update sea-ice 
    300300#endif 
    301301                              CALL Agrif_Update_ssh()          ! Update ssh 
  • NEMO/trunk/src/SAS/step.F90

    r9598 r9610  
    110110      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent  
    111111#if defined key_si3 
    112                              CALL Agrif_Update_si3( kstp )   ! update sea-ice 
     112                             CALL Agrif_Update_ice( kstp )   ! update sea-ice 
    113113#endif 
    114114      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.