Parent Directory
| 
Revision Log
| 
Revision Graph
o adding input_ad o various changes to adjoint setup compared to forward, some of which for initial testing
| 1 | heimbach | 1.2 | C $Header: /u/gcmpack/MITgcm_contrib/arctic40km/code_ad/autodiff_inadmode_unset_ad.F,v 1.1 2006/05/03 23:59:39 heimbach Exp $ |
| 2 | heimbach | 1.1 | |
| 3 | #include "AUTODIFF_OPTIONS.h" | ||
| 4 | |||
| 5 | subroutine adautodiff_inadmode_unset( myThid ) | ||
| 6 | IMPLICIT NONE | ||
| 7 | C /==========================================================\ | ||
| 8 | C | SUBROUTINE autodiff_inadmode_unset | | ||
| 9 | C |==========================================================| | ||
| 10 | C == Global variables === | ||
| 11 | |||
| 12 | #include "SIZE.h" | ||
| 13 | #include "EEPARAMS.h" | ||
| 14 | #include "PARAMS.h" | ||
| 15 | |||
| 16 | C == Routine arguments == | ||
| 17 | C myThid - Thread number for this instance of the routine. | ||
| 18 | integer myThid | ||
| 19 | |||
| 20 | inAdMode = inAdFALSE | ||
| 21 | |||
| 22 | heimbach | 1.2 | cph useKPP = .TRUE. |
| 23 | heimbach | 1.1 | useGMREDI = .TRUE. |
| 24 | heimbach | 1.2 | useSEAICE = .TRUE. |
| 25 | heimbach | 1.1 | |
| 26 | end | ||
| 27 | |||
| 28 | |||
| 29 | |||
| 30 | |||
| 31 | |||
| 32 | |||
| 33 | |||
| 34 | |||
| 35 |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |