Changeset 782 for trunk/NEMO/NST_SRC/agrif_opa_interp.F90
- Timestamp:
- 2008-01-07T10:07:26+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/NST_SRC/agrif_opa_interp.F90
r719 r782 5 5 USE dom_oce 6 6 USE sol_oce 7 USE agrif_oce 7 8 8 9 IMPLICIT NONE … … 13 14 CONTAINS 14 15 15 SUBROUTINE Agrif_tra ( kt )16 SUBROUTINE Agrif_tra 16 17 !!--------------------------------------------- 17 18 !! *** ROUTINE Agrif_Tra *** … … 20 21 # include "vectopt_loop_substitute.h90" 21 22 22 INTEGER, INTENT(in) :: kt23 24 23 INTEGER :: ji,jj,jk 25 24 REAL(wp) :: zrhox … … 175 174 176 175 Agrif_SpecialValue=0. 177 Agrif_UseSpecialValue = .TRUE. 176 Agrif_UseSpecialValue = ln_spc_dyn 177 178 178 zua = 0. 179 179 zva = 0. … … 184 184 185 185 Agrif_SpecialValue=0. 186 Agrif_UseSpecialValue = .TRUE.186 Agrif_UseSpecialValue = ln_spc_dyn 187 187 CALL Agrif_Bc_variable(zua2d,e1u,calledweight=1.,procname=interpu2d) 188 188 CALL Agrif_Bc_variable(zva2d,e2v,calledweight=1.,procname=interpv2d)
Note: See TracChangeset
for help on using the changeset viewer.