Changeset 15778 for NEMO/branches
- Timestamp:
- 2022-04-11T10:21:39+02:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/DOM/domvvl.F90
r15777 r15778 683 683 SUBROUTINE dom_vvl_interpol( pe3_in, pe3_out, pout ) 684 684 !!--------------------------------------------------------------------- 685 !! *** ROUTINE dom_vvl_ _interpol ***685 !! *** ROUTINE dom_vvl_interpol *** 686 686 !! 687 687 !! ** Purpose : interpolate scale factors from one grid point to another … … 692 692 !!---------------------------------------------------------------------- 693 693 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in ) :: pe3_in ! input e3 to be interpolated 694 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout):: pe3_out ! output interpolated e3694 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(out) :: pe3_out ! output interpolated e3 695 695 CHARACTER(LEN=*) , INTENT(in ) :: pout ! grid point of out scale factors 696 696 ! ! = 'U', 'V', 'W, 'F', 'UW' or 'VW'
Note: See TracChangeset
for help on using the changeset viewer.