/[MITgcm]/MITgcm/pkg/ocn_compon_interf/cpl_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/ocn_compon_interf/cpl_write_pickup.F

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

revision 1.2 by jmc, Fri May 21 19:42:26 2004 UTC revision 1.3 by jscott, Thu May 10 21:15:52 2007 UTC
# Line 20  C     == Global variables == Line 20  C     == Global variables ==
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    #include "OCNIDS.h"
24  #include "OCNCPL.h"  #include "OCNCPL.h"
25    
26  C     == Routine arguments ==  C     == Routine arguments ==
# Line 27  C     myThid - Thread number for this in Line 28  C     myThid - Thread number for this in
28  C     myIter - Timestep number.  C     myIter - Timestep number.
29  C     permCheckpoint - Controls whether timestamped or rolling checkpoint.  C     permCheckpoint - Controls whether timestamped or rolling checkpoint.
30  C     lgf            - Controls whether global files are used.  C     lgf            - Controls whether global files are used.
31    C     caroffset      - offset in pickup file if carbon variables included
32        INTEGER myIter        INTEGER myIter
33        INTEGER myThid        INTEGER myThid
34        LOGICAL permCheckPoint        LOGICAL permCheckPoint
35        INTEGER prec        INTEGER prec
36        LOGICAL lgf        LOGICAL lgf
37          INTEGER caroffset
38  CEndOfInterface  CEndOfInterface
39    
40  C     == Local variables ==  C     == Local variables ==
41  C     fn          - Workspace for building file name  C     fn          - Workspace for building file name
42        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
43    
44          caroffset=0
45        IF ( permCheckPoint ) THEN        IF ( permCheckPoint ) THEN
46         WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter         WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter
47        ELSE        ELSE
# Line 57  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL Line 61  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL
61        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx, 7,myIter,myThid)        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx, 7,myIter,myThid)
62        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass, 8,myIter,myThid)        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass, 8,myIter,myThid)
63    
64        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD2cpl, 9,myIter,myThid)        IF ( ocnCpl_exchange_DIC ) THEN
65        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn2cpl,10,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
66        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn2cpl,11,myIter,myThid)       &                     airCO2    ,  9,myIter,myThid)
67        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn2cpl,12,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
68         &                     surfWSpeed, 10,myIter,myThid)
69            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
70         &                     fracIce   , 11,myIter,myThid)
71            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
72         &                     fluxCO2cpl, 12,myIter,myThid)
73            caroffset=4
74          ENDIF
75    
76          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD2cpl,
77         &                   9+caroffset, myIter,myThid)
78          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn2cpl,
79         &                   10+caroffset,myIter,myThid)
80          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn2cpl,
81         &                   11+caroffset,myIter,myThid)
82          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn2cpl,
83         &                   12+caroffset,myIter,myThid)
84    
85    
86        RETURN        RETURN
87        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22