/[MITgcm]/MITgcm/pkg/seaice/seaice_ad_check_lev4_dir.h
ViewVC logotype

Contents of /MITgcm/pkg/seaice/seaice_ad_check_lev4_dir.h

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

Revision 1.13 - (show annotations) (download)
Fri Jan 14 01:34:58 2011 UTC (14 years, 6 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint63d, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint63, checkpoint62s, checkpoint62r, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.12: +2 -2 lines
File MIME type: text/plain 
o model/src, pkg/autodiff, pkg/ecco, pkg/seaice:
 alleviate the need for additional 3D tapes when using
 the non-inear free surface in the adjoint. This is done
 by adding an 'update' of hfacc etc. to their current
 value at the beginning of forward_step.F.
1 C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_ad_check_lev4_dir.h,v 1.12 2010/12/17 04:02:25 gforget Exp $
2 C $Name: $
3
4 CADJ STORE StoreSEAICE = tapelev4, key = ilev_4
5
6 #ifdef SEAICE_MULTICATEGORY
7 CADJ STORE tices = tapelev4, key = ilev_4
8 #endif
9
10 #ifdef AUTODIFF_SOMETIMES_NEEDED
11 CADJ STORE area = tapelev4, key = ilev_4
12 CADJ STORE heff = tapelev4, key = ilev_4
13 CADJ STORE uice = tapelev4, key = ilev_4
14 CADJ STORE vice = tapelev4, key = ilev_4
15 #endif
16
17 #ifdef ALLOW_COST_ICE
18 CADJ STORE objf_ice = tapelev4, key = ilev_4
19 #endif
20 #ifdef ALLOW_SEAICE_COST_EXPORT
21 CADJ STORE uHeffExportCell = tapelev4, key = ilev_4
22 CADJ STORE vHeffExportCell = tapelev4, key = ilev_4
23 #endif
  ViewVC Help
Powered by ViewVC 1.1.22