/[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.20 by heimbach, Wed Aug 31 00:03:30 2005 UTC revision 1.21 by heimbach, Thu Jan 5 17:05:42 2006 UTC
# Line 82  c     == routine arguments == Line 82  c     == routine arguments ==
82    
83  c     == local variables ==  c     == local variables ==
84    
85          integer bi,bj
86          integer i,j,k
87          integer itlo,ithi
88          integer jtlo,jthi
89          integer jmin,jmax
90          integer imin,imax
91    
92        integer ntmp        integer ntmp
93        integer ivar        integer ivar
   
94        integer iobcs        integer iobcs
95        integer il        integer il
96        integer errio        integer errio
# Line 105  c     == external == Line 111  c     == external ==
111    
112  c     == end of interface ==  c     == end of interface ==
113    
114          jtlo = mybylo(mythid)
115          jthi = mybyhi(mythid)
116          itlo = mybxlo(mythid)
117          ithi = mybxhi(mythid)
118          jmin = 1-oly
119          jmax = sny+oly
120          imin = 1-olx
121          imax = snx+olx
122    
123  c--     Set default values.  c--     Set default values.
124        do ivar = 1,maxcvars        do ivar = 1,maxcvars
125           ncvarindex(ivar) = -1           ncvarindex(ivar) = -1
# Line 746  c--   Atmos. swdown Line 761  c--   Atmos. swdown
761    
762  c----------------------------------------------------------------------  c----------------------------------------------------------------------
763  c----------------------------------------------------------------------  c----------------------------------------------------------------------
 c----------------------------------------------------------------------  
764    
765          call ctrl_init_wet( mythid )          call ctrl_init_wet( mythid )
766            
767    c----------------------------------------------------------------------
768    c----------------------------------------------------------------------
769    
770          do bj = jtlo,jthi
771            do bi = itlo,ithi
772              do j = jmin,jmax
773                do i = imin,imax
774                  wareaunit (i,j,bi,bj) = 1.0
775    #ifndef ALLOW_ECCO
776                  whflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
777                  wsflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
778                  wtauu     (i,j,bi,bj) = maskW(i,j,1,bi,bj)
779                  wtauv     (i,j,bi,bj) = maskS(i,j,1,bi,bj)
780                  watemp    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
781                  waqh      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
782                  wprecip   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
783                  wswflux   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
784                  wswdown   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
785                  wuwind    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
786                  wvwind    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
787                  wsst      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
788                  wsss      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
789    #endif
790                enddo
791              enddo
792            enddo
793          enddo
794    
795        return        return
796        end        end
797    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22