/[MITgcm]/MITgcm/pkg/autodiff/g_dummy_in_stepping.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/g_dummy_in_stepping.F

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

revision 1.9 by heimbach, Thu Sep 8 17:44:52 2005 UTC revision 1.10 by jmc, Mon Oct 8 23:50:53 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "AUTODIFF_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    
# Line 85  C--     Read IO error counter Line 87  C--     Read IO error counter
87          CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid)          CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid)
88          CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid)          CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid)
89  c  c
90          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
91       &       'G_Jtheta.',suff, g_theta, myIter, myThid)       &       'G_Jtheta.',suff, g_theta, myIter, myThid)
92          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
93       &       'G_Jsalt.',suff, g_salt, myIter, myThid)       &       'G_Jsalt.',suff, g_salt, myIter, myThid)
94          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
95       &       'G_Juvel.',suff, g_uvel, myIter, myThid)       &       'G_Juvel.',suff, g_uvel, myIter, myThid)
96          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
97       &       'G_Jvvel.',suff, g_vvel, myIter, myThid)       &       'G_Jvvel.',suff, g_vvel, myIter, myThid)
98          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
99       &       'G_Jwvel.',suff, g_wvel, myIter, myThid)       &       'G_Jwvel.',suff, g_wvel, myIter, myThid)
# Line 99  c Line 101  c
101       &       'G_Jetan.',suff, g_etan, myIter, myThid)       &       'G_Jetan.',suff, g_etan, myIter, myThid)
102    
103  #ifdef ALLOW_DIFFKR_CONTROL  #ifdef ALLOW_DIFFKR_CONTROL
104          CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr,          CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr,
105       &       myIter, myThid)       &       myIter, myThid)
106  #endif  #endif
107  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
108          CALL WRITE_FLD_XYZ_RL ( 'G_Jkagm.',suff, g_kapgm,          CALL WRITE_FLD_XYZ_RL ( 'G_Jkagm.',suff, g_kapgm,
109       &       myIter, myThid)       &       myIter, myThid)
110  #endif  #endif
111    
# Line 122  C--     Check for IO errors Line 124  C--     Check for IO errors
124           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter
125           CALL PRINT_ERROR( msgBuf, 1 )           CALL PRINT_ERROR( msgBuf, 1 )
126          ELSE          ELSE
127           WRITE(msgBuf,'(A,I10)')             WRITE(msgBuf,'(A,I10)')
128       &    '// Model state written, timestep', myIter       &    '// Model state written, timestep', myIter
129           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
130       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
131           WRITE(msgBuf,'(A)')  ' '           WRITE(msgBuf,'(A)')  ' '
132           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
133       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
134          ENDIF          ENDIF
135    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22