1 |
C $Header: /u/gcmpack/MITgcm/pkg/autodiff/active_file.flow,v 1.7 2011/11/05 19:20:42 heimbach Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
CBOP |
5 |
C !ROUTINE: flow directives for active_file_gen.F |
6 |
C !INTERFACE: |
7 |
C !DESCRIPTION: \bv |
8 |
C ================================================================== |
9 |
C active_file_gen.flow |
10 |
C ================================================================== |
11 |
C provides flow directives for routines in active_file_gen.F |
12 |
C required by TAMC/TAF |
13 |
C * ACTIVE_READ_GEN_RL |
14 |
C * ACTIVE_READ_GEN_RS |
15 |
C * ACTIVE_WRITE_GEN_RL |
16 |
C * ACTIVE_WRITE_GEN_RS |
17 |
C ================================================================== |
18 |
C active_file_gen.flow |
19 |
C ================================================================== |
20 |
C \ev |
21 |
CEOP |
22 |
|
23 |
C- Note: nothing active beyond column 72 ! |
24 |
C---------------------------------------- |
25 |
C SUBROUTINE ACTIVE_READ_GEN_RL |
26 |
C---------------------------------------- |
27 |
cadj SUBROUTINE ACTIVE_READ_GEN_RL FTLNAME = g_ACTIVE_READ_GEN_RL |
28 |
cadj SUBROUTINE ACTIVE_READ_GEN_RL ADNAME = adACTIVE_READ_GEN_RL |
29 |
cadj SUBROUTINE ACTIVE_READ_GEN_RL INPUT = 1 , 3,4,5,6,7,8,9,10, 11 |
30 |
cadj SUBROUTINE ACTIVE_READ_GEN_RL OUTPUT = 2 |
31 |
cadj SUBROUTINE ACTIVE_READ_GEN_RL ACTIVE = 2, 11 |
32 |
cadj SUBROUTINE ACTIVE_READ_GEN_RL DEPEND = 1, 3,4,5,6,7,8,9,10, 11 |
33 |
|
34 |
C---------------------------------------- |
35 |
C SUBROUTINE ACTIVE_READ_GEN_RS |
36 |
C---------------------------------------- |
37 |
cadj SUBROUTINE ACTIVE_READ_GEN_RS FTLNAME = g_ACTIVE_READ_GEN_RS |
38 |
cadj SUBROUTINE ACTIVE_READ_GEN_RS ADNAME = adACTIVE_READ_GEN_RS |
39 |
cadj SUBROUTINE ACTIVE_READ_GEN_RS INPUT = 1 , 3,4,5,6,7,8,9,10, 11 |
40 |
cadj SUBROUTINE ACTIVE_READ_GEN_RS OUTPUT = 2 |
41 |
cadj SUBROUTINE ACTIVE_READ_GEN_RS ACTIVE = 2, 11 |
42 |
cadj SUBROUTINE ACTIVE_READ_GEN_RS DEPEND = 1, 3,4,5,6,7,8,9,10, 11 |
43 |
|
44 |
C---------------------------------------- |
45 |
C SUBROUTINE ACTIVE_WRITE_GEN_RL |
46 |
C---------------------------------------- |
47 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RL FTLNAME = g_ACTIVE_WRITE_GEN_RL |
48 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RL ADNAME = adACTIVE_WRITE_GEN_RL |
49 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RL INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
50 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RL OUTPUT = 9 |
51 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RL ACTIVE = 2, 9 |
52 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RL DEPEND = 1, 3, 4, 5, 6, 7, 8 |
53 |
|
54 |
C---------------------------------------- |
55 |
C SUBROUTINE ACTIVE_WRITE_GEN_RS |
56 |
C---------------------------------------- |
57 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RS FTLNAME = g_ACTIVE_WRITE_GEN_RS |
58 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RS ADNAME = adACTIVE_WRITE_GEN_RS |
59 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RS INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
60 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RS OUTPUT = 9 |
61 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RS ACTIVE = 2, 9 |
62 |
cadj SUBROUTINE ACTIVE_WRITE_GEN_RS DEPEND = 1, 3, 4, 5, 6, 7, 8 |