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

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

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

revision 1.4 by gforget, Fri Jan 23 18:57:44 2015 UTC revision 1.5 by heimbach, Tue Feb 17 13:54:21 2015 UTC
# Line 22  C     !USES: Line 22  C     !USES:
22        IMPLICIT NONE        IMPLICIT NONE
23    
24  C     == global variables ==  C     == global variables ==
 #ifndef ALLOW_OPENAD  
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
# Line 41  C     == global variables == Line 40  C     == global variables ==
40  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
41  #include "tamc.h"  #include "tamc.h"
42  #endif  #endif
 #endif  
43    
44  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
45  C     == routine arguments ==  C     == routine arguments ==
46        INTEGER myThid        INTEGER myThid
47    
 #ifndef ALLOW_OPENAD  
48  #ifdef ALLOW_GENTIM2D_CONTROL  #ifdef ALLOW_GENTIM2D_CONTROL
49  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
50  C     == local variables ==  C     == local variables ==
# Line 55  C     == local variables == Line 52  C     == local variables ==
52        integer smoothOpNb        integer smoothOpNb
53        character*(80) fnamegenIn        character*(80) fnamegenIn
54        character*(80) fnamegenOut        character*(80) fnamegenOut
55          character*(80) fnamebase
56          character*(80) fnamegeneric
57        integer startrec        integer startrec
58        integer endrec        integer endrec
59        integer diffrec        integer diffrec
# Line 82  C--   generic 2D control variables Line 81  C--   generic 2D control variables
81         startrec=0         startrec=0
82         endrec=0         endrec=0
83    
84    #ifndef ALLOW_OPENAD
85         if (xx_gentim2d_weight(iarr).NE.' ') then         if (xx_gentim2d_weight(iarr).NE.' ') then
86    #endif
87    
88          call ctrl_init_rec ( xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM),          fnamebase = xx_gentim2d_file(iarr)
89            call ctrl_init_rec ( fnamebase,
90       I       xx_gentim2d_startdate1(iarr),       I       xx_gentim2d_startdate1(iarr),
91       I       xx_gentim2d_startdate2(iarr),       I       xx_gentim2d_startdate2(iarr),
92       I       xx_gentim2d_period(iarr),       I       xx_gentim2d_period(iarr),
# Line 93  C--   generic 2D control variables Line 95  C--   generic 2D control variables
95       O       diffrec, startrec, endrec,       O       diffrec, startrec, endrec,
96       I       myThid )       I       myThid )
97    
98          ilgen=ilnblnk( xx_gentim2d_file(iarr) )          fnamebase = xx_gentim2d_file(iarr)
99            ilgen=ilnblnk( fnamebase )
100          write(fnamegenIn(1:80),'(2a,i10.10)')          write(fnamegenIn(1:80),'(2a,i10.10)')
101       &       xx_gentim2d_file(iarr)(1:ilgen), '.', optimcycle       &       fnamebase(1:ilgen),'.',optimcycle
102          write(fnamegenOut(1:80),'(2a,i10.10)')          write(fnamegenOut(1:80),'(2a,i10.10)')
103       &       xx_gentim2d_file(iarr)(1:ilgen),'.effective.',optimcycle       &       fnamebase(1:ilgen),'.effective.',optimcycle
104    
105          smoothOpNb=1          smoothOpNb=1
106          do k2 = 1, maxCtrlProc          do k2 = 1, maxCtrlProc
# Line 132  CADJ STORE xx_gentim2d_dummy = ctrltape, Line 135  CADJ STORE xx_gentim2d_dummy = ctrltape,
135       &                       doglobalread, ladinit, optimcycle,       &                       doglobalread, ladinit, optimcycle,
136       &                       mythid, xx_gentim2d_dummy(iarr) )       &                       mythid, xx_gentim2d_dummy(iarr) )
137    
138    #ifndef ALLOW_OPENAD
139          do k2 = 1, maxCtrlProc          do k2 = 1, maxCtrlProc
140           if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight')           if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight')
141       &     call mdsreadfield( xx_gentim2d_weight(iarr), ctrlprec, 'RL',       &     call mdsreadfield( xx_gentim2d_weight(iarr), ctrlprec, 'RL',
142       &     1, wgentim2d(1-Olx,1-Oly,1,1,iarr), irec, myThid )       &     1, wgentim2d(1-Olx,1-Oly,1,1,iarr), irec, myThid )
143          enddo          enddo
144    #endif
145    
146  #ifdef ALLOW_SMOOTH  #ifdef ALLOW_SMOOTH
147           IF ( ctrlSmoothCorrel2D ) THEN           IF ( ctrlSmoothCorrel2D ) THEN
# Line 186  CADJ STORE xx_gentim2d_dummy = ctrltape, Line 191  CADJ STORE xx_gentim2d_dummy = ctrltape,
191          ENDDO          ENDDO
192          ENDDO          ENDDO
193    
194    #ifndef ALLOW_OPENAD
195         endif         endif
196    #endif
197    
198  c-- end iarr loop  c-- end iarr loop
199        ENDDO        ENDDO
200    
201  #endif /* ALLOW_GENTIM2D_CONTROL */  #endif /* ALLOW_GENTIM2D_CONTROL */
 #endif /* ALLOW_OPENAD */  
202    
203        RETURN        RETURN
204        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22