/[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.4 by heimbach, Thu Mar 4 04:00:12 2004 UTC revision 1.5 by heimbach, Tue Apr 27 15:54:14 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
89          CALL WRITE_FLD_XYZ_RL(  cph        CALL WRITE_FLD_XYZ_RL(
90       &       'G_Jgtnm1.',suff, g_gtnm1, myIter, myThid)  cph     &       'G_Jgtnm1.',suff, g_gtnm1, myIter, myThid)
91          CALL WRITE_FLD_XYZ_RL(  cph        CALL WRITE_FLD_XYZ_RL(
92       &       'G_Jgsnm1.',suff, g_gsnm1, myIter, myThid)  cph     &       'G_Jgsnm1.',suff, g_gsnm1, myIter, myThid)
93          CALL WRITE_FLD_XYZ_RL(  cph        CALL WRITE_FLD_XYZ_RL(
94       &       'G_Jgunm1.',suff, g_gunm1, myIter, myThid)  cph     &       'G_Jgunm1.',suff, g_gunm1, myIter, myThid)
95          CALL WRITE_FLD_XYZ_RL(  cph        CALL WRITE_FLD_XYZ_RL(
96       &       'G_Jgvnm1.',suff, g_gvnm1, myIter, myThid)  cph     &       'G_Jgvnm1.',suff, g_gvnm1, myIter, myThid)
97  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
98          CALL WRITE_FLD_XYZ_RL(  cph        CALL WRITE_FLD_XYZ_RL(
99       &       'G_Jgtr1nm1. ',suff, g_gtr1nm1, myIter, myThid)  cph     &       'G_Jgtr1nm1. ',suff, g_gtr1nm1, myIter, myThid)
100  #endif  #endif
101  c  c
102          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
# Line 107  c Line 107  c
107       &       'G_Juvel.',suff, g_uvel, myIter, myThid)       &       'G_Juvel.',suff, g_uvel, myIter, myThid)
108          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
109       &       'G_Jvvel.',suff, g_vvel, myIter, myThid)       &       'G_Jvvel.',suff, g_vvel, myIter, myThid)
110            CALL WRITE_FLD_XYZ_RL(
111         &       'G_Jwvel.',suff, g_vvel, myIter, myThid)
112            CALL WRITE_FLD_XY_RL(
113         &       'G_Jetan.',suff, g_vvel, myIter, myThid)
114    
115  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
116          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22