/[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.5 by heimbach, Tue Apr 27 15:54:14 2004 UTC revision 1.6 by heimbach, Fri Sep 17 22:57:12 2004 UTC
# Line 86  C--     Read IO error counter Line 86  C--     Read IO error counter
86          CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid)          CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid)
87          CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid)          CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid)
88  c  c
 cph        CALL WRITE_FLD_XYZ_RL(  
 cph     &       'G_Jgtnm1.',suff, g_gtnm1, myIter, myThid)  
 cph        CALL WRITE_FLD_XYZ_RL(  
 cph     &       'G_Jgsnm1.',suff, g_gsnm1, myIter, myThid)  
 cph        CALL WRITE_FLD_XYZ_RL(  
 cph     &       'G_Jgunm1.',suff, g_gunm1, myIter, myThid)  
 cph        CALL WRITE_FLD_XYZ_RL(  
 cph     &       'G_Jgvnm1.',suff, g_gvnm1, myIter, myThid)  
 #ifdef ALLOW_PASSIVE_TRACER  
 cph        CALL WRITE_FLD_XYZ_RL(  
 cph     &       'G_Jgtr1nm1. ',suff, g_gtr1nm1, myIter, myThid)  
 #endif  
 c  
89          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
90       &       'G_Jtheta.',suff, g_theta, myIter, myThid)       &       'G_Jtheta.',suff, g_theta, myIter, myThid)
91          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
# Line 112  c Line 99  c
99          CALL WRITE_FLD_XY_RL(          CALL WRITE_FLD_XY_RL(
100       &       'G_Jetan.',suff, g_vvel, myIter, myThid)       &       'G_Jetan.',suff, g_vvel, myIter, myThid)
101    
 #ifdef ALLOW_PASSIVE_TRACER  
         CALL WRITE_FLD_XYZ_RL(  
      &       'G_Jtr1. ',suff, g_tr1, myIter, myThid)  
 #endif  
102  #ifdef ALLOW_DIFFKR_CONTROL  #ifdef ALLOW_DIFFKR_CONTROL
103          CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr,          CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr,
104       &       myIter, myThid)       &       myIter, myThid)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22