/[MITgcm]/MITgcm/model/src/the_model_main.F
ViewVC logotype

Diff of /MITgcm/model/src/the_model_main.F

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

revision 1.26 by adcroft, Mon Mar 22 15:54:05 1999 UTC revision 1.27 by adcroft, Mon Mar 22 16:44:17 1999 UTC
# Line 87  C     == Global variables === Line 87  C     == Global variables ===
87  #include "PARAMS.h"  #include "PARAMS.h"
88  #include "DYNVARS.h"  #include "DYNVARS.h"
89  #include "CG2D.h"  #include "CG2D.h"
90    #ifdef ALLOW_NONHYDROSTATIC
91  #include "CG3D.h"  #include "CG3D.h"
92    #endif
93    
94  C     == Routine arguments ==  C     == Routine arguments ==
95  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 181  C      By convention this is taken to be Line 183  C      By convention this is taken to be
183         CALL DO_THE_MODEL_IO( myCurrentTime, myCurrentIter, myThid )         CALL DO_THE_MODEL_IO( myCurrentTime, myCurrentIter, myThid )
184         CALL TIMER_STOP ('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_STOP ('I/O (WRITE)        [MAIN LOOP]',myThid)
185    
 Caja  
        WRITE(suff,'(I10.10)') myCurrentIter  
        CALL WRITE_FLD_XY_RL('B2d.',suff,cg2d_b,  
      &            myCurrentIter,myThid)  
        CALL WRITE_FLD_XYZ_RL('B3d.',suff,cg3d_b,  
      &            myCurrentIter,myThid)  
 Caja  
   
186  C--    Solve elliptic equation(s).  C--    Solve elliptic equation(s).
187  C      Two-dimensional only for conventional hydrostatic or  C      Two-dimensional only for conventional hydrostatic or
188  C      three-dimensional for non-hydrostatic and/or IGW scheme.  C      three-dimensional for non-hydrostatic and/or IGW scheme.
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22