/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

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

revision 1.47 by jmc, Wed Sep 12 22:20:06 2012 UTC revision 1.48 by jmc, Thu Sep 13 19:56:40 2012 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CTRL_OPTIONS.h"  #include "CTRL_OPTIONS.h"
 #include "AD_CONFIG.h"  
5  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
6  # include "EXF_OPTIONS.h"  # include "EXF_OPTIONS.h"
7  #endif  #endif
# Line 66  c     == routine arguments == Line 65  c     == routine arguments ==
65        integer mythid        integer mythid
66    
67  #ifndef EXCLUDE_CTRL_PACK  #ifndef EXCLUDE_CTRL_PACK
 #if (defined (ALLOW_ADJOINT_RUN)||defined (ALLOW_TANGENTLINEAR_RUN))  
68  c     == external ==  c     == external ==
69        integer  ilnblnk        integer  ilnblnk
70        external ilnblnk        external ilnblnk
# Line 721  c          write(cunit) nWetiGlobal(1) Line 719  c          write(cunit) nWetiGlobal(1)
719         ENDIF !IF ( myProcId .eq. 0 )         ENDIF !IF ( myProcId .eq. 0 )
720         _END_MASTER( mythid )         _END_MASTER( mythid )
721        _BARRIER        _BARRIER
 #endif /* (defined (ALLOW_ADJOINT_RUN)||defined (ALLOW_TANGENTLINEAR_RUN)) */  
722  #endif /* EXCLUDE_CTRL_PACK */  #endif /* EXCLUDE_CTRL_PACK */
723    
724        return        return
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22