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

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

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

revision 1.1 by heimbach, Thu Oct 30 19:09:05 2003 UTC revision 1.2 by heimbach, Mon Nov 17 22:32:33 2003 UTC
# Line 62  c     == local variables == Line 62  c     == local variables ==
62        integer optimcycle        integer optimcycle
63  #endif  #endif
64        character*( 80) fname(2)        character*( 80) fname(2)
65          logical  exst
66    
67  #ifndef ALLOW_ECCO_OPTIMIZATION  #ifndef ALLOW_ECCO_OPTIMIZATION
68        optimcycle = 0        optimcycle = 0
# Line 80  c     == local variables == Line 81  c     == local variables ==
81    
82        call ctrl_set_fname( xx_fname, fname, mythid )        call ctrl_set_fname( xx_fname, fname, mythid )
83    
84        if ( whichxyz .EQ. '3d') then        inquire( file='costfinal', exist=exst )
85           call ctrl_set_globfld_xyz( fname(2), ivarindex, mythid)        IF ( .NOT. exst) THEN
86           if (optimcycle .eq. 0)  
87       &        call ctrl_set_globfld_xyz( fname(1), ivarindex, mythid )           if ( whichxyz .EQ. '3d') then
88        else if ( whichxyz .EQ. 'xy') then              call ctrl_set_globfld_xyz( fname(2), ivarindex, mythid)
89           call ctrl_set_globfld_xy( fname(2), ivarindex, mythid)              if (optimcycle .eq. 0)
90           if (optimcycle .eq. 0)       &           call ctrl_set_globfld_xyz( fname(1), ivarindex, mythid)
91       &        call ctrl_set_globfld_xy( fname(1), ivarindex, mythid )           else if ( whichxyz .EQ. 'xy') then
92        else if ( whichxyz .EQ. 'xz') then              call ctrl_set_globfld_xy( fname(2), ivarindex, mythid)
93           call ctrl_set_globfld_xz( fname(2), ivarindex, mythid)              if (optimcycle .eq. 0)
94           if (optimcycle .eq. 0)       &           call ctrl_set_globfld_xy( fname(1), ivarindex, mythid )
95       &        call ctrl_set_globfld_xz( fname(1), ivarindex, mythid )           else if ( whichxyz .EQ. 'xz') then
96        else if ( whichxyz .EQ. 'yz') then              call ctrl_set_globfld_xz( fname(2), ivarindex, mythid)
97           call ctrl_set_globfld_yz( fname(2), ivarindex, mythid)              if (optimcycle .eq. 0)
98           if (optimcycle .eq. 0)       &           call ctrl_set_globfld_xz( fname(1), ivarindex, mythid )
99       &        call ctrl_set_globfld_yz( fname(1), ivarindex, mythid )           else if ( whichxyz .EQ. 'yz') then
100        else              call ctrl_set_globfld_yz( fname(2), ivarindex, mythid)
101           STOP 'whichxyz option not implemented'              if (optimcycle .eq. 0)
102        end if       &           call ctrl_set_globfld_yz( fname(1), ivarindex, mythid )
103             else
104                STOP 'whichxyz option not implemented'
105             end if
106    
107          ENDIF
108    
109        _END_MASTER( mythid )        _END_MASTER( mythid )
110    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22