source:
branches/UKMO/dev_r5518_GO6_runoff_O4test/NEMOGCM/TOOLS/DMP_TOOLS/src/custom.F90
@
12489
Last change on this file since 12489 was 4739, checked in by timgraham, 10 years ago | |
---|---|
File size: 506 bytes |
Line | |
---|---|
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.