/[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.4 by jmc, Sun Aug 12 01:34:44 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    #include "AD_CONFIG.h"
6    
7  CBOP  CBOP
8  C     !ROUTINE: addummy_in_stepping  C     !ROUTINE: addummy_in_stepping
# Line 42  C     myTime - time counter for this thr Line 44  C     myTime - time counter for this thr
44  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
45        integer myThid        integer myThid
46        integer myiter        integer myiter
47        _RL     mytime        _RL     mytime
48    
49  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
50  c     == local variables ==  c     == local variables ==
# Line 84  Cml        CALL WRITE_FLD_XY_RL ( 'ADJta Line 86  Cml        CALL WRITE_FLD_XY_RL ( 'ADJta
86  Cml        CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid)  Cml        CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid)
87  Cml        CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid)  Cml        CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid)
88  c  c
89  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
90  Cml     &       'ADJgtnm1.',suff, adgtnm1, myIter, myThid)  Cml     &       'ADJgtnm1.',suff, adgtnm1, myIter, myThid)
91  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
92  Cml     &       'ADJgsnm1.',suff, adgsnm1, myIter, myThid)  Cml     &       'ADJgsnm1.',suff, adgsnm1, myIter, myThid)
93  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
94  Cml     &       'ADJgunm1.',suff, adgunm1, myIter, myThid)  Cml     &       'ADJgunm1.',suff, adgunm1, myIter, myThid)
95  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
96  Cml     &       'ADJgvnm1.',suff, adgvnm1, myIter, myThid)  Cml     &       'ADJgvnm1.',suff, adgvnm1, myIter, myThid)
97  Cml#ifdef ALLOW_PASSIVE_TRACER  Cml#ifdef ALLOW_PASSIVE_TRACER
98  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
99  Cml     &       'ADJgtr1nm1. ',suff, adgtr1nm1, myIter, myThid)  Cml     &       'ADJgtr1nm1. ',suff, adgtr1nm1, myIter, myThid)
100  Cml#endif  Cml#endif
101  c  c
102          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
103       &       'ADJtheta.',suff, adtheta, myIter, myThid)       &       'ADJtheta.',suff, adtheta, myIter, myThid)
104          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
105       &       'ADJsalt.',suff, adsalt, myIter, myThid)       &       'ADJsalt.',suff, adsalt, myIter, myThid)
106          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
107       &       'ADJuvel.',suff, aduvel, myIter, myThid)       &       'ADJuvel.',suff, aduvel, myIter, myThid)
108          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
109       &       'ADJvvel.',suff, advvel, myIter, myThid)       &       'ADJvvel.',suff, advvel, myIter, myThid)
110          CALL WRITE_FLD_XYZ_RL(          CALL WRITE_FLD_XYZ_RL(
111       &       'ADJwvel.',suff, adwvel, myIter, myThid)       &       'ADJwvel.',suff, adwvel, myIter, myThid)
112    
113  Cml#ifdef ALLOW_PASSIVE_TRACER  Cml#ifdef ALLOW_PASSIVE_TRACER
114  Cml        CALL WRITE_FLD_XYZ_RL(  Cml        CALL WRITE_FLD_XYZ_RL(
115  Cml     &       'ADJtr1. ',suff, adtr1, myIter, myThid)  Cml     &       'ADJtr1. ',suff, adtr1, myIter, myThid)
116  Cml#endif  Cml#endif
117  Cml#ifdef ALLOW_DIFFKR_CONTROL  Cml#ifdef ALLOW_DIFFKR_CONTROL
118  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr,  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr,
119  Cml     &       myIter, myThid)  Cml     &       myIter, myThid)
120  Cml#endif  Cml#endif
121  Cml#ifdef ALLOW_KAPGM_CONTROL  Cml#ifdef ALLOW_KAPGM_CONTROL
122  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm,  Cml        CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm,
123  Cml     &       myIter, myThid)  Cml     &       myIter, myThid)
124  Cml#endif  Cml#endif
125  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
# Line 154  C--     Check for IO errors Line 156  C--     Check for IO errors
156           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter           WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter
157           CALL PRINT_ERROR( msgBuf, 1 )           CALL PRINT_ERROR( msgBuf, 1 )
158          ELSE          ELSE
159           WRITE(msgBuf,'(A,I10)')             WRITE(msgBuf,'(A,I10)')
160       &    '// Model state written, timestep', myIter       &    '// Model state written, timestep', myIter
161           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
162       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
163           WRITE(msgBuf,'(A)')  ' '           WRITE(msgBuf,'(A)')  ' '
164           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
165       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
166          ENDIF          ENDIF
167    
# Line 173  C--     Check for IO errors Line 175  C--     Check for IO errors
175  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
176  #endif /* ALLOW_ADJOINT_RUN */  #endif /* ALLOW_ADJOINT_RUN */
177    
178        end        RETURN
179          END
   
   
   
   
   
   
   
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22