/[MITgcm]/MITgcm/pkg/fizhi/fizhi_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_read_pickup.F

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

revision 1.7 by edhill, Thu Sep 23 03:28:42 2004 UTC revision 1.8 by molod, Thu Oct 7 00:06:09 2004 UTC
# Line 44  C     prec    :: precision of pickup fil Line 44  C     prec    :: precision of pickup fil
44  C     k       :: loop index  C     k       :: loop index
45        INTEGER i, prec        INTEGER i, prec
46        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
47          _RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy)
48    
49        DO i = 1,MAX_LEN_FNAM        DO i = 1,MAX_LEN_FNAM
50          fn(i:i) = ' '          fn(i:i) = ' '
# Line 55  C#ifdef ALLOW_MDSIO Line 56  C#ifdef ALLOW_MDSIO
56        IF ( fizhi_mdsio_read_pickup ) THEN        IF ( fizhi_mdsio_read_pickup ) THEN
57    
58  C       Read fields as consecutive records  C       Read fields as consecutive records
59          CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid)
60          CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)
61          CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)
62          CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)
63           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_lw,5,myIter,myThid)
64           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_lw,6,myIter,myThid)
65           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_lw,7,myIter,myThid)
66           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_sw,8,myIter,myThid)
67           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_sw,9,myIter,myThid)
68           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_sw,10,myIter,myThid)
69           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavelw,11,myIter,myThid)
70           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavesw,12,myIter,myThid)
71           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavelw,13,myIter,myThid)
72           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,14,myIter,myThid)
73           CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,15,myIter,myThid)
74           iras = nint(temp(1,1,1,1,1))
75           nlwcld = nint(temp(2,1,1,1,1))
76           nlwlz = nint(temp(3,1,1,1,1))
77           nswcld = nint(temp(4,1,1,1,1))
78           nswlz = nint(temp(5,1,1,1,1))
79           imstturbsw = nint(temp(6,1,1,1,1))
80           imstturblw = nint(temp(7,1,1,1,1))
81    
82        ENDIF        ENDIF
83    
# Line 73  C       Read fields as consecutive recor Line 92  C       Read fields as consecutive recor
92          CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid)
93          CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid)
94          CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid)
95            CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid)
96    
97    
98          _END_MASTER()          _END_MASTER()
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22