/[MITgcm]/MITgcm/pkg/thsice/thsice_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_write_pickup.F

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

revision 1.1 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.2 by edhill, Fri Jun 24 04:36:54 2005 UTC
# Line 44  CEOP Line 44  CEOP
44  C     == Local variables ==        C     == Local variables ==      
45        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
46    
47         IF ( permCheckPoint ) THEN        IF ( permCheckPoint ) THEN
48           WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
49         ELSE        ELSE
50           WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)          WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
51         ENDIF        ENDIF
52    
53          IF ( thSIce_pickup_write_mdsio ) THEN
54          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,
55       &                                               myIter,myThid)       &                                               myIter,myThid)
56          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,
# Line 63  C     == Local variables == Line 64  C     == Local variables ==
64          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,  8, myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,  8, myIter,myThid)
65          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowAge,9, myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowAge,9, myIter,myThid)
66    
67         IF ( stepFwd_oceMxL ) THEN          IF ( stepFwd_oceMxL ) THEN
68          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tOceMxL,10,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tOceMxL,10,myIter,myThid)
69          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sOceMxL,11,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sOceMxL,11,myIter,myThid)
70         ENDIF          ENDIF
71  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|        ENDIF
72    
73    #ifdef ALLOW_MNC
74          IF ( thSIce_pickup_write_mnc ) THEN
75            CALL MNC_CW_SET_UDIM(fn, -1, myThid)
76            CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
77            CALL MNC_CW_SET_UDIM(fn, 0, myThid)
78    C       CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
79            CALL MNC_CW_RL_W('D',fn,0,0,'iceMask',   iceMask,   myThid)
80            CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid)
81            CALL MNC_CW_RL_W('D',fn,0,0,'snowHeight',snowHeight,myThid)
82            CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf',      Tsrf,      myThid)
83            CALL MNC_CW_RL_W('D',fn,0,0,'Tice1',     Tice1,     myThid)
84            CALL MNC_CW_RL_W('D',fn,0,0,'Tice2',     Tice1,     myThid)
85            CALL MNC_CW_RL_W('D',fn,0,0,'Qice1',     Qice1,     myThid)
86            CALL MNC_CW_RL_W('D',fn,0,0,'Qice2',     Qice2,     myThid)
87            CALL MNC_CW_RL_W('D',fn,0,0,'snowAge',   snowAge,   myThid)
88            IF ( stepFwd_oceMxL ) THEN
89              CALL MNC_CW_RL_W('D',fn,0,0,'tOceMxL',tOceMxL,myThid)
90              CALL MNC_CW_RL_W('D',fn,0,0,'sOceMxL',sOceMxL,myThid)
91            ENDIF
92          ENDIF
93    #endif  /* ALLOW_MNC */
94    
95  #endif  /* ALLOW_THSICE */  #endif  /* ALLOW_THSICE */
96        RETURN        RETURN
97        END        END
98    
99    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22