/[MITgcm]/MITgcm/pkg/autodiff/mdsio.flow
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/mdsio.flow

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

Revision 1.2 - (hide annotations) (download)
Thu Feb 7 20:00:09 2002 UTC (22 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47j_post, checkpoint48d_pre, checkpoint44b_post, branch-exfmods-tag, checkpoint47e_post, checkpoint44h_pre, checkpoint47i_post, checkpoint44e_post, checkpoint47f_post, checkpoint47c_post, checkpoint50e_post, checkpoint50c_post, checkpoint46i_post, checkpoint47d_post, checkpoint44f_pre, checkpoint47a_post, checkpoint46f_post, checkpoint46d_pre, checkpoint48e_post, checkpoint46e_post, checkpoint48d_post, checkpoint50g_post, checkpoint46c_post, checkpoint44g_post, checkpoint44h_post, checkpoint46k_post, checkpoint46e_pre, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, checkpoint45b_post, checkpoint48c_post, release1_final_v1, checkpoint47d_pre, checkpoint47, checkpoint45, checkpoint48, checkpoint49, c49_autodiff, checkpoint47b_post, checkpoint46l_post, checkpoint48i_post, checkpoint46l_pre, checkpoint48h_post, checkpoint50d_pre, chkpt44d_post, checkpoint46h_pre, checkpoint50, checkpoint47h_post, checkpoint50d_post, checkpoint46g_pre, checkpoint46a_post, checkpoint47g_post, chkpt44c_post, checkpoint46m_post, checkpoint46j_post, checkpoint46a_pre, checkpoint50c_pre, checkpoint45c_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint46b_pre, checkpoint46b_post, checkpoint46d_post, checkpoint48b_post, checkpoint50b_post, checkpoint46g_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint46c_pre, checkpoint50f_pre, checkpoint48c_pre, checkpoint46, checkpoint50h_post, checkpoint46h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint48g_post, chkpt44c_pre, checkpoint48a_post, checkpoint44f_post
Branch point for: branch-exfmods-curt, release1_final
Changes since 1.1: +25 -0 lines 
o merge of relevant stuff from the ecco-branch:
  - genmake: removed $S64 overwrite for case SunOS
  - pkg/exf: update and corrections for field swapping and obcs
  - pkg/ecco: parameter lists for the_model_main, the_main_loop
              harmonized between ECCO and MITgcm
  - pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
                  updated checkpointing_lev... lists for obcs
  - model/src: minor changes in forward_step, plot_field
               added directive for divided adjoint in the_main_loop
  - pkg/mdsio: added mdsio_gl_slice
1 heimbach 1.1
2     C----------------------------------------
3     C subroutine mdsfindunit
4     C----------------------------------------
5     CADJ SUBROUTINE mdsfindunit INPUT = 2
6     CADJ SUBROUTINE mdsfindunit OUTPUT = 1
7    
8     C----------------------------------------
9     C subroutine mdsreadfield
10     C----------------------------------------
11     CADJ SUBROUTINE mdsreadfield INPUT = 1,2,3,4, 6,7
12     CADJ SUBROUTINE mdsreadfield OUTPUT = 5
13    
14     C----------------------------------------
15     C subroutine mdswritefield
16     C----------------------------------------
17     CADJ SUBROUTINE mdswritefield INPUT = 1,2,3,4,5,6,7,8,9
18     CADJ SUBROUTINE mdswritefield OUTPUT =
19    
20     C----------------------------------------
21     C subroutine mdsreadvector
22     C----------------------------------------
23     CADJ SUBROUTINE mdsreadvector INPUT = 1,2,3,4, 6,7,8,9
24     CADJ SUBROUTINE mdsreadvector OUTPUT = 5
25    
26     C----------------------------------------
27     C subroutine mdswritevector
28     C----------------------------------------
29     CADJ SUBROUTINE mdswritevector INPUT = 1,2,3,4,5,6,7,8,9,10,11
30     CADJ SUBROUTINE mdswritevector OUTPUT =
31    
32     C----------------------------------------
33     C subroutine mds_byteswapr8
34     C----------------------------------------
35     CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
36     CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
37    
38     C----------------------------------------
39     C subroutine mds_byteswapr4
40     C----------------------------------------
41     CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
42     CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2
43 heimbach 1.2
44     C----------------------------------------
45     C subroutine mdsreadfieldxz
46     C----------------------------------------
47     CADJ SUBROUTINE mdsreadfieldxz INPUT = 1,2,3,4, 6,7
48     CADJ SUBROUTINE mdsreadfieldxz OUTPUT = 5
49    
50     C----------------------------------------
51     C subroutine mdswritefieldxz
52     C----------------------------------------
53     CADJ SUBROUTINE mdswritefieldxz INPUT = 1,2,3,4,5,6,7,8,9
54     CADJ SUBROUTINE mdswritefieldxz OUTPUT =
55    
56     C----------------------------------------
57     C subroutine mdsreadfieldyz
58     C----------------------------------------
59     CADJ SUBROUTINE mdsreadfieldyz INPUT = 1,2,3,4, 6,7
60     CADJ SUBROUTINE mdsreadfieldyz OUTPUT = 5
61    
62     C----------------------------------------
63     C subroutine mdswritefield
64     C----------------------------------------
65     CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9
66     CADJ SUBROUTINE mdswritefieldyz OUTPUT =
  ViewVC Help
Powered by ViewVC 1.1.22