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

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

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

revision 1.1 by heimbach, Thu Nov 6 22:10:08 2003 UTC revision 1.2 by jmc, Mon Nov 22 23:48:33 2010 UTC
# Line 18  C     | Line 18  C     |
18  C     | THE_MAIN_LOOP is the toplevel routine for the Tangent Linear and  C     | THE_MAIN_LOOP is the toplevel routine for the Tangent Linear and
19  C     | Adjoint Model Compiler (TAMC). For this purpose the initialization  C     | Adjoint Model Compiler (TAMC). For this purpose the initialization
20  C     | of the model was split into two parts. Those parameters that do  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,    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  C     | whereas those that do depend on the specific realization are
23  C     | initialized in INITIALISE_VARIA.    C     | initialized in INITIALISE_VARIA.
24  C     |  C     |
25  C     *==================================================================  C     *==================================================================
26  C     \ev  C     \ev
# Line 34  C     == Global variables == Line 34  C     == Global variables ==
34    
35  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
36  C     == Routine arguments ==  C     == Routine arguments ==
37  C     note: under the multi-threaded model myiter and  C     note: under the multi-threaded model myiter and
38  C           mytime are local variables passed around as routine  C           mytime are local variables passed around as routine
39  C           arguments. Although this is fiddly it saves the need to  C           arguments. Although this is fiddly it saves the need to
40  C           impose additional synchronisation points when they are  C           impose additional synchronisation points when they are
41  C           updated.  C           updated.
42  C     myiter - iteration counter for this thread  C     myiter - iteration counter for this thread
43  C     mytime - time counter for this thread  C     mytime - time counter for this thread
44  C     mythid - thread number for this instance of the routine.  C     mythid - thread number for this instance of the routine.
45        integer iloop        integer iloop
46        integer mythid        integer mythid
47        integer myiter        integer myiter
48        _RL     mytime        _RL     mytime
49    
50  CEOP  CEOP
51    
52  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
53        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_ENTER('FORWARD_STEP',myThid)
      &    CALL DEBUG_ENTER('FORWARD_STEP',myThid)  
54  #endif  #endif
55    
56  c--  This is a placeholder routine for the ecco setup.  c--  This is a placeholder routine for the ecco setup.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22