/[MITgcm]/MITgcm/pkg/admtlm/admtlm_driver.F
ViewVC logotype

Annotation of /MITgcm/pkg/admtlm/admtlm_driver.F

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

Revision 1.8 - (hide annotations) (download)
Thu Apr 27 12:49:02 2006 UTC (18 years, 1 month ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58e_post, checkpoint58u_post, checkpoint58w_post, checkpoint60, checkpoint61, checkpoint62, checkpoint58r_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58q_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58f_post, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y, checkpoint58m_post
Changes since 1.7: +3 -1 lines 
o crucial fix to properly initialise ARPACK using field RESID
  (Laure Zanna)
o added code to output NCONV eigenvectors to evxx_...
  (suppress vector I/O for now)
1 heimbach 1.8 C $Header: /u/gcmpack/MITgcm/pkg/admtlm/admtlm_driver.F,v 1.7 2005/12/19 23:37:14 heimbach Exp $
2 heimbach 1.1 C $Name: $
3    
4     #include "CPP_OPTIONS.h"
5    
6     CBOP
7    
8     C !ROUTINE: ADMTLM_DRIVER
9    
10     C !INTERFACE:
11     SUBROUTINE ADMTLM_DRIVER( myThid )
12     IMPLICIT NONE
13    
14     C !DESCRIPTION: \bv
15     C *==========================================================*
16     C | SUBROUTINE ADMTLM_DRIVER
17     C | o Master controlling routine for model using the MITgcm
18     C | UV parallel wrapper.
19     C *==========================================================*
20     C \ev
21    
22     C !USES:
23     C == Global variables ===
24     #include "SIZE.h"
25     #include "EEPARAMS.h"
26     #include "PARAMS.h"
27     #include "DYNVARS.h"
28    
29 heimbach 1.2 #ifdef ALLOW_ADMTLM
30     # include "tamc.h"
31     # include "ctrl.h"
32     # include "optim.h"
33 heimbach 1.1 #endif
34    
35     C !INPUT/OUTPUT PARAMETERS:
36     C == Routine arguments ==
37     INTEGER myThid
38    
39     C == Local ==
40     INTEGER myCurrentIter
41     _RL myCurrentTime
42 heimbach 1.2 C
43 heimbach 1.1 CEOP
44    
45     #ifndef DISABLE_DEBUGMODE
46     IF (debugMode) CALL DEBUG_ENTER('ADMTLM_DRIVER',myThid)
47     #endif
48    
49 heimbach 1.2 #if ( defined (ALLOW_ADMTLM) )
50 heimbach 1.1
51     myCurrentTime = startTime
52     myCurrentIter = nIter0
53     yadprefix = 'g_'
54    
55 heimbach 1.5 CALL CTRL_INIT( mythid )
56 heimbach 1.1 c
57 heimbach 1.6 CALL TIMER_START('ADMTLM_DRIVER [TANGENT RUN]',mythid)
58 heimbach 1.1 CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid )
59 heimbach 1.6 CALL TIMER_STOP ('ADMTLM_DRIVER [TANGENT RUN]',mythid)
60 heimbach 1.1 c
61     myCurrentTime = startTime
62     myCurrentIter = nIter0
63     yadprefix = 'ad'
64     c
65 heimbach 1.2 CALL CTRL_INIT( mythid )
66 heimbach 1.1 c
67 heimbach 1.7 if ( doAdmtlmBypassAD ) then
68 heimbach 1.6 c
69 heimbach 1.8 #ifdef ALLOW_BYPASSAD
70 heimbach 1.6 CALL TIMER_START('ADMTLM_DRIVER [BYPASSAD]',mythid)
71     CALL ADMTLM_BYPASSAD( mythid )
72     CALL TIMER_STOP ('ADMTLM_DRIVER [BYPASSAD]',mythid)
73 heimbach 1.8 #endif
74 heimbach 1.6 c
75     else
76     c
77     CALL ADMTLM_METRIC ( mythid )
78     CALL ADMTLM_MAP ( mythid )
79     c
80     CALL TIMER_START('ADMTLM_DRIVER [ADJOINT RUN]',mythid)
81     CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid )
82     CALL TIMER_STOP ('ADMTLM_DRIVER [ADJOINT RUN]',mythid)
83     c
84     endif
85 heimbach 1.1 c
86     #endif
87    
88     #ifndef DISABLE_DEBUGMODE
89     IF (debugMode) CALL DEBUG_LEAVE('ADMTLM_DRIVER',myThid)
90     #endif
91    
92     RETURN
93     END
  ViewVC Help
Powered by ViewVC 1.1.22