1 |
C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_ad.flow,v 1.2 2009/10/08 20:33:22 heimbach Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
C---------------------------------------- |
5 |
C subroutine DIC_READ_PICKUP |
6 |
C---------------------------------------- |
7 |
CADJ SUBROUTINE DIC_READ_PICKUP INPUT = 1,2,3 |
8 |
CADJ SUBROUTINE DIC_READ_PICKUP OUTPUT = 1 |
9 |
|
10 |
|
11 |
C---------------------------------------- |
12 |
C subroutine DIC_READ_CO2_PICKUP |
13 |
C---------------------------------------- |
14 |
CADJ SUBROUTINE DIC_READ_CO2_PICKUP INPUT = 1,2 |
15 |
CADJ SUBROUTINE DIC_READ_CO2_PICKUP OUTPUT = |