/[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.13 by jmc, Tue May 8 03:49:34 2007 UTC revision 1.14 by jmc, Sat May 12 23:17:18 2007 UTC
# Line 150  C--   Print general parameters: Line 150  C--   Print general parameters:
150       &  ' /* minimum stability parameter [?] */')       &  ' /* minimum stability parameter [?] */')
151        CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =',        CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =',
152       &  ' /* coef used in turbulent fluxes calculation [-] */')       &  ' /* coef used in turbulent fluxes calculation [-] */')
153        CALL WRITE_0D_R8( hu, INDEX_NONE, 'zref =',        CALL WRITE_0D_R8( zref, INDEX_NONE, 'zref =',
154       & '  /* reference height [ m ] */')       & '  /* reference height [ m ] */')
155        CALL WRITE_0D_R8( hu, INDEX_NONE, 'hu =',        CALL WRITE_0D_R8( hu, INDEX_NONE, 'hu =',
156       & '  /* height of mean wind [ m ] */')       & '  /* height of mean wind [ m ] */')
157        CALL WRITE_0D_R8( hu, INDEX_NONE, 'ht =',        CALL WRITE_0D_R8( ht, INDEX_NONE, 'ht =',
158       & '  /* height of mean temperature [ m ] */')       & '  /* height of mean temperature [ m ] */')
159        CALL WRITE_0D_R8( hu, INDEX_NONE, 'hq =',        CALL WRITE_0D_R8( hq, INDEX_NONE, 'hq =',
160       & '  /* height of mean spec.humidity [ m ] */')       & '  /* height of mean spec.humidity [ m ] */')
161        CALL WRITE_0D_R8( umin, INDEX_NONE, 'uMin =',        CALL WRITE_0D_R8( umin, INDEX_NONE, 'uMin =',
162       &  ' /* minimum wind speed [m/s] */')       &  ' /* minimum wind speed [m/s] */')
# Line 167  C--   Print general parameters: Line 167  C--   Print general parameters:
167       &  ' /* drag coefficient over sea-ice (fixed) [-] */')       &  ' /* drag coefficient over sea-ice (fixed) [-] */')
168        CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCe =',        CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCe =',
169       &  ' /* transfert coeff. over sea-ice, for Evap (fixed) [-] */')       &  ' /* transfert coeff. over sea-ice, for Evap (fixed) [-] */')
170        CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCh =',        CALL WRITE_0D_R8( exf_iceCh, INDEX_NONE, 'exf_iceCh =',
171       &  ' /* transfert coeff. over sea-ice, Sens.Heat.(fixed)[-] */')       &  ' /* transfert coeff. over sea-ice, Sens.Heat.(fixed)[-] */')
172        CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =',        CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =',
173       & '  /* Sea-water albedo [-] */')       & '  /* Sea-water albedo [-] */')
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22