/[MITgcm]/MITgcm/pkg/down_slope/dwnslp_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/down_slope/dwnslp_readparms.F

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

revision 1.1 by jmc, Sun Aug 17 02:01:27 2008 UTC revision 1.2 by jmc, Tue Apr 28 23:27:24 2009 UTC
# Line 91  C--   Check the parameters : Line 91  C--   Check the parameters :
91  C- print out some kee parameters :  C- print out some kee parameters :
92        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
93    
94         CALL WRITE_0D_R8( DWNSLP_slope, INDEX_NONE,'DWNSLP_slope =',         CALL WRITE_0D_RL( DWNSLP_slope, INDEX_NONE,'DWNSLP_slope =',
95       &  '   /* DOWNSLP fixed slope (=0 => use local slope) */')       &  '   /* DOWNSLP fixed slope (=0 => use local slope) */')
96         CALL WRITE_0D_R8( DWNSLP_rec_mu,INDEX_NONE,'DWNSLP_rec_mu =',         CALL WRITE_0D_RL( DWNSLP_rec_mu,INDEX_NONE,'DWNSLP_rec_mu =',
97       &  '   /* DOWNSLP recip. friction parameter (time, s ) */')       &  '   /* DOWNSLP recip. friction parameter (time, s ) */')
98         CALL WRITE_0D_R8( DWNSLP_drFlow,INDEX_NONE,'DWNSLP_drFlow =',         CALL WRITE_0D_RL( DWNSLP_drFlow,INDEX_NONE,'DWNSLP_drFlow =',
99       &  '   /* DOWNSLP effective layer thickness ( m ) */')       &  '   /* DOWNSLP effective layer thickness ( m ) */')
100    
101        _END_MASTER(myThid)        _END_MASTER(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22