/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

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

revision 1.28 by dfer, Tue Jan 15 19:56:27 2008 UTC revision 1.29 by gforget, Sat Feb 2 02:34:49 2008 UTC
# Line 1035  c-- Line 1035  c--
1035       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
1036  #endif /* ALLOW_sihsnow_CONTROL */  #endif /* ALLOW_sihsnow_CONTROL */
1037    
1038    
1039    c----------------------------------------------------------------------
1040    c--
1041    #ifdef ALLOW_KAPREDI_CONTROL
1042            call ctrl_init_ctrlvar (
1043         &       xx_kapredi_file, 44, 144, 1, 1, 1,
1044         &       snx, sny, nr, 'c', '3d', mythid )
1045    #endif /* ALLOW_KAPREDI_CONTROL */
1046    
1047  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1048  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1049    
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22