/[MITgcm]/MITgcm/lsopt/dgscale.F
ViewVC logotype

Diff of /MITgcm/lsopt/dgscale.F

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

revision 1.3 by heimbach, Wed Nov 19 19:07:02 2003 UTC revision 1.4 by heimbach, Thu Sep 9 15:51:26 2004 UTC
# Line 50  c--------------------------------------- Line 50  c---------------------------------------
50        do i = 1, nn        do i = 1, nn
51  cph(  cph(
52           if (diag(i).LE.0) then           if (diag(i).LE.0) then
53              print *, 'pathei-lsopt: in dgscale; diag = 0 for i=', i  cph            print *, 'pathei-lsopt: in dgscale; diag = 0 for i=', i
54              diag(i) = rmin              diag(i) = rmin
55           end if           end if
56  cph)  cph)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22