source: branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/custom.F90 @ 10778

Last change on this file since 10778 was 4739, checked in by timgraham, 6 years ago

Updated C1D/dyndmp.F90 and trcdmp.F90 to read restoration coefficient from a file.
Modified namelist_top_ref to match new options
Bug fixes to DMP_TOOLS tool and addition of custom.F90 to allow users to make modifications. Also changed to use working precision (wp) throughout.

File size: 506 bytes
Line 
1MODULE custom
2
3   USE utils
4
5   IMPLICIT NONE
6   PUBLIC
7
8   CONTAINS
9
10   SUBROUTINE custom_resto( presto )
11      !!---------------------------------
12      !!     **ROUTINE: custom_resto
13      !!
14      !!  ** Purpose: Module to be edited by users to create custom restoration
15      !!              coefficient files (e.g. regional damping).
16      !!
17      !!-------------------------------------
18      REAL(wp), DIMENSION(jpi,jpk), INTENT(inout) :: presto
19
20   END SUBROUTINE custom_resto
21
22END MODULE custom
Note: See TracBrowser for help on using the repository browser.