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

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

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

Revision 1.1 - (show 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
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