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 14024 – NEMO

Changeset 14024


Ignore:
Timestamp:
2020-12-03T09:36:48+01:00 (4 years ago)
Author:
mathiot
Message:

Caught up with trunk rev 14023

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/tickets_icb_1900/src/ICE/icedyn_rhg_eap.F90

    r14016 r14024  
    1616   !!                                           CICE code (Tsamados, Heorton)  
    1717   !!---------------------------------------------------------------------- 
    18 #if defined key_si3 
     18#if defined key_si3 && ! defined key_agrif 
    1919   !!---------------------------------------------------------------------- 
    2020   !!   'key_si3'                                       SI3 sea-ice model 
     
    2323   !!   rhg_eap_rst     : read/write EVP fields in ice restart 
    2424   !!---------------------------------------------------------------------- 
    25    USE par_oce 
    2625   USE phycst         ! Physical constant 
    2726   USE dom_oce        ! Ocean domain 
     
    750749 
    751750         ! convergence test 
    752          IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice, jpi, jpj ) 
     751         IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice ) 
    753752         ! 
    754753         !                                                ! ==================== ! 
     
    987986 
    988987    
    989    SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb, jpi, jpj ) 
     988   SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb ) 
    990989      !!---------------------------------------------------------------------- 
    991990      !!                    ***  ROUTINE rhg_cvg  *** 
     
    10011000      !!---------------------------------------------------------------------- 
    10021001      INTEGER ,                 INTENT(in) ::   kt, kiter, kitermax       ! ocean time-step index 
    1003       INTEGER ,                 INTENT(in) ::   jpi, jpj 
    10041002      REAL(wp), DIMENSION(:,:), INTENT(in) ::   pu, pv, pub, pvb          ! now and before velocities 
    10051003      !! 
     
    19721970   !!   Default option         Empty module           NO SI3 sea-ice model 
    19731971   !!---------------------------------------------------------------------- 
     1972   USE par_kind 
     1973   USE lib_mpp 
     1974   CONTAINS 
     1975   SUBROUTINE ice_dyn_rhg_eap( kt, Kmm, pstress1_i, pstress2_i, pstress12_i, pshear_i, pdivu_i, pdelta_i, paniso_11, paniso_12, prdg_conv ) 
     1976      INTEGER                 , INTENT(in   ) ::   kt                                    ! time step 
     1977      INTEGER                 , INTENT(in   ) ::   Kmm                                   ! ocean time level index 
     1978      REAL(wp), DIMENSION(:,:), INTENT(in   ) ::   pstress1_i, pstress2_i, pstress12_i   ! 
     1979      REAL(wp), DIMENSION(:,:), INTENT(in   ) ::   pshear_i  , pdivu_i   , pdelta_i      ! 
     1980      REAL(wp), DIMENSION(:,:), INTENT(in   ) ::   paniso_11 , paniso_12                 ! structure tensor components 
     1981      REAL(wp), DIMENSION(:,:), INTENT(in   ) ::   prdg_conv                             ! for ridging 
     1982      CALL ctl_stop('EAP rheology is currently dsabled due to issues with AGRIF preprocessing') 
     1983   END SUBROUTINE ice_dyn_rhg_eap 
     1984   SUBROUTINE rhg_eap_rst( cdrw, kt ) 
     1985      CHARACTER(len=*) , INTENT(in) ::   cdrw   ! "READ"/"WRITE" flag 
     1986      INTEGER, OPTIONAL, INTENT(in) ::   kt     ! ice time-step 
     1987   END SUBROUTINE rhg_eap_rst 
    19741988#endif 
    19751989 
Note: See TracChangeset for help on using the changeset viewer.