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

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

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

revision 1.7 by edhill, Tue Sep 7 17:29:14 2004 UTC revision 1.8 by jmc, Wed Sep 8 01:50:24 2004 UTC
# Line 312  c ==> should use sigmaR !!! Line 312  c ==> should use sigmaR !!!
312  C--     end of diagnostic k loop (Nr:1)  C--     end of diagnostic k loop (Nr:1)
313          ENDDO          ENDDO
314    
315    #ifdef ALLOW_DIAGNOSTICS
316            IF ( usediagnostics .AND.
317         &       (useGMRedi .OR. ivdc_kappa.NE.0.) ) THEN
318              CALL fill_diagnostics (myThid, 'DRHODR  ', 0, Nr,
319         &         3, bi, bj, sigmaR)
320            ENDIF
321    #endif
322    
323  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
324  cph avoids recomputation of integrate_for_w  cph avoids recomputation of integrate_for_w
325  CADJ STORE wvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE wvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22