/[MITgcm]/MITgcm/pkg/dic/dic_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_write_pickup.F

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

revision 1.5 by dfer, Mon Apr 7 20:31:16 2008 UTC revision 1.6 by jmc, Sun Apr 11 20:59:27 2010 UTC
# Line 20  C     === Global variables === Line 20  C     === Global variables ===
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "PARAMS.h"  #include "PARAMS.h"
22  #include "DIC_VARS.h"  #include "DIC_VARS.h"
23    #include "DIC_ATMOS.h"
24    
25  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
26  C     permPickup :: write a permanent pickup  C     permPickup :: write a permanent pickup
# Line 35  C     myThid     :: My Thread Id number Line 36  C     myThid     :: My Thread Id number
36  CEOP  CEOP
37    
38  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
 #ifdef DIC_BIOTIC  
39    
40  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
41  C     == Local variables ==  C     == Local variables ==
42        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
43          INTEGER prec
44    #ifndef USE_ATMOSCO2
45          INTEGER ioUnit
46          _RL tmpFld(2)
47          _RS dummyRS(1)
48    #endif
49    #ifdef DIC_BIOTIC
50        LOGICAL glf        LOGICAL glf
51        INTEGER prec, j, nj        INTEGER j, nj
52        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
53        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2 )
54        CHARACTER*(8) wrFldList(listDim)        CHARACTER*(8) wrFldList(listDim)
55        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
56    #endif
57    
58    
59  c     IF ( DIC_pickup_write_mdsio ) THEN  c     IF ( DIC_pickup_write_mdsio ) THEN
60          prec = precFloat64          prec = precFloat64
61    
62    #ifndef USE_ATMOSCO2
63            IF ( dic_int1.EQ.3 ) THEN
64              WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff
65              ioUnit = 0
66              tmpFld(1) = total_atmos_carbon
67              tmpFld(2) = atpco2
68    #ifdef ALLOW_MDSIO
69              CALL MDS_WRITEVEC_LOC(
70         I                         fn, prec, ioUnit,
71         I                         'RL', 2, tmpFld, dummyRS,
72         I                         0, 0, 1, myIter, myThid )
73    #endif
74            ENDIF
75    #endif /* ndef USE_ATMOSCO2 */
76    
77    #ifdef DIC_BIOTIC
78          WRITE(fn,'(A,A)') 'pickup_dic.',suff          WRITE(fn,'(A,A)') 'pickup_dic.',suff
79          j = 0          j = 0
80    
# Line 93  C     files Line 119  C     files
119  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
120  C--------------------------  C--------------------------
121    
122    #endif /* DIC_BIOTIC  */
123    
124  c     ENDIF /* DIC_pickup_write_mdsio */  c     ENDIF /* DIC_pickup_write_mdsio */
125    
126  #endif /*  DIC_BIOTIC  */  #endif /* ALLOW_DIC  */
 #endif /*  ALLOW_DIC  */  
127    
128        RETURN        RETURN
129        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22