/[MITgcm]/MITgcm/pkg/land/land_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_read_pickup.F

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

revision 1.3 by edhill, Sat Sep 10 20:40:27 2005 UTC revision 1.4 by jmc, Fri Jun 23 00:49:27 2006 UTC
# Line 43  CEOP Line 43  CEOP
43    
44  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
45    
46        IF ( land_pickup_read_mdsio ) THEN        IF ( .NOT.land_pickup_read_mnc ) THEN
47    
48        WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter        WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter
49        prec = precFloat64        prec = precFloat64
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22