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

Changeset 14014


Ignore:
Timestamp:
2020-12-02T16:24:54+01:00 (4 years ago)
Author:
acc
Message:

Changes to fix AGRIF compilation issues with icedyn_rhg_eap.F90

File:
1 edited

Legend:

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

    r13999 r14014  
    2323   !!   rhg_eap_rst     : read/write EVP fields in ice restart 
    2424   !!---------------------------------------------------------------------- 
     25   USE par_oce 
    2526   USE phycst         ! Physical constant 
    2627   USE dom_oce        ! Ocean domain 
     
    749750 
    750751         ! convergence test 
    751          IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice ) 
     752         IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice, jpi, jpj ) 
    752753         ! 
    753754         !                                                ! ==================== ! 
     
    986987 
    987988    
    988    SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb ) 
     989   SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb, jpi, jpj ) 
    989990      !!---------------------------------------------------------------------- 
    990991      !!                    ***  ROUTINE rhg_cvg  *** 
     
    10001001      !!---------------------------------------------------------------------- 
    10011002      INTEGER ,                 INTENT(in) ::   kt, kiter, kitermax       ! ocean time-step index 
     1003      INTEGER ,                 INTENT(in) ::   jpi, jpj 
    10021004      REAL(wp), DIMENSION(:,:), INTENT(in) ::   pu, pv, pub, pvb          ! now and before velocities 
    10031005      !! 
Note: See TracChangeset for help on using the changeset viewer.