/[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.12 by jmc, Tue May 8 00:21:31 2007 UTC revision 1.13 by jmc, Tue May 8 03:49:34 2007 UTC
# Line 105  C--   Print general parameters: Line 105  C--   Print general parameters:
105       &  ' /* Minimum climatological temperature [deg.C] */')       &  ' /* Minimum climatological temperature [deg.C] */')
106        CALL WRITE_0D_R8( windStressMax, INDEX_NONE,'windStressMax =',        CALL WRITE_0D_R8( windStressMax, INDEX_NONE,'windStressMax =',
107       &  ' /* Maximum absolute windstress [ Pa ] */')       &  ' /* Maximum absolute windstress [ Pa ] */')
108        CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =',        CALL WRITE_0D_R8( cen2kel, INDEX_NONE, 'cen2kel =',
109       & '  /* Sea-water albedo [-] */')       &  ' /* conversion of deg. Centigrade to Kelvin [K] */')
110        CALL WRITE_0D_R8( ocean_emissivity, INDEX_NONE,        CALL WRITE_0D_R8( gravity_mks, INDEX_NONE, 'gravity_mks=',
111       &  'ocean_emissivity =',       &  ' /* gravitational acceleration [m/s^2] */')
      &  ' /* longwave ocean-surface emissivity [-] */')  
       CALL WRITE_0D_R8( ice_emissivity, INDEX_NONE,'ice_emissivity =',  
      &  ' /* longwave seaice emissivity [-] */')  
       CALL WRITE_0D_R8(snow_emissivity, INDEX_NONE,'snow_emissivity =',  
      &  ' /* longwave snow  emissivity [-] */')  
112        CALL WRITE_0D_R8( atmrho, INDEX_NONE, 'atmrho =',        CALL WRITE_0D_R8( atmrho, INDEX_NONE, 'atmrho =',
113       & '  /* mean atmospheric density [kg/m^3] */')       & '  /* mean atmospheric density [kg/m^3] */')
114        CALL WRITE_0D_R8( atmcp, INDEX_NONE, 'atmcp =',        CALL WRITE_0D_R8( atmcp, INDEX_NONE, 'atmcp =',
# Line 136  C--   Print general parameters: Line 131  C--   Print general parameters:
131       &  ' /* adiabatic lapse rate [?] */')       &  ' /* adiabatic lapse rate [?] */')
132        CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =',        CALL WRITE_0D_R8( saltsat, INDEX_NONE, 'saltsat =',
133       &  ' /* reduction of Qsat over salty water [-] */')       &  ' /* reduction of Qsat over salty water [-] */')
134        CALL WRITE_0D_R8( cen2kel, INDEX_NONE, 'cen2kel =',        CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =',
135       &  ' /* conversion of deg. Centigrade to Kelvin [K] */')       &  ' /* coef used in drag calculation [?] */')
136          CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =',
137         &  ' /* coef used in drag calculation [?] */')
138          CALL WRITE_0D_R8( cdrag_3, INDEX_NONE, 'cDrag_3 =',
139         &  ' /* coef used in drag calculation [?] */')
140          CALL WRITE_0D_R8( cstanton_1, INDEX_NONE, 'cStanton_1 =',
141         &  ' /* coef used in Stanton number calculation [?] */')
142          CALL WRITE_0D_R8( cstanton_2, INDEX_NONE, 'cStanton_2 =',
143         &  ' /* coef used in Stanton number calculation [?] */')
144          CALL WRITE_0D_R8( cdalton, INDEX_NONE, 'cDalton =',
145         &  ' /* coef used in Dalton number calculation [?] */')
146        CALL WRITE_0D_R8( exf_scal_BulkCdn, INDEX_NONE,        CALL WRITE_0D_R8( exf_scal_BulkCdn, INDEX_NONE,
147       &  'exf_scal_BulkCdn=',       &  'exf_scal_BulkCdn=',
148       &  ' /* Drag coefficient scaling factor [-] */')       &  ' /* Drag coefficient scaling factor [-] */')
       CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =',  
      &  ' /* coef used in turbulent fluxes calculation [-] */')  
149        CALL WRITE_0D_R8( zolmin, INDEX_NONE, 'zolmin =',        CALL WRITE_0D_R8( zolmin, INDEX_NONE, 'zolmin =',
150       &  ' /* minimum stability parameter [?] */')       &  ' /* minimum stability parameter [?] */')
151          CALL WRITE_0D_R8( psim_fac, INDEX_NONE, 'psim_fac =',
152         &  ' /* coef used in turbulent fluxes calculation [-] */')
153        CALL WRITE_0D_R8( hu, INDEX_NONE, 'zref =',        CALL WRITE_0D_R8( hu, 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 =',
# Line 155  C--   Print general parameters: Line 160  C--   Print general parameters:
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] */')
163        CALL WRITE_0D_R8( cdrag_1, INDEX_NONE, 'cDrag_1 =',        CALL WRITE_0D_L( useStabilityFct_overIce, INDEX_NONE,
164       &  ' /* coef used in drag calculation [?] */')       &  'useStabilityFct_overIce=',
165        CALL WRITE_0D_R8( cdrag_2, INDEX_NONE, 'cDrag_2 =',       &  ' /* transfert Coeffs over sea-ice depend on stability */')
166       &  ' /* coef used in drag calculation [?] */')        CALL WRITE_0D_R8( exf_iceCd, INDEX_NONE, 'exf_iceCd =',
167        CALL WRITE_0D_R8( cdrag_3, INDEX_NONE, 'cDrag_3 =',       &  ' /* drag coefficient over sea-ice (fixed) [-] */')
168       &  ' /* coef used in drag calculation [?] */')        CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCe =',
169        CALL WRITE_0D_R8( cstanton_1, INDEX_NONE, 'cStanton_1 =',       &  ' /* transfert coeff. over sea-ice, for Evap (fixed) [-] */')
170       &  ' /* coef used in Stanton number calculation [?] */')        CALL WRITE_0D_R8( exf_iceCe, INDEX_NONE, 'exf_iceCh =',
171        CALL WRITE_0D_R8( cstanton_2, INDEX_NONE, 'cStanton_2 =',       &  ' /* transfert coeff. over sea-ice, Sens.Heat.(fixed)[-] */')
172       &  ' /* coef used in Stanton number calculation [?] */')        CALL WRITE_0D_R8( exf_albedo, INDEX_NONE, 'exf_albedo =',
173        CALL WRITE_0D_R8( cdalton, INDEX_NONE, 'cDalton =',       & '  /* Sea-water albedo [-] */')
174       &  ' /* coef used in Dalton number calculation [?] */')        CALL WRITE_0D_R8( ocean_emissivity, INDEX_NONE,
175         &  'ocean_emissivity =',
176         &  ' /* longwave ocean-surface emissivity [-] */')
177          CALL WRITE_0D_R8( ice_emissivity, INDEX_NONE,'ice_emissivity =',
178         &  ' /* longwave seaice emissivity [-] */')
179          CALL WRITE_0D_R8(snow_emissivity, INDEX_NONE,'snow_emissivity =',
180         &  ' /* longwave snow  emissivity [-] */')
181        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
182        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
183       &                    SQUEEZE_RIGHT , myThid )       &                    SQUEEZE_RIGHT , myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22