/[MITgcm]/MITgcm/pkg/exf/exf_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_summary.F

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

revision 1.17 by gforget, Wed Jun 11 18:55:10 2008 UTC revision 1.18 by jmc, Mon Nov 17 23:08:30 2008 UTC
# Line 133  C--   Print general parameters: Line 133  C--   Print general parameters:
133       &  ' /* adiabatic lapse rate [?] */')       &  ' /* adiabatic lapse rate [?] */')
134        CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =',        CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =',
135       &  ' /* reduction of Qsat over salty water [-] */')       &  ' /* reduction of Qsat over salty water [-] */')
136          CALL WRITE_0D_L( noNegativeEvap,INDEX_NONE,'noNegativeEvap =',
137         &  ' /* prevent negative Evaporation */')
138          CALL WRITE_0D_R8( sstExtrapol, INDEX_NONE, 'sstExtrapol =',
139         &  ' /* extrapolation coeff from lev. 1 & 2 to surf [-] */')
140        CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =',        CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =',
141       &  ' /* coef used in drag calculation [?] */')       &  ' /* coef used in drag calculation [?] */')
142        CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =',        CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =',
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22