/[MITgcm]/MITgcm/pkg/grdchk/grdchk_main.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_main.F

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

revision 1.12 by heimbach, Tue Nov 4 20:47:42 2003 UTC revision 1.13 by heimbach, Mon Feb 23 19:16:16 2004 UTC
# Line 303  cphadmtlm( Line 303  cphadmtlm(
303              fcpertplus = fc              fcpertplus = fc
304  cphadmtlm            fcpertplus = objf_state_final(45,4,1,1)  cphadmtlm            fcpertplus = objf_state_final(45,4,1,1)
305  cphadmtlm)  cphadmtlm)
306                print *, 'ph-check fcpertplus = ', fcpertplus
307              _BARRIER              _BARRIER
308                                        
309  c--   Reset control vector.  c--   Reset control vector.
# Line 316  c--   Reset control vector. Line 317  c--   Reset control vector.
317              _BARRIER              _BARRIER
318    
319              fcpertminus = fcref              fcpertminus = fcref
320                print *, 'ph-check fcpertminus = ', fcpertminus
321    
322              if ( useCentralDiff ) then              if ( useCentralDiff ) then
323    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22