Changeset 6404 for branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90
- Timestamp:
- 2016-03-29T11:24:48+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90
r6401 r6404 4 4 USE oce 5 5 USE dom_oce 6 USE sol_oce7 6 USE agrif_oce 8 7 USE agrif_top_sponge … … 17 16 PUBLIC Agrif_trc, interptrn 18 17 19 # include "domzgr_substitute.h90"20 18 # include "vectopt_loop_substitute.h90" 21 19 !!---------------------------------------------------------------------- … … 24 22 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 25 23 !!---------------------------------------------------------------------- 26 27 CONTAINS 24 CONTAINS 28 25 29 26 SUBROUTINE Agrif_trc … … 41 38 ! 42 39 END SUBROUTINE Agrif_trc 40 43 41 44 42 SUBROUTINE interptrn(ptab,i1,i2,j1,j2,k1,k2,n1,n2,before,nb,ndir)
Note: See TracChangeset
for help on using the changeset viewer.