source:
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/DMP_TOOLS/src/custom.F90
@
5967
| Last change on this file since 5967 was 5967, checked in by timgraham, 8 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.
