/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_readparms.F

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

revision 1.30 by jmc, Wed Jul 6 01:43:49 2011 UTC revision 1.31 by jmc, Fri Jul 22 19:47:14 2011 UTC
# Line 86  C--   full level output: Line 86  C--   full level output:
86       &     missing_value, missing_value_int,       &     missing_value, missing_value_int,
87       &     levels, fields, fileName, fileFlags,       &     levels, fields, fileName, fileFlags,
88       &     dumpAtLast, diag_mnc, useMissingValue,       &     dumpAtLast, diag_mnc, useMissingValue,
89       &     xPsi0, yPsi0,       &     diagCG_maxIters, diagCG_resTarget,
90         &     diagCG_prtResFrq, xPsi0, yPsi0,
91       &     diag_pickup_read,     diag_pickup_write,       &     diag_pickup_read,     diag_pickup_write,
92       &     diag_pickup_read_mnc, diag_pickup_write_mnc       &     diag_pickup_read_mnc, diag_pickup_write_mnc
93    
# Line 132  C     Initialize and Read Diagnostics Na Line 133  C     Initialize and Read Diagnostics Na
133        diag_pickup_read_mnc  = .FALSE.        diag_pickup_read_mnc  = .FALSE.
134        diag_pickup_write_mnc = .FALSE.        diag_pickup_write_mnc = .FALSE.
135    
136          diagCG_maxIters  = cg2dMaxIters
137          diagCG_resTarget = cg2dTargetResidual
138          diagCG_prtResFrq = printResidualFreq
139        xPsi0 = UNSET_RS        xPsi0 = UNSET_RS
140        yPsi0 = UNSET_RS        yPsi0 = UNSET_RS
141    
# Line 471  C     Echo History List Data Structure Line 475  C     Echo History List Data Structure
475       & ' diag_mnc =', '   /* write NetCDF output files */')       & ' diag_mnc =', '   /* write NetCDF output files */')
476        CALL WRITE_0D_L( useMissingValue, INDEX_NONE,        CALL WRITE_0D_L( useMissingValue, INDEX_NONE,
477       & ' useMissingValue =', ' /* put MissingValue where mask = 0 */')       & ' useMissingValue =', ' /* put MissingValue where mask = 0 */')
478          CALL WRITE_0D_I( diagCG_maxIters, INDEX_NONE,
479         & ' diagCG_maxIters =', ' /* max number of iters in diag_cg2d */')
480          CALL WRITE_0D_RL( diagCG_resTarget, INDEX_NONE,
481         & ' diagCG_resTarget =', ' /* residual target for diag_cg2d */')
482        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
483       & '-----------------------------------------------------'       & '-----------------------------------------------------'
484        CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)        CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22