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

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

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

revision 1.9 by jmc, Sun Aug 12 20:24:23 2012 UTC revision 1.10 by jmc, Fri Apr 4 20:54:11 2014 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    #ifdef ALLOW_AUTODIFF
7    # include "AUTODIFF_OPTIONS.h"
8    #endif
9    
10  C--  File update_masks_etc.F:  C--  File update_masks_etc.F:
11  C--   Contents  C--   Contents
# Line 44  C     === Global variables === Line 47  C     === Global variables ===
47  #include "GRID.h"  #include "GRID.h"
48  #include "SURFACE.h"  #include "SURFACE.h"
49  Cml we need optimcycle for storing the new hFaC(C/W/S) and depth  Cml we need optimcycle for storing the new hFaC(C/W/S) and depth
50  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF
51  # include "optim.h"  # include "optim.h"
52  #endif  #endif
53    
# Line 239  C     We should really supply a flag for Line 242  C     We should really supply a flag for
242          ENDDO          ENDDO
243         ENDDO         ENDDO
244        ENDDO        ENDDO
245  #if ( defined (ALLOW_AUTODIFF_TAMC) && \  #if ( defined (ALLOW_AUTODIFF) && \
246        defined (ALLOW_AUTODIFF_MONITOR) && \        defined (ALLOW_AUTODIFF_MONITOR) && \
247        defined (ALLOW_DEPTH_CONTROL) )        defined (ALLOW_DEPTH_CONTROL) )
248  C     Include call to a dummy routine. Its adjoint will be called at the proper  C     Include call to a dummy routine. Its adjoint will be called at the proper
# Line 250  Cml      CALL DUMMY_IN_HFAC( 'W', 0, myT Line 253  Cml      CALL DUMMY_IN_HFAC( 'W', 0, myT
253  Cml      CALL DUMMY_IN_HFAC( 'S', 0, myThid )  Cml      CALL DUMMY_IN_HFAC( 'S', 0, myThid )
254  #endif  #endif
255        CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid)        CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid)
256  #if ( defined (ALLOW_AUTODIFF_TAMC) && \  #if ( defined (ALLOW_AUTODIFF) && \
257        defined (ALLOW_AUTODIFF_MONITOR) && \        defined (ALLOW_AUTODIFF_MONITOR) && \
258        defined (ALLOW_DEPTH_CONTROL) )        defined (ALLOW_DEPTH_CONTROL) )
259  C     Include call to a dummy routine. Its adjoint will be called at the proper  C     Include call to a dummy routine. Its adjoint will be called at the proper
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22