source:
branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/TOOLS/DMP_TOOLS/src/custom.F90
@
5500
| Last change on this file since 5500 was 5500, checked in by dancopsey, 9 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.
