2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
C---------------------------------------- |
C---------------------------------------- |
5 |
|
C Naming of adjoint common blocks: |
6 |
|
C Retain naming convention of TAF version 1 via flow directives |
7 |
|
|
8 |
|
c$taf COMMON ptracers_fields ADNAME = adptracers_fields |
9 |
|
c$taf COMMON ptracers_fields FTLNAME = g_ptracers_fields |
10 |
|
C---------------------------------------- |
11 |
|
|
12 |
|
C---------------------------------------- |
13 |
C subroutine ptracers_check_pickup |
C subroutine ptracers_check_pickup |
14 |
C---------------------------------------- |
C---------------------------------------- |
15 |
CADJ SUBROUTINE PTRACERS_CHECK_PICKUP INPUT = 1,2,3,4,5 |
CADJ SUBROUTINE PTRACERS_CHECK_PICKUP INPUT = 1,2,3,4,5 |