/[MITgcm]/MITgcm/pkg/seaice/seaice_itd_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_itd_pickup.F

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

revision 1.2 by jmc, Tue Oct 23 13:20:49 2012 UTC revision 1.3 by jmc, Sat May 4 17:31:44 2013 UTC
# Line 85  C     parameters for log-normal distribu Line 85  C     parameters for log-normal distribu
85        _RL LND_dx        _RL LND_dx
86        _RL LND_tmp        _RL LND_tmp
87  C     bin width of distribution  C     bin width of distribution
88        PARAMETER(LND_dx=0.1)        PARAMETER( LND_iend = 1000 )
89        PARAMETER(LND_iend=INT(100./LND_dx))        PARAMETER( LND_dx = 100.D0 / LND_iend )
90        _RL LND_x  (INT(LND_iend))  c     PARAMETER(LND_dx=0.1)
91        _RL LND_pdf(INT(LND_iend))  c     PARAMETER(LND_iend=INT(100./LND_dx))
92          _RL LND_x  (LND_iend)
93          _RL LND_pdf(LND_iend)
94  C     flag for pickup scheme  C     flag for pickup scheme
95        LOGICAL simpleSchemeFlag        LOGICAL simpleSchemeFlag
96    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22