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

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

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

revision 1.38 by mlosch, Tue May 10 07:30:15 2011 UTC revision 1.39 by jmc, Tue May 24 22:02:22 2011 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "PACKAGES_CONFIG.h"  
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
5    
6        subroutine ctrl_pack( first, mythid )        subroutine ctrl_pack( first, mythid )
# Line 18  c Line 17  c
17  c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000  c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
18  c              - Transferred some filename declarations  c              - Transferred some filename declarations
19  c                from here to namelist in ctrl_init  c                from here to namelist in ctrl_init
20  c    c
21  c              Patrick Heimbach heimbach@mit.edu 16-Jun-2000  c              Patrick Heimbach heimbach@mit.edu 16-Jun-2000
22  c              - single file name convention with or without  c              - single file name convention with or without
23  c                ALLOW_ECCO_OPTIMIZATION  c                ALLOW_ECCO_OPTIMIZATION
# Line 75  c     == local variables == Line 74  c     == local variables ==
74        logical ladinit        logical ladinit
75        integer cbuffindex        integer cbuffindex
76        logical lxxadxx        logical lxxadxx
77          
78        integer cunit        integer cunit
79        integer ictrlgrad        integer ictrlgrad
80    
# Line 162  c     >>> Initialise control vector for Line 161  c     >>> Initialise control vector for
161            ictrlgrad = 1            ictrlgrad = 1
162            fcloc     = fmin            fcloc     = fmin
163            write(cfile(1:128),'(4a,i4.4)')            write(cfile(1:128),'(4a,i4.4)')
164       &         ctrlname(1:9),'_',yctrlid(1:10),       &         ctrlname(1:9),'_',yctrlid(1:10),
165       &         yctrlpospack, optimcycle       &         yctrlpospack, optimcycle
166            print *, 'ph-pack: packing ', ctrlname(1:9)            print *, 'ph-pack: packing ', ctrlname(1:9)
167        else        else
# Line 171  c     >>> Write gradient vector <<< Line 170  c     >>> Write gradient vector <<<
170            ictrlgrad = 2            ictrlgrad = 2
171            fcloc     = fc            fcloc     = fc
172            write(cfile(1:128),'(4a,i4.4)')            write(cfile(1:128),'(4a,i4.4)')
173       &         costname(1:9),'_',yctrlid(1:10),       &         costname(1:9),'_',yctrlid(1:10),
174       &         yctrlpospack, optimcycle       &         yctrlpospack, optimcycle
175            print *, 'ph-pack: packing ', costname(1:9)            print *, 'ph-pack: packing ', costname(1:9)
176         endif         endif
# Line 628  c          write(cunit) nWetiGlobal(1) Line 627  c          write(cunit) nWetiGlobal(1)
627  #endif  #endif
628    
629  #ifdef ALLOW_KAPREDI_CONTROL  #ifdef ALLOW_KAPREDI_CONTROL
630            ivartype = 44            ivartype = 44
631            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
632            write(weighttype(1:80),'(a)') "wkapredi"            write(weighttype(1:80),'(a)') "wkapredi"
633            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
# Line 651  c          write(cunit) nWetiGlobal(1) Line 650  c          write(cunit) nWetiGlobal(1)
650  #endif  #endif
651    
652         close ( cunit )         close ( cunit )
653         ENDIF !IF ( myProcId .eq. 0 )         ENDIF !IF ( myProcId .eq. 0 )
654         _END_MASTER( mythid )         _END_MASTER( mythid )
655        _BARRIER        _BARRIER
656  #endif /* EXCLUDE_CTRL_PACK */  #endif /* EXCLUDE_CTRL_PACK */
657    
658        return        return
659        end        end
   
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22