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

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

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

revision 1.13 by heimbach, Fri Sep 17 23:02:01 2004 UTC revision 1.14 by heimbach, Tue Nov 16 05:42:12 2004 UTC
# Line 63  c     == local variables == Line 63  c     == local variables ==
63        character*( 80)   fnameefluxy        character*( 80)   fnameefluxy
64        character*( 80)   fnameefluxp        character*( 80)   fnameefluxp
65        character*( 80)   fnamebottomdrag        character*( 80)   fnamebottomdrag
66          character*( 80)   fnamesss
67          character*( 80)   fnamesst
68    
69        _RL     fac        _RL     fac
70        _RL tmptest        _RL tmptest
# Line 181  c--   Temperature field. Line 183  c--   Temperature field.
183  #endif  #endif
184  #endif  #endif
185    
186    #ifdef ALLOW_SST0_CONTROL
187    c--   sst0.
188          il=ilnblnk( xx_sst_file )
189          write(fnamesst(1:80),'(2a,i10.10)')
190         &     xx_sst_file(1:il),'.',optimcycle
191          call active_read_xy_loc ( fnamesst, tmpfld2d, 1,
192         &                      doglobalread, ladinit, optimcycle,
193         &                      mythid, xx_sst_dummy )
194          do bj = jtlo,jthi
195            do bi = itlo,ithi
196              do j = jmin,jmax
197                do i = imin,imax
198    cph              sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
199                  theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
200         &                             + tmpfld2d(i,j,bi,bj)
201                enddo
202              enddo
203            enddo
204          enddo
205    #endif
206    
207    #ifdef ALLOW_SSS0_CONTROL
208    c--   sss0.
209          il=ilnblnk( xx_sss_file )
210          write(fnamesss(1:80),'(2a,i10.10)')
211         &     xx_sss_file(1:il),'.',optimcycle
212          call active_read_xy_loc ( fnamesss, tmpfld2d, 1,
213         &                      doglobalread, ladinit, optimcycle,
214         &                      mythid, xx_sss_dummy )
215          do bj = jtlo,jthi
216            do bi = itlo,ithi
217              do j = jmin,jmax
218                do i = imin,imax
219    cph              sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
220                  salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
221         &                             + tmpfld2d(i,j,bi,bj)
222                enddo
223              enddo
224            enddo
225          enddo
226    #endif
227    
228  #ifdef ALLOW_DIFFKR_CONTROL  #ifdef ALLOW_DIFFKR_CONTROL
229  c--   diffkr.  c--   diffkr.
230        il=ilnblnk( xx_diffkr_file )        il=ilnblnk( xx_diffkr_file )
# Line 304  c--   bottom drag Line 348  c--   bottom drag
348    
349  c--   Update the tile edges.  c--   Update the tile edges.
350    
351  #ifdef ALLOW_THETA0_CONTROL  #if (defined (ALLOW_THETA0_CONTROL) || defined (ALLOW_SST0_CONTROL))
352        _EXCH_XYZ_R8( theta, mythid )        _EXCH_XYZ_R8( theta, mythid )
353  #endif  #endif
354  #ifdef ALLOW_SALT0_CONTROL  #if (defined (ALLOW_SALT0_CONTROL) || defined (ALLOW_SSS0_CONTROL))
355        _EXCH_XYZ_R8(  salt, mythid )        _EXCH_XYZ_R8(  salt, mythid )
356  #endif  #endif
357  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22