/[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.2 by edhill, Fri Jun 24 04:36:54 2005 UTC revision 1.5 by jmc, Fri Oct 19 03:22:25 2007 UTC
# Line 39  C     == Local variables == Line 39  C     == Local variables ==
39                
40        IF ( .NOT. thSIce_pickup_write_mnc ) THEN        IF ( .NOT. thSIce_pickup_write_mnc ) THEN
41    
42          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter          IF (pickupSuff .EQ. ' ') THEN
43          CALL MDSREADFIELD(fn,prec,'RL',1,iceMask,   1,myThid)            WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
44          CALL MDSREADFIELD(fn,prec,'RL',1,iceHeight, 2,myThid)          ELSE
45          CALL MDSREADFIELD(fn,prec,'RL',1,snowHeight,3,myThid)            WRITE(fn,'(A,A10)')    'pickup_ic.',pickupSuff
46          CALL MDSREADFIELD(fn,prec,'RL',1,Tsrf,      4,myThid)          ENDIF
47          CALL MDSREADFIELD(fn,prec,'RL',1,Tice1,     5,myThid)          CALL READ_REC_3D_RL( fn, prec, 1, iceMask,  1, myIter,myThid )
48          CALL MDSREADFIELD(fn,prec,'RL',1,Tice2,     6,myThid)          CALL READ_REC_3D_RL( fn, prec, 1, iceHeight,2, myIter,myThid )
49          CALL MDSREADFIELD(fn,prec,'RL',1,Qice1,     7,myThid)          CALL READ_REC_3D_RL( fn, prec, 1,snowHeight,3, myIter,myThid )
50          CALL MDSREADFIELD(fn,prec,'RL',1,Qice2,     8,myThid)          CALL READ_REC_3D_RL( fn, prec, 1, Tsrf,     4, myIter,myThid )
51          CALL MDSREADFIELD(fn,prec,'RL',1,snowAge,   9,myThid)          CALL READ_REC_3D_RL( fn, prec, 1, Tice1,    5, myIter,myThid )
52            CALL READ_REC_3D_RL( fn, prec, 1, Tice2,    6, myIter,myThid )
53            CALL READ_REC_3D_RL( fn, prec, 1, Qice1,    7, myIter,myThid )
54            CALL READ_REC_3D_RL( fn, prec, 1, Qice2,    8, myIter,myThid )
55            CALL READ_REC_3D_RL( fn, prec, 1, snowAge,  9, myIter,myThid )
56    
57          IF ( stepFwd_oceMxL .AND. startIceModel.EQ.0 )  THEN          IF ( stepFwd_oceMxL .AND. startIceModel.EQ.0 )  THEN
58            CALL MDSREADFIELD(fn,prec,'RL',1,tOceMxL,  10,myThid)            CALL READ_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid )
59            CALL MDSREADFIELD(fn,prec,'RL',1,sOceMxL,  11,myThid)            CALL READ_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid )
60          ENDIF          ENDIF
61    
62        ENDIF        ENDIF
63    
64  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
65        IF ( thSIce_pickup_write_mnc ) THEN        IF ( thSIce_pickup_write_mnc ) THEN
66            WRITE(fn,'(A)') 'pickup_ic'
67          CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)          CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)
68          CALL MNC_CW_SET_UDIM(fn, 1, myThid)          CALL MNC_CW_SET_UDIM(fn, 1, myThid)
69            CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
70          CALL MNC_CW_RL_R('D',fn,0,0,'iceMask',   iceMask,   myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'iceMask',   iceMask,   myThid)
71          CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid)
72          CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22