- Timestamp:
- 2017-12-14T16:33:33+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
r9031 r9056 45 45 #if defined SPONGE_TOP 46 46 !! Assume persistence 47 timecoeff = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())47 zcoef = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot()) 48 48 CALL Agrif_sponge 49 49 Agrif_SpecialValue = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.