/[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.48 by heimbach, Tue Jul 31 17:43:52 2012 UTC revision 1.49 by jmc, Fri Aug 10 19:38:57 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_OPTIONS.h"
5    
6  C--  File ctrl_init.F:  C--  File ctrl_init.F:
7  C--   Contents  C--   Contents
# Line 16  c     ================================== Line 16  c     ==================================
16  c     SUBROUTINE ctrl_init  c     SUBROUTINE ctrl_init
17  c     ==================================================================  c     ==================================================================
18  c  c
19  c     o The vector of control variables is defined here.  c     o The vector of control variables is defined here.
20  c  c
21  c     ==================================================================  c     ==================================================================
22  c     SUBROUTINE ctrl_init  c     SUBROUTINE ctrl_init
# Line 753  c-- Line 753  c--
753  #ifdef ALLOW_GENARR2D_CONTROL  #ifdef ALLOW_GENARR2D_CONTROL
754         do iarr = 1, maxCtrlArr2D         do iarr = 1, maxCtrlArr2D
755          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
756       &       xx_genarr2d_file(iarr)(1:MAX_LEN_FNAM),       &       xx_genarr2d_file(iarr)(1:MAX_LEN_FNAM),
757       &       100+iarr, 200+iarr, 1, 1, 1,       &       100+iarr, 200+iarr, 1, 1, 1,
758       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
759         enddo         enddo
# Line 764  c-- Line 764  c--
764  #ifdef ALLOW_GENARR3D_CONTROL  #ifdef ALLOW_GENARR3D_CONTROL
765         do iarr = 1, maxCtrlArr3D         do iarr = 1, maxCtrlArr3D
766          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
767       &       xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM),       &       xx_genarr3d_file(iarr)(1:MAX_LEN_FNAM),
768       &       200+iarr, 300+iarr, 1, 1, 1,       &       200+iarr, 300+iarr, 1, 1, 1,
769       &       snx, sny, nr, 'c', '3d', mythid )       &       snx, sny, nr, 'c', '3d', mythid )
770         enddo         enddo
# Line 895  c     == functions == Line 895  c     == functions ==
895         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
896       &      SQUEEZE_RIGHT , myThid )       &      SQUEEZE_RIGHT , myThid )
897        endif        endif
898          
899  c     initialise some output  c     initialise some output
900        do i = 1,4        do i = 1,4
901         fldstartdate(i) = 0         fldstartdate(i) = 0
# Line 933  c     This is the case of obcs. Line 933  c     This is the case of obcs.
933        diffrec  = endrec - startrec + 1        diffrec  = endrec - startrec + 1
934    
935        if ( debugLevel .GE. debLevB ) then        if ( debugLevel .GE. debLevB ) then
936         WRITE( msgBuf,'(A,A,A)')         WRITE( msgBuf,'(A,A,A)')
937       &      'CTRL_INIT_REC: Record indices for ',fldname(1:il),':'       &      'CTRL_INIT_REC: Record indices for ',fldname(1:il),':'
938         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
939       &      SQUEEZE_RIGHT , myThid )       &      SQUEEZE_RIGHT , myThid )
940         WRITE( msgBuf,'(A,I10,A,I10)')         WRITE( msgBuf,'(A,I10,A,I10)')
941       &      'CTRL_INIT_REC: startrec = ',startrec,', endrec = ',endrec       &      'CTRL_INIT_REC: startrec = ',startrec,', endrec = ',endrec
942         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
943       &      SQUEEZE_RIGHT , myThid )       &      SQUEEZE_RIGHT , myThid )
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22