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

Diff of /MITgcm/pkg/thsice/thsice_read_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.3 by edhill, Sat Sep 17 03:17:06 2005 UTC
# Line 36  CEOP Line 36  CEOP
36    
37  C     == Local variables ==  C     == Local variables ==
38        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
39          
40          IF ( .NOT. thSIce_pickup_write_mnc ) THEN
41    
42          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
43          CALL MDSREADFIELD(fn,prec,'RL',1,iceMask,   1,myThid)          CALL MDSREADFIELD(fn,prec,'RL',1,iceMask,   1,myThid)
# Line 48  C     == Local variables == Line 50  C     == Local variables ==
50          CALL MDSREADFIELD(fn,prec,'RL',1,Qice2,     8,myThid)          CALL MDSREADFIELD(fn,prec,'RL',1,Qice2,     8,myThid)
51          CALL MDSREADFIELD(fn,prec,'RL',1,snowAge,   9,myThid)          CALL MDSREADFIELD(fn,prec,'RL',1,snowAge,   9,myThid)
52    
53         IF ( stepFwd_oceMxL .AND. startIceModel.EQ.0 )  THEN          IF ( stepFwd_oceMxL .AND. startIceModel.EQ.0 )  THEN
54          CALL MDSREADFIELD(fn,prec,'RL',1,tOceMxL,  10,myThid)            CALL MDSREADFIELD(fn,prec,'RL',1,tOceMxL,  10,myThid)
55          CALL MDSREADFIELD(fn,prec,'RL',1,sOceMxL,  11,myThid)            CALL MDSREADFIELD(fn,prec,'RL',1,sOceMxL,  11,myThid)
56         ENDIF          ENDIF
57    
58          ENDIF
59    
60    #ifdef ALLOW_MNC
61          IF ( thSIce_pickup_write_mnc ) THEN
62            WRITE(fn,'(A)') 'pickup_ic'
63            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
64            CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)
65            CALL MNC_CW_SET_UDIM(fn, 1, myThid)
66            CALL MNC_CW_RL_R('D',fn,0,0,'iceMask',   iceMask,   myThid)
67            CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid)
68            CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid)
69            CALL MNC_CW_RL_R('D',fn,0,0,'Tsrf',      Tsrf,      myThid)
70            CALL MNC_CW_RL_R('D',fn,0,0,'Tice1',     Tice1,     myThid)
71            CALL MNC_CW_RL_R('D',fn,0,0,'Tice2',     Tice1,     myThid)
72            CALL MNC_CW_RL_R('D',fn,0,0,'Qice1',     Qice1,     myThid)
73            CALL MNC_CW_RL_R('D',fn,0,0,'Qice2',     Qice2,     myThid)
74            CALL MNC_CW_RL_R('D',fn,0,0,'snowAge',   snowAge,   myThid)
75            IF ( stepFwd_oceMxL ) THEN
76              CALL MNC_CW_RL_R('D',fn,0,0,'tOceMxL',tOceMxL,myThid)
77              CALL MNC_CW_RL_R('D',fn,0,0,'sOceMxL',sOceMxL,myThid)
78            ENDIF
79          ENDIF
80    #endif  /* ALLOW_MNC */
81    
82  #endif  /* ALLOW_THSICE */  #endif  /* ALLOW_THSICE */
83        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22