/[MITgcm]/MITgcm/model/src/forward_step.F
ViewVC logotype

Diff of /MITgcm/model/src/forward_step.F

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

revision 1.67 by edhill, Fri Oct 24 05:29:35 2003 UTC revision 1.68 by heimbach, Mon Oct 27 22:32:55 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "AD_CONFIG.h"  
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
# Line 208  C--   end of if/else block useBulfforce Line 207  C--   end of if/else block useBulfforce
207        ENDIF        ENDIF
208  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
209    
210  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #ifdef ALLOW_AUTODIFF
211  c--   Add control vector for forcing and parameter fields  c--   Add control vector for forcing and parameter fields
212        if ( myiter .EQ. nIter0 )        if ( myiter .EQ. nIter0 )
213       &     CALL CTRL_MAP_FORCING (mythid)       &     CALL CTRL_MAP_FORCING (mythid)
Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68
  ViewVC Help
Powered by ViewVC 1.1.22