- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
r6140 r8882 4 4 !!====================================================================== 5 5 !! *** MODULE agrif_top_sponge *** 6 !! AGRIF : define in memory AGRIF variables for sea-ice6 !! AGRIF : sponge layer pakage for passive tracers (TOP) 7 7 !!====================================================================== 8 8 !! History : 2.0 ! 2006-08 (R. Benshila, L. Debreu) Original code 9 9 !!---------------------------------------------------------------------- 10 10 #if defined key_agrif && defined key_top 11 11 !!---------------------------------------------------------------------- 12 12 !! Agrif_Sponge_trc : 13 13 !! interptrn_sponge : 14 14 !!---------------------------------------------------------------------- 15 #if defined key_agrif && defined key_top16 15 USE par_oce 17 16 USE par_trc … … 24 23 USE in_out_manager 25 24 USE lib_mpp 26 USE wrk_nemo27 25 28 26 IMPLICIT NONE … … 32 30 33 31 !!---------------------------------------------------------------------- 34 !! NEMO/NST 3.7 , NEMO Consortium (2015)32 !! NEMO/NST 4.0 , NEMO Consortium (2017) 35 33 !! $Id$ 36 34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 42 40 !! *** ROUTINE Agrif_Sponge_Trc *** 43 41 !!---------------------------------------------------------------------- 44 REAL(wp) :: timecoeff42 REAL(wp) :: zcoef ! local scalar 45 43 !!---------------------------------------------------------------------- 46 44 ! 47 45 #if defined SPONGE_TOP 48 timecoeff = REAL( Agrif_NbStepint(), wp ) / Agrif_rhot()46 zcoef = REAL( Agrif_NbStepint(), wp ) / Agrif_rhot() 49 47 CALL Agrif_sponge 50 48 Agrif_SpecialValue = 0._wp 51 49 Agrif_UseSpecialValue = .TRUE. 52 50 tabspongedone_trn = .FALSE. 53 CALL Agrif_Bc_Variable( trn_sponge_id, calledweight= timecoeff, procname=interptrn_sponge )51 CALL Agrif_Bc_Variable( trn_sponge_id, calledweight=zcoef, procname=interptrn_sponge ) 54 52 Agrif_UseSpecialValue = .FALSE. 55 53 #endif … … 107 105 108 106 #else 109 107 !!---------------------------------------------------------------------- 108 !! Empty module no TOP AGRIF 109 !!---------------------------------------------------------------------- 110 110 CONTAINS 111 111 SUBROUTINE agrif_top_sponge_empty
Note: See TracChangeset
for help on using the changeset viewer.