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

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

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

revision 1.2 by heimbach, Fri Jul 13 13:40:17 2001 UTC revision 1.3 by heimbach, Mon Aug 13 18:10:26 2001 UTC
# Line 13  C     == Global variables === Line 13  C     == Global variables ===
13  #include "EEPARAMS.h"  #include "EEPARAMS.h"
14  #include "PARAMS.h"  #include "PARAMS.h"
15  #include "FFIELDS.h"  #include "FFIELDS.h"
16    #include "DYNVARS.h"
17  #include "GRID.h"  #include "GRID.h"
18    
19  #include "ctrl.h"  #include "ctrl.h"
# Line 42  C     == Local variables == Line 43  C     == Local variables ==
43        character*( 80)   fnamehflux        character*( 80)   fnamehflux
44        character*( 80)   fnamesss        character*( 80)   fnamesss
45        character*( 80)   fnamesst        character*( 80)   fnamesst
       character*( 80)   fnamediffkr  
       character*( 80)   fnamekapgm  
46    
47  c     == external ==  c     == external ==
48    
# Line 178  c--   sst0. Line 177  c--   sst0.
177        enddo        enddo
178  #endif  #endif
179    
 #ifdef ALLOW_DIFFKR_CONTROL  
 c--   diffkr.  
       il=ilnblnk( xx_diffkr_file )  
       write(fnamediffkr(1:80),'(2a,i10.10)')  
      &     xx_diffkr_file(1:il),'.',optimcycle  
       call active_read_xyz( fnamediffkr, tmpfld3d, 1,  
      &                      doglobalread, ladinit, optimcycle,  
      &                      mythid, xx_diffkr_dummy )  
       do bj = jtlo,jthi  
         do bi = itlo,ithi  
           do k = 1,nr  
             do j = jmin,jmax  
               do i = imin,imax  
                 diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +  
      &                                tmpfld3d(i,j,k,bi,bj)  
               enddo  
             enddo  
           enddo  
        enddo  
       enddo  
 #endif  
   
 #ifdef ALLOW_KAPGM_CONTROL  
 c--   kapgm.  
       il=ilnblnk( xx_kapgm_file )  
       write(fnamekapgm(1:80),'(2a,i10.10)')  
      &     xx_kapgm_file(1:il),'.',optimcycle  
       call active_read_xyz( fnamekapgm, tmpfld3d, 1,  
      &                      doglobalread, ladinit, optimcycle,  
      &                      mythid, xx_kapgm_dummy )  
       do bj = jtlo,jthi  
         do bi = itlo,ithi  
           do k = 1,nr  
             do j = jmin,jmax  
               do i = imin,imax  
                 kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) +  
      &                               tmpfld3d(i,j,k,bi,bj)  
               enddo  
             enddo  
           enddo  
        enddo  
       enddo  
 #endif  
   
180        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22