/[MITgcm]/MITgcm/verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F
ViewVC logotype

Diff of /MITgcm/verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F

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

revision 1.1 by heimbach, Wed Jun 7 02:00:01 2006 UTC revision 1.2 by jmc, Tue Oct 9 02:36:41 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 42  C     myTime - time counter for this thr Line 43  C     myTime - time counter for this thr
43  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
44        integer myThid        integer myThid
45        integer myiter        integer myiter
46        _RL     mytime        _RL     mytime
47    
48  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
49  c     == local variables ==  c     == local variables ==
# Line 84  Cml        CALL WRITE_FLD_XY_RL ( 'ADJta Line 85  Cml        CALL WRITE_FLD_XY_RL ( 'ADJta
85  Cml        CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid)  Cml        CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid)
86  Cml        CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid)  Cml        CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid)
87  c  c
88  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
89  Cml     &       'ADJgtnm1.',suff, adgtnm1, myIter, myThid)  Cml     &       'ADJgtnm1.',suff, adgtnm1, myIter, myThid)
90  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
91  Cml     &       'ADJgsnm1.',suff, adgsnm1, myIter, myThid)  Cml     &       'ADJgsnm1.',suff, adgsnm1, myIter, myThid)
92  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
93  Cml     &       'ADJgunm1.',suff, adgunm1, myIter, myThid)  Cml     &       'ADJgunm1.',suff, adgunm1, myIter, myThid)
94  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
95  Cml     &       'ADJgvnm1.',suff, adgvnm1, myIter, myThid)  Cml     &       'ADJgvnm1.',suff, adgvnm1, myIter, myThid)
96  Cml#ifdef ALLOW_PASSIVE_TRACER  Cml#ifdef ALLOW_PASSIVE_TRACER
97  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
98  Cml     &       'ADJgtr1nm1. ',suff, adgtr1nm1, myIter, myThid)  Cml     &       'ADJgtr1nm1. ',suff, adgtr1nm1, myIter, myThid)
99  Cml#endif  Cml#endif
100  c  c
101          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
102       &       'ADJtheta.',suff, adtheta, myIter, myThid)       &       'ADJtheta.',suff, adtheta, myIter, myThid)
103          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
104       &       'ADJsalt.',suff, adsalt, myIter, myThid)       &       'ADJsalt.',suff, adsalt, myIter, myThid)
105          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
106       &       'ADJuvel.',suff, aduvel, myIter, myThid)       &       'ADJuvel.',suff, aduvel, myIter, myThid)
107          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
108       &       'ADJvvel.',suff, advvel, myIter, myThid)       &       'ADJvvel.',suff, advvel, myIter, myThid)
109          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
110       &       'ADJwvel.',suff, adwvel, myIter, myThid)       &       'ADJwvel.',suff, adwvel, myIter, myThid)
111    
112  Cml#ifdef ALLOW_PASSIVE_TRACER  Cml#ifdef ALLOW_PASSIVE_TRACER
113  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
114  Cml     &       'ADJtr1. ',suff, adtr1, myIter, myThid)  Cml     &       'ADJtr1. ',suff, adtr1, myIter, myThid)
115  Cml#endif  Cml#endif
116  Cml#ifdef ALLOW_DIFFKR_CONTROL  Cml#ifdef ALLOW_DIFFKR_CONTROL
117  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr,  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr,
118  Cml     &       myIter, myThid)  Cml     &       myIter, myThid)
119  Cml#endif  Cml#endif
120  Cml#ifdef ALLOW_KAPGM_CONTROL  Cml#ifdef ALLOW_KAPGM_CONTROL
121  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm,  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm,
122  Cml     &       myIter, myThid)  Cml     &       myIter, myThid)
123  Cml#endif  Cml#endif
124  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
# Line 154  C--     Check for IO errors Line 155  C--     Check for IO errors
155           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter
156           CALL PRINT_ERROR( msgBuf, 1 )           CALL PRINT_ERROR( msgBuf, 1 )
157          ELSE          ELSE
158           WRITE(msgBuf,'(A,I10)')             WRITE(msgBuf,'(A,I10)')
159       &    '// Model state written, timestep', myIter       &    '// Model state written, timestep', myIter
160           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
161       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
162           WRITE(msgBuf,'(A)')  ' '           WRITE(msgBuf,'(A)')  ' '
163           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
164       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
165          ENDIF          ENDIF
166    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22