/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/optim_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/optim_readparms.F

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

revision 1.5 by mlosch, Fri Apr 27 09:50:46 2012 UTC revision 1.6 by mlosch, Fri Apr 27 13:58:14 2012 UTC
# Line 157  c     otherwise we (ab-)use the file ctr Line 157  c     otherwise we (ab-)use the file ctr
157        endif        endif
158        if ( optimcycle.eq.0 ) then        if ( optimcycle.eq.0 ) then
159         if ( fmin.le.0.0 ) then         if ( fmin.le.0.0 ) then
160          print*, ' OPTIM_READPARMS: fmin = ', fmin, ' should be > 0'          print '(A,E12.6,A)', ' OPTIM_READPARMS: fmin = ', fmin,
161         &       ' should be > 0'
162          stop 'S/R OPTIM_READPARMS: ABNORMAL END'          stop 'S/R OPTIM_READPARMS: ABNORMAL END'
163         endif         endif
164         if ( fmin.lt.ff ) then         if ( fmin.gt.ff ) then
165          print*, ' OPTIM_READPARMS: fmin = ', fmin,          print '(A,E12.6,A,E12.6)', ' OPTIM_READPARMS: fmin = ', fmin,
166       &       ' should be < ff = ', ff       &       ' should be < ff = ', ff
167          stop 'S/R OPTIM_READPARMS: ABNORMAL END'          stop 'S/R OPTIM_READPARMS: ABNORMAL END'
168         endif         endif
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22