/[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.27 by heimbach, Thu Sep 6 14:04:28 2007 UTC revision 1.28 by dfer, Tue Jan 15 19:56:27 2008 UTC
# Line 680  c-- Line 680  c--
680    
681  c----------------------------------------------------------------------  c----------------------------------------------------------------------
682  c--  c--
683    #ifdef ALLOW_HFLUXM_CONTROL
684            call ctrl_init_ctrlvar (
685         &       xx_hfluxm_file, 24, 124, 1, 1, 1,
686         &       snx, sny, 1, 'c', 'xy', mythid )
687    #endif /* ALLOW_HFLUXM_CONTROL */
688    
689    c----------------------------------------------------------------------
690    c--
691  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDTAUX_CONTROL
692          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
693       &       xx_edtaux_file, 25, 125, 1, 1, 1,       &       xx_edtaux_file, 25, 125, 1, 1, 1,
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22