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

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

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

revision 1.13 by edhill, Sun Oct 10 06:08:49 2004 UTC revision 1.14 by molod, Tue Nov 2 21:15:13 2004 UTC
# Line 308  C     !INPUT/OUTPUT PARAMETERS: Line 308  C     !INPUT/OUTPUT PARAMETERS:
308    
309  CEOP  CEOP
310  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
311        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*80 fn
312        CHARACTER*80 bnam        CHARACTER*80 bnam
313        integer ilst        integer ilst
314        character*(80) dataFName        character*(80) dataFName
# Line 325  C     !LOCAL VARIABLES: Line 325  C     !LOCAL VARIABLES:
325        ilst = ILNBLNK(fn)        ilst = ILNBLNK(fn)
326        WRITE(bnam,'(a,I10.10)') 'pickup_vegtiles.',Iter        WRITE(bnam,'(a,I10.10)') 'pickup_vegtiles.',Iter
327        fileprec = 64        fileprec = 64
328        prec = 'D'  
         
329  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
330        IF (useMNC) THEN        IF (useMNC) THEN
331    
# Line 374  C       fizhi_land_coms.h Line 373  C       fizhi_land_coms.h
373    
374         write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)')         write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)')
375       &              fn(1:ilst),'.',iG,'.',jG,'.data'       &              fn(1:ilst),'.',iG,'.',jG,'.data'
376           print *,' Opening ',dataFName
377         open( iUnit, file=dataFName, status='old',         open( iUnit, file=dataFName, status='old',
378       &       access='direct', recl=length_of_rec )       &       access='direct', recl=length_of_rec )
379    
# Line 445  C And now read Multi-level turbulence fi Line 445  C And now read Multi-level turbulence fi
445          enddo          enddo
446         enddo         enddo
447    
   
448  C And finally, read land surface fields  C And finally, read land surface fields
449         irec = 4 + 3*Nrphys + 1         irec = 4 + 3*Nrphys + 1
450         read(iunit,rec=irec) r8seg         read(iunit,rec=irec) r8seg
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22