/[MITgcm]/MITgcm/pkg/ecco/forward_step.F
ViewVC logotype

Annotation of /MITgcm/pkg/ecco/forward_step.F

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

Revision 1.1 - (hide annotations) (download)
Thu Nov 6 22:10:08 2003 UTC (20 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint53f_post, checkpoint54a_pre, checkpoint55c_post, checkpoint57b_post, checkpoint53b_pre, checkpoint57o_post, checkpoint55e_post, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint58e_post, checkpoint57v_post, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint58u_post, checkpoint57f_post, checkpoint52e_post, checkpoint57s_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint60, checkpoint61, checkpoint62, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint52j_pre, checkpoint54a_post, checkpoint57m_post, branch-netcdf, checkpoint52l_post, checkpoint55h_post, checkpoint58n_post, checkpoint58x_post, checkpoint52k_post, checkpoint52b_pre, checkpoint57g_pre, checkpoint54b_post, checkpoint58t_post, checkpoint58h_post, checkpoint57e_post, checkpoint58w_post, checkpoint54d_post, checkpoint56c_post, checkpoint52d_pre, checkpoint54e_post, checkpoint58j_post, checkpoint55b_post, checkpoint57h_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint58q_post, checkpoint54f_post, checkpoint53b_post, checkpoint59q, checkpoint59p, checkpoint55g_post, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint52d_post, eckpoint57e_pre, checkpoint52a_post, checkpoint57h_done, checkpoint58f_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint57n_post, checkpoint52c_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, ecco_c52_e35, hrcube5, checkpoint58o_post, checkpoint57z_post, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint57c_post, checkpoint58y_post, checkpoint52a_pre, checkpoint58k_post, checkpoint52i_post, checkpoint58v_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_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, checkpoint57j_post, checkpoint61z, checkpoint61x, checkpoint61y, checkpoint58b_post, checkpoint57h_pre, checkpoint58m_post, checkpoint57l_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint56a_post, checkpoint55d_post
Branch point for: netcdf-sm0 
o merging from ecco-branch
o pkg/ecco now containes ecco-specific part of cost function
o top level routines the_main_loop, forward_step
  supersede those in model/src/
  previous input data.cost now in data.ecco
  (new namelist ecco_cost_nml)
1 heimbach 1.1 C $Header: /u/gcmpack/MITgcm/model/src/forward_step.F,v 1.70 2003/11/03 22:40:22 edhill Exp $
2     C $Name: $
3    
4     #include "PACKAGES_CONFIG.h"
5     #include "CPP_OPTIONS.h"
6    
7     CBOP
8     C !ROUTINE: FORWARD_STEP
9     C !INTERFACE:
10     SUBROUTINE FORWARD_STEP( iloop, myTime, myIter, myThid )
11    
12     C !DESCRIPTION: \bv
13     C *==================================================================
14     C | SUBROUTINE forward_step
15     C | o Run the ocean model and, optionally, evaluate a cost function.
16     C *==================================================================
17     C |
18     C | THE_MAIN_LOOP is the toplevel routine for the Tangent Linear and
19     C | Adjoint Model Compiler (TAMC). For this purpose the initialization
20     C | of the model was split into two parts. Those parameters that do
21     C | not depend on a specific model run are set in INITIALISE_FIXED,
22     C | whereas those that do depend on the specific realization are
23     C | initialized in INITIALISE_VARIA.
24     C |
25     C *==================================================================
26     C \ev
27    
28     C !USES:
29     IMPLICIT NONE
30     C == Global variables ==
31     #include "SIZE.h"
32     #include "EEPARAMS.h"
33     #include "PARAMS.h"
34    
35     C !LOCAL VARIABLES:
36     C == Routine arguments ==
37     C note: under the multi-threaded model myiter and
38     C mytime are local variables passed around as routine
39     C arguments. Although this is fiddly it saves the need to
40     C impose additional synchronisation points when they are
41     C updated.
42     C myiter - iteration counter for this thread
43     C mytime - time counter for this thread
44     C mythid - thread number for this instance of the routine.
45     integer iloop
46     integer mythid
47     integer myiter
48     _RL mytime
49    
50     CEOP
51    
52     #ifndef DISABLE_DEBUGMODE
53     IF ( debugLevel .GE. debLevB )
54     & CALL DEBUG_ENTER('FORWARD_STEP',myThid)
55     #endif
56    
57     c-- This is a placeholder routine for the ecco setup.
58     c-- In the ECCO configuration this routine is inlined
59     c-- in the_main_loop routine for AD-reasons.
60    
61     STOP 'S/R forward_step should never be called when ALLOW_ECCO'
62    
63     END
  ViewVC Help
Powered by ViewVC 1.1.22