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

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

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

revision 1.36 by jmc, Fri Apr 4 21:39:56 2014 UTC revision 1.37 by heimbach, Mon Apr 28 20:47:12 2014 UTC
# Line 315  c--   == end of interface == Line 315  c--   == end of interface ==
315  #endif /* ALLOW_KAPGM_CONTROL */  #endif /* ALLOW_KAPGM_CONTROL */
316    
317  #ifdef ALLOW_KAPREDI_CONTROL  #ifdef ALLOW_KAPREDI_CONTROL
318        else if ( grdchkvarindex .eq. 16 ) then        else if ( grdchkvarindex .eq. 44 ) then
319           il=ilnblnk( xx_kapredi_file )           il=ilnblnk( xx_kapredi_file )
320           if ( theSimulationMode .EQ. TANGENT_SIMULATION ) then           if ( theSimulationMode .EQ. TANGENT_SIMULATION ) then
321              write(fname(1:80),'(3a,i10.10)')              write(fname(1:80),'(3a,i10.10)')
# Line 679  ce      --> this index does not exist ye Line 679  ce      --> this index does not exist ye
679       &     grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR.       &     grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR.
680       &     grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR.       &     grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR.
681       &     grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR.       &     grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR.
682       &     grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31       &     grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR.
683         &     grdchkvarindex.EQ.44
684  #ifdef ALLOW_GENARR3D_CONTROL  #ifdef ALLOW_GENARR3D_CONTROL
685       &     .OR. ( grdchkvarindex .ge. 201 .and.       &     .OR. ( grdchkvarindex .ge. 201 .and.
686       &     grdchkvarindex .le. 200+maxCtrlArr3D )       &     grdchkvarindex .le. 200+maxCtrlArr3D )
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22