/[MITgcm]/MITgcm/model/src/config_summary.F
ViewVC logotype

Diff of /MITgcm/model/src/config_summary.F

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

revision 1.109 by jmc, Mon May 5 23:11:38 2008 UTC revision 1.110 by jmc, Sun Aug 24 21:32:17 2008 UTC
# Line 276  C     ycoord :: varying parameters. Line 276  C     ycoord :: varying parameters.
276        CALL WRITE_0D_I( select_rStar, INDEX_NONE,        CALL WRITE_0D_I( select_rStar, INDEX_NONE,
277       &'select_rStar =',       &'select_rStar =',
278       &' /* r* Vertical coord. options (=0 r coord.; > 0 uses r*) */')       &' /* r* Vertical coord. options (=0 r coord.; > 0 uses r*) */')
279          CALL WRITE_0D_I( selectAddFluid, INDEX_NONE,
280         &'selectAddFluid =',
281         &' /* option for mass source/sink of fluid (=0: off) */')
282        CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE,        CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE,
283       &'useRealFreshWaterFlux =',       &'useRealFreshWaterFlux =',
284       &'   /* Real Fresh Water Flux on/off flag*/')       &' /* Real Fresh Water Flux on/off flag*/')
       IF (useRealFreshWaterFlux .AND. nonlinFreeSurf.GT.0) THEN  
285        CALL WRITE_0D_R8( temp_EvPrRn, INDEX_NONE,        CALL WRITE_0D_R8( temp_EvPrRn, INDEX_NONE,
286       &'temp_EvPrRn =',       &'temp_EvPrRn =',
287       &' /* Temp. of Evap/Prec/R (UNSET=use local T)(oC)*/')       &' /* Temp. of Evap/Prec/R (UNSET=use local T)(oC)*/')
288        CALL WRITE_0D_R8( salt_EvPrRn, INDEX_NONE,        CALL WRITE_0D_R8( salt_EvPrRn, INDEX_NONE,
289       &'salt_EvPrRn =',       &'salt_EvPrRn =',
290       &' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/')       &' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/')
291        ELSE        IF ( .NOT.useRealFreshWaterFlux .OR. selectAddFluid.EQ.-1
292         &                                .OR. nonlinFreeSurf.LE.0 ) THEN
293        CALL WRITE_0D_R8( convertFW2Salt, INDEX_NONE,        CALL WRITE_0D_R8( convertFW2Salt, INDEX_NONE,
294       &'convertFW2Salt =',       &'convertFW2Salt =',
295       &' /* convert F.W. Flux to Salt Flux (-1=use local S)(ppt)*/')       &' /* convert F.W. Flux to Salt Flux (-1=use local S)(ppt)*/')
Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110
  ViewVC Help
Powered by ViewVC 1.1.22