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

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

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

revision 1.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.2 by jmc, Fri May 21 20:00:48 2004 UTC
# Line 31  C     lgf            - Controls whether Line 31  C     lgf            - Controls whether
31        LOGICAL lgf        LOGICAL lgf
32  CEndOfInterface  CEndOfInterface
33    
34    #ifdef COMPONENT_MODULE
35  C     == Local variables ==  C     == Local variables ==
36  C     fn          - Workspace for building file name  C     fn          - Workspace for building file name
37        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
# Line 40  C     fn          - Workspace for buildi Line 41  C     fn          - Workspace for buildi
41        ELSE        ELSE
42         WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev)         WRITE(fn,'(A,A)') 'pickup_cpl.',checkPtSuff(nCheckLev)
43        ENDIF        ENDIF
44        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn    , 1,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn    , 1,myIter,myThid)
45        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux  , 2,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux  , 2,myIter,myThid)
46        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX      , 3,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX      , 3,myIter,myThid)
47        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY      , 4,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY      , 4,myIter,myThid)
48        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,EvMPrFlux , 5,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,EvMPrFlux , 5,myIter,myThid)
49        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffFlux, 6,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffFlux, 6,myIter,myThid)
50        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,uVelGround, 7,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,uVelGround, 7,myIter,myThid)
51        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vVelGround, 8,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vVelGround, 8,myIter,myThid)
52        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLatent   , 9,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLatent   , 9,myIter,myThid)
53        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qSensible ,10,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qSensible ,10,myIter,myThid)
54        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLongwave ,11,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLongwave ,11,myIter,myThid)
55        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortwave,12,myIter,myThid)  c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortwave,12,myIter,myThid)
56    
57          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD    , 1,myIter,myThid)
58          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn    , 2,myIter,myThid)
59          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn    , 3,myIter,myThid)
60          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn    , 4,myIter,myThid)
61    
62          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,atmSLPr   , 5,myIter,myThid)
63          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux  , 6,myIter,myThid)
64          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 7,myIter,myThid)
65    c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLatent   , 7,myIter,myThid)
66    c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qSensible , 7,myIter,myThid)
67    c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qLongWave , 7,myIter,myThid)
68    c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,uVelGround, 7,myIter,myThid)
69    c     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vVelGround, 7,myIter,myThid)
70          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX      , 8,myIter,myThid)
71          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY      , 9,myIter,myThid)
72          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,EvMPrFlux ,10,myIter,myThid)
73          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffFlux,11,myIter,myThid)
74          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffEnFx,12,myIter,myThid)
75          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx,13,myIter,myThid)
76          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass,14,myIter,myThid)
77    
78    #endif /* COMPONENT_MODULE */
79    
80        RETURN        RETURN
81        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22