/[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.11 by jmc, Fri Jul 16 01:20:57 2004 UTC revision 1.14 by heimbach, Mon Jan 2 21:17:02 2006 UTC
# Line 53  c     == global variables == Line 53  c     == global variables ==
53  #include "exf_param.h"  #include "exf_param.h"
54  #include "exf_constants.h"  #include "exf_constants.h"
55  #include "exf_fields.h"  #include "exf_fields.h"
56    #include "exf_clim_param.h"
57  #include "exf_clim_fields.h"  #include "exf_clim_fields.h"
58  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
59  # include "tamc.h"  # include "tamc.h"
# Line 67  c     mythid - thread number for this in Line 68  c     mythid - thread number for this in
68  c     == local variables ==  c     == local variables ==
69    
70        integer bi,bj        integer bi,bj
71        integer i,j        integer i,j,k
72        integer jtlo        integer jtlo
73        integer jthi        integer jthi
74        integer itlo        integer itlo
# Line 194  c             Short wave radiative flux. Line 195  c             Short wave radiative flux.
195               qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)               qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)
196              enddo              enddo
197            enddo            enddo
 C         net heat flux = heat flux (except SW) + SW flux.  
           do j = jmin,jmax  
             do i = imin,imax  
              qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + qsw(i,j,bi,bj)  
             enddo  
           enddo  
198  #endif  #endif
199    
200  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
# Line 245  c      _EXCH_XY_R4(    fv, mythid ) Line 240  c      _EXCH_XY_R4(    fv, mythid )
240  #ifdef ALLOW_CLIMSSS_RELAXATION  #ifdef ALLOW_CLIMSSS_RELAXATION
241        _EXCH_XY_R4(   sss, mythid )        _EXCH_XY_R4(   sss, mythid )
242  #endif  #endif
243    #ifdef ALLOW_CLIMTEMP_RELAXATION
244          _EXCH_XYZ_R4( thetaStar, mythid )
245    #endif
246    #ifdef ALLOW_CLIMSALT_RELAXATION
247          _EXCH_XYZ_R4( saltStar, mythid )
248    #endif
249  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
250        _EXCH_XY_R4( pload, mythid )        _EXCH_XY_R4( pload, mythid )
251  #endif  #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22