source:
branches/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/TOOLS/DMP_TOOLS/src/custom.F90
@
5102
Last change on this file since 5102 was 4739, checked in by timgraham, 10 years ago | |
---|---|
File size: 506 bytes |
Rev | Line | |
---|---|---|
[4739] | 1 | MODULE 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 | ||
22 | END MODULE custom |
Note: See TracBrowser
for help on using the repository browser.