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

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

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

revision 1.65 by heimbach, Sat May 3 00:07:08 2008 UTC revision 1.66 by gforget, Fri May 30 21:10:31 2008 UTC
# Line 400  cph Avoid variable aliasing for adjoint Line 400  cph Avoid variable aliasing for adjoint
400       I             rhoK, rhoKm1, rhoKp1,       I             rhoK, rhoKm1, rhoKp1,
401       O             sigmaX, sigmaY, sigmaR,       O             sigmaX, sigmaY, sigmaR,
402       I             myThid )       I             myThid )
403    #ifdef ALLOW_AUTODIFF_TAMC
404    #ifdef GMREDI_WITH_STABLE_ADJOINT
405    cgf zero out adjoint fields to stabilize pkg/gmredi adjoint
406    cgf -> cuts adjoint dependency from slope to state
407          CALL ZERO_ADJ_3D( bi, bj, sigmaX, myThid)
408          CALL ZERO_ADJ_3D( bi, bj, sigmaY, myThid)
409          CALL ZERO_ADJ_3D( bi, bj, sigmaR, myThid)
410    #endif
411    #endif /* ALLOW_AUTODIFF_TAMC */
412            ENDIF            ENDIF
413    
414  C--       Implicit Vertical Diffusion for Convection  C--       Implicit Vertical Diffusion for Convection
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22