source:
branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/SOL/solfet_tam.F90
@
1885
| Last change on this file since 1885 was 1885, checked in by rblod, 14 years ago | |
|---|---|
| File size: 2.0 KB | |
| Line | |
|---|---|
| 1 | MODULE solfet_tam |
| 2 | !!====================================================================== |
| 3 | !! *** MODULE solfet_tam *** |
| 4 | !! NEMOVAR : tangent and adjoint .... |
| 5 | !!====================================================================== |
| 6 | |
| 7 | !!---------------------------------------------------------------------- |
| 8 | !!---------------------------------------------------------------------- |
| 9 | !! * Modules used |
| 10 | USE par_kind |
| 11 | USE in_out_manager |
| 12 | |
| 13 | !! * Routine accessibility |
| 14 | |
| 15 | IMPLICIT NONE |
| 16 | |
| 17 | PUBLIC |
| 18 | |
| 19 | !! * Module variables |
| 20 | |
| 21 | CONTAINS |
| 22 | |
| 23 | SUBROUTINE sol_fet_tan( kt, kindic ) |
| 24 | !!----------------------------------------------------------------------- |
| 25 | !! |
| 26 | !! *** ROUTINE sol_fet_tan *** |
| 27 | !! |
| 28 | !! ** Purpose : |
| 29 | !! |
| 30 | !! ** Method : |
| 31 | !! |
| 32 | !! |
| 33 | !! ** Action : |
| 34 | !! |
| 35 | !! References : |
| 36 | !! |
| 37 | !! History : |
| 38 | !! ! 07-09 (K. Mogensen) Initial version |
| 39 | !!----------------------------------------------------------------------- |
| 40 | !! * Modules used |
| 41 | !! * Arguments |
| 42 | INTEGER :: & |
| 43 | & kt, & |
| 44 | & kindic |
| 45 | !! * Local declarations |
| 46 | |
| 47 | CALL ctl_stop( 'sol_fet_tan is not avaiable' ) |
| 48 | |
| 49 | END SUBROUTINE sol_fet_tan |
| 50 | |
| 51 | SUBROUTINE sol_fet_adj( kt, kindic ) |
| 52 | !!----------------------------------------------------------------------- |
| 53 | !! |
| 54 | !! *** ROUTINE sol_fet_adj *** |
| 55 | !! |
| 56 | !! ** Purpose : |
| 57 | !! |
| 58 | !! ** Method : |
| 59 | !! |
| 60 | !! |
| 61 | !! ** Action : |
| 62 | !! |
| 63 | !! References : |
| 64 | !! |
| 65 | !! History : |
| 66 | !! ! 07-09 (K. Mogensen) Initial version |
| 67 | !!----------------------------------------------------------------------- |
| 68 | !! * Modules used |
| 69 | !! * Arguments |
| 70 | INTEGER :: & |
| 71 | & kt, & |
| 72 | & kindic |
| 73 | !! * Local declarations |
| 74 | |
| 75 | CALL ctl_stop( 'sol_fet_adj is not avaiable' ) |
| 76 | |
| 77 | END SUBROUTINE sol_fet_adj |
| 78 | |
| 79 | END MODULE solfet_tam |
Note: See TracBrowser
for help on using the repository browser.
