Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:42:59 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
9ed6d27358 Patr*0001 C--   These common blocks are extracted from the
                0002 C--   automatically created tangent linear code.
                0003 C--   You need to make sure that they are up-to-date
                0004 C--   (i.e. in right order), and customize them
                0005 C--   accordingly.
                0006 C--
                0007 C--   heimbach@mit.edu 11-Jan-2001
                0008 
                0009 #ifdef ALLOW_AUTODIFF_MONITOR
                0010 
                0011 #include "PACKAGES_CONFIG.h"
                0012 
                0013 #ifdef ALLOW_PTRACERS
                0014 # include "PTRACERS_OPTIONS.h"
                0015 #endif
                0016 
                0017 #ifdef ALLOW_PTRACERS
                0018       _RL adgptr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
                0019      $ptracers_num)
                0020       _RL adgptrnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
                0021      $ptracers_num)
                0022       _RL adptracer(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
                0023      $ptracers_num)
                0024       _RL adsurfaceforcingptr(1-olx:snx+olx,1-oly:sny+oly,
                0025      $nsx,nsy,ptracers_num)
                0026       common /adptracers_fields/ adptracer, adgptr, adgptrnm1, 
                0027      $adsurfaceforcingptr
                0028 #endif
                0029 
                0030 #endif /* ALLOW_AUTODIFF_MONITOR */