/[MITgcm]/MITgcm/pkg/exf/exf_mapfields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_mapfields.F

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

revision 1.13 by heimbach, Tue Dec 13 19:46:46 2005 UTC revision 1.14 by heimbach, Mon Jan 2 21:17:02 2006 UTC
# Line 213  c             Short wave radiative flux. Line 213  c             Short wave radiative flux.
213            enddo            enddo
214  #endif  #endif
215    
 #ifdef ALLOW_CLIMTEMP_RELAXATION  
           if ( climtempfile .NE. ' ' ) then  
              do k = 1, Nr  
                 do j = jmin,jmax  
                    do i = imin,imax  
                       thetaStar(i,j,k,bi,bj)  = climtemp(i,j,k,bi,bj)  
                    enddo  
                 enddo  
              enddo  
           endif  
 #endif  
   
 #ifdef ALLOW_CLIMSALT_RELAXATION  
           if ( climsaltfile .NE. ' ' ) then  
              do k = 1, Nr  
                 do j = jmin,jmax  
                    do i = imin,imax  
                       saltStar(i,j,k,bi,bj)  = climsalt(i,j,k,bi,bj)  
                    enddo  
                 enddo  
              enddo  
           endif  
 #endif  
   
216  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
217            do j = jmin,jmax            do j = jmin,jmax
218              do i = imin,imax              do i = imin,imax
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22