/[MITgcm]/MITgcm/pkg/autodiff/adjoint_model.F_old
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/adjoint_model.F_old

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

Revision 1.2 - (hide annotations) (download)
Tue Nov 20 23:27:29 2001 UTC (22 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47j_post, checkpoint48d_pre, checkpoint44b_post, branch-exfmods-tag, checkpoint47e_post, checkpoint43a-release1mods, checkpoint47i_post, checkpoint44e_post, checkpoint47f_post, checkpoint47c_post, checkpoint50e_post, checkpoint50c_post, checkpoint46i_post, checkpoint47d_post, checkpoint47a_post, checkpoint46f_post, checkpoint46d_pre, checkpoint48e_post, checkpoint46e_post, checkpoint48d_post, checkpoint50g_post, release1-branch_tutorials, checkpoint46c_post, checkpoint46k_post, checkpoint46e_pre, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, checkpoint45b_post, checkpoint44g_post, checkpoint48c_post, release1-branch-end, release1_final_v1, checkpoint44b_pre, checkpoint47d_pre, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, c49_autodiff, checkpoint47b_post, checkpoint46l_post, checkpoint48i_post, checkpoint46l_pre, checkpoint44h_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, chkpt44c_post, checkpoint46m_post, checkpoint46j_post, checkpoint44f_pre, checkpoint46a_pre, checkpoint50c_pre, checkpoint45c_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint46b_pre, checkpoint46b_post, checkpoint44h_post, checkpoint46d_post, checkpoint48b_post, checkpoint50b_post, checkpoint46g_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint46c_pre, checkpoint50f_pre, chkpt44a_pre, checkpoint48c_pre, release1-branch_branchpoint, checkpoint46, checkpoint50h_post, checkpoint51a_post, checkpoint46h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint48g_post, chkpt44c_pre, checkpoint48a_post, checkpoint44f_post
Branch point for: branch-exfmods-curt, release1_final, release1-branch
Changes since 1.1: +48 -85 lines 
o Bugfix in adcommon.h: commen blocks were adjusted to latest
  common block structure in DYNVARS.h
o placed a do_field_blocking_exchanges after dummy_in_stepping
  to ensure that addummy_in_stepping is preceded by exchanges.
1 heimbach 1.1
2 heimbach 1.2 CBOI
3     C
4     C !TITLE: ADJOINT CODE
5     C !AUTHORS: mitgcm developers ( support@mitgcm.org )
6     C !AFFILIATION: Massachussetts Institute of Technology
7     C !DATE:
8     C !INTRODUCTION: adjoint code collection
9     c \bv
10     c Top level routine for adjoint code generation is the_main_loop.
11     c Adjoint code is generated via the makefile in adjoint/
12     c 0. make restore:
13     c Re-instate header or adjoint_model.F from template
14     c 1. make:
15     c All .f files are concatenated into one file
16     c tamc_code_ecco.f
17     c 2. make adtaf:
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_ecco_ad.f
24     c 3. make adchange:
25     c To maintain the multi-threading index mythid,
26     c the adjoint 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_ecco_sed_ad.f
31     c and concatenated to adjoint_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 heimbach 1.1 #include "CPP_OPTIONS.h"
43    
44 heimbach 1.2 CBOP
45     C !ROUTINE: adjoint_model
46     C !INTERFACE:
47     subroutine adjoint_model(mythid )
48 heimbach 1.1
49 heimbach 1.2 C !DESCRIPTION: \bv
50 heimbach 1.1 c ==================================================================
51     c SUBROUTINE adjoint_model
52     c ==================================================================
53     c o This is just a place holder for the TAMC generated adjoint code
54     c of the MITgcmuv and related routines. Below you find a short
55     c description of some topics pertaining to the adjoint model.
56     c This routine will be overwritten as soon as TAMC will have
57     c generated the adjoint 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 adjoint_model
62     c ==================================================================
63 heimbach 1.2 C \ev
64 heimbach 1.1
65 heimbach 1.2 C !USES:
66 heimbach 1.1 implicit none
67    
68     c == routine arguments ==
69    
70     integer mythid
71    
72     c == end of interface ==
73 heimbach 1.2 CEOP
74 heimbach 1.1
75     return
76     end
  ViewVC Help
Powered by ViewVC 1.1.22