/[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.4 by mlosch, Thu Jan 4 15:41:31 2007 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
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22