/[MITgcm]/MITgcm/pkg/autodiff/tangentlinear_model.F
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/tangentlinear_model.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Thu Jan 17 16:55:25 2002 UTC (22 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46b_post, checkpoint46n_post, checkpoint47j_post, checkpoint48d_pre, checkpoint44b_post, checkpoint51j_post, branch-exfmods-tag, checkpoint47e_post, checkpoint44h_pre, checkpoint47i_post, checkpoint47f_post, checkpoint47c_post, checkpoint50e_post, checkpoint50c_post, checkpoint46i_post, checkpoint47d_post, checkpoint44f_pre, checkpoint47a_post, checkpoint46f_post, checkpoint46d_pre, checkpoint48e_post, checkpoint46e_post, checkpoint48d_post, checkpoint50c_pre, checkpoint46c_post, checkpoint44g_post, branchpoint-genmake2, checkpoint44h_post, checkpoint46l_post, checkpoint46k_post, checkpoint46e_pre, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, checkpoint45b_post, checkpoint48c_post, chkpt44a_pre, release1_final_v1, checkpoint51e_post, checkpoint51b_post, checkpoint47d_pre, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint50i_post, checkpoint47b_post, checkpoint48i_post, checkpoint46l_pre, checkpoint51f_pre, checkpoint48h_post, checkpoint50d_pre, chkpt44d_post, checkpoint46h_pre, checkpoint51, checkpoint50, checkpoint47h_post, checkpoint50d_post, checkpoint46g_pre, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, chkpt44a_post, checkpoint44b_pre, checkpoint44e_post, checkpoint46m_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint51g_post, checkpoint46b_pre, checkpoint51f_post, checkpoint46d_post, checkpoint48b_post, checkpoint50b_post, checkpoint46g_post, checkpoint45a_post, checkpoint51c_post, checkpoint50f_post, checkpoint50a_post, checkpoint46c_pre, checkpoint50f_pre, checkpoint51d_post, checkpoint48c_pre, checkpoint46, checkpoint50h_post, checkpoint51a_post, checkpoint46h_post, checkpoint50e_pre, c49_autodiff, checkpoint48g_post, checkpoint51i_pre, chkpt44c_pre, checkpoint48a_post, checkpoint44f_post, chkpt44c_post
Branch point for: ecco-branch, branch-genmake2, release1, branch-exfmods-curt, release1_final 
* Updated adjoint/makefile
  o removed "_ecco" from names
  o added/modified forward mode options
  o added dependent vector option
  o tried SVD matrix computation (doesn't work;
    too much memory use by TAF)
* Updated flow directives related to FTL
* removed global_sum__g.F (not necessary)
* initialise forward mode anomalies in ctrl_unpack.F
  (so far "crude" initialization only).
* Added flag ALLOW_TANGENTLINEAR_RUN complememting
  ALLOW_ADJOINT_RUN
* driver routine the_model_main.F needs separate call
  to FTL routine G_THE_MAIN_LOOP with parameter list
  identical to THE_MAIN_LOOP (TAF doesn't remove arguments).
* added template file tangentlinear_model.F
  for forward mode.
1 heimbach 1.1
2     CBOI
3     C
4     C !TITLE: TANGENTLINEAR CODE
5     C !AUTHORS: mitgcm developers ( support@mitgcm.org )
6     C !AFFILIATION: Massachussetts Institute of Technology
7     C !DATE:
8     C !INTRODUCTION: tangentlinear code collection
9     c \bv
10     c Top level routine for tangentlinear code generation is the_main_loop.
11     c Tangentlinear code is generated via the makefile in adjoint/
12     c 0. make restore:
13     c Re-instate header or tangentlinear_model.F from template
14     c 1. make:
15     c All .f files are concatenated into one file
16     c tamc_code.f
17     c 2. make ftltaf:
18     c This makefiles contains a list of all routines which must be
19     c differentiated (i.e. analyzed by TAMC/TAF) and those which
20     c must not be differentiated. For the latter, files containing
21     c flow directives are given.
22     c The code generated by TAMC/TAF is written to
23     c tamc_code_ftl.f
24     c 3. make ftlchange:
25     c To maintain the multi-threading index mythid,
26     c the tangentlinear code must be post-processed.
27     c All parameter lists of active I/O routines
28     c (active read/write open/close) are augmented by mythid.
29     c The resulting code is copied to
30     c tamc_code_sed_ftl.f
31     c and concatenated to tangentlinear_model.F
32     c
33     c Documentation:
34     c ==============
35     c For a documentation of TAMC see:
36     c http://puddle.mit.edu/~ralf/tamc/tamc.html
37     c For more info on TAF see:
38     c http://www.fastopt.de
39     C \ev
40     CBOI
41    
42     #include "CPP_OPTIONS.h"
43    
44     CBOP
45     C !ROUTINE: tangentlinear_model
46     C !INTERFACE:
47     subroutine tangentlinear_model(mythid )
48    
49     C !DESCRIPTION: \bv
50     c ==================================================================
51     c SUBROUTINE tangentlinear_model
52     c ==================================================================
53     c o This is just a place holder for the TAMC generated tangentlinear
54     c code of the MITgcmuv and related routines. Below you find a short
55     c description of some topics pertaining to the tangentlinear model.
56     c This routine will be overwritten as soon as TAMC will have
57     c generated the tangentlinear model. If you want to keep it copy it
58     c to another place.
59     c started: Christian Eckert eckert@mit.edu 21-Jul-1999
60     c ==================================================================
61     c SUBROUTINE tangentlinear_model
62     c ==================================================================
63     C \ev
64    
65     C !USES:
66     implicit none
67    
68     c == routine arguments ==
69    
70     integer mythid
71    
72     c == end of interface ==
73     CEOP
74    
75     return
76     end
  ViewVC Help
Powered by ViewVC 1.1.22