Changeset 15778

Timestamp:

2022-04-11T10:21:39+02:00 (2 years ago)

Author:

frrh

Message:

Correct intent of pe3_out

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/DOM/domvvl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/DOM/domvvl.F90

@@ -683 +683 @@
    SUBROUTINE dom_vvl_interpol( pe3_in, pe3_out, pout )
       !!---------------------------------------------------------------------
-      !!                  ***  ROUTINE dom_vvl__interpol  ***
+      !!                  ***  ROUTINE dom_vvl_interpol  ***
       !!
       !! ** Purpose :   interpolate scale factors from one grid point to another
@@ -692 +692 @@
       !!----------------------------------------------------------------------
       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in   ) ::  pe3_in    ! input e3 to be interpolated
-      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::  pe3_out   ! output interpolated e3
+      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(out)   ::  pe3_out   ! output interpolated e3
       CHARACTER(LEN=*)                , INTENT(in   ) ::  pout      ! grid point of out scale factors
       !                                                             !   =  'U', 'V', 'W, 'F', 'UW' or 'VW'