/[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.106 by jmc, Thu Oct 15 00:38:21 2009 UTC revision 1.107 by jmc, Wed Jan 13 01:41:20 2010 UTC
# Line 648  C--   Call time stepping loop of full mo Line 648  C--   Call time stepping loop of full mo
648    
649  #endif /* ALLOW_TANGENTLINEAR_RUN ALLOW_ADJOINT_RUN ALLOW_ADMTLM */  #endif /* ALLOW_TANGENTLINEAR_RUN ALLOW_ADJOINT_RUN ALLOW_ADMTLM */
650    
651  #ifdef ALLOW_DIAGNOSTICS  c#ifdef ALLOW_DIAGNOSTICS
652        IF (useDiagnostics) THEN  c     IF (useDiagnostics) THEN
653  C       Close all diagnostics output files  C       Close all diagnostics output files <= now called from DIAGNOSTICS_WRITE
654          CALL DIAGSTATS_CLOSE_IO( myThid )  c       CALL DIAGSTATS_CLOSE_IO( myThid )
655        ENDIF  c     ENDIF
656  #endif  c#endif
657    
658  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
659        IF (useMNC) THEN        IF (useMNC) THEN
Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107
  ViewVC Help
Powered by ViewVC 1.1.22