Changeset 14014

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:

• NEMO/trunk/src/ICE/icedyn_rhg_eap.F90 (modified) (4 diffs)

NEMO/trunk/src/ICE/icedyn_rhg_eap.F90

@@ -23 +23 @@
    !!   rhg_eap_rst     : read/write EVP fields in ice restart
    !!----------------------------------------------------------------------
+   USE par_oce
    USE phycst         ! Physical constant
    USE dom_oce        ! Ocean domain
@@ -749 +750 @@
 
          ! convergence test
-         IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice )
+         IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice, jpi, jpj )
          !
          !                                                ! ==================== !
@@ -986 +987 @@
 
    
-   SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb )
+   SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb, jpi, jpj )
       !!----------------------------------------------------------------------
       !!                    ***  ROUTINE rhg_cvg  ***
@@ -1000 +1001 @@
       !!----------------------------------------------------------------------
       INTEGER ,                 INTENT(in) ::   kt, kiter, kitermax       ! ocean time-step index
+      INTEGER ,                 INTENT(in) ::   jpi, jpj
       REAL(wp), DIMENSION(:,:), INTENT(in) ::   pu, pv, pub, pvb          ! now and before velocities
       !!