/[MITgcm]/MITgcm/pkg/fizhi/fizhi_lwrad.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_lwrad.F

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

revision 1.21 by molod, Mon Feb 7 20:35:36 2005 UTC revision 1.22 by molod, Mon May 16 18:50:31 2005 UTC
# Line 72  c --------------- Line 72  c ---------------
72    
73        _RL tmpstrip(istrip,lm)        _RL tmpstrip(istrip,lm)
74        _RL tmpimjm(im,jm,lm)        _RL tmpimjm(im,jm,lm)
75        _RL tempor(im,jm)        _RL tempor1(im,jm),tempor2(im,jm)
76    
77        _RL getcon,secday,convrt        _RL getcon,secday,convrt
78    
# Line 250  C ************************************** Line 250  C **************************************
250  C ****            PASTE AND BUMP SOME DIAGNOSTICS                   ****  C ****            PASTE AND BUMP SOME DIAGNOSTICS                   ****
251  C **********************************************************************  C **********************************************************************
252    
253        CALL PASTE(flx(1,1),tempor,ISTRIP,im*jm,1,NN)        CALL PASTE(flx(1,1),tempor1,ISTRIP,im*jm,1,NN)
254          CALL PASTE(flxclr(1,1),tempor2,ISTRIP,im*jm,1,NN)
 c     IF(IOLR.GT.0)CALL PSTBMP(flx(1,1),QDIAG(1,1,IOLR,bi,bj),ISTRIP,  
 c    .                                                      im*jm, 1,NN)  
 c     IF(IOLRCLR.GT.0)CALL PSTBMP(flxclr(1,1),QDIAG(1,1,IOLRCLR,bi,bj),  
 c    .                                                ISTRIP,im*jm,1,NN)  
 c     IF(IOZLW.GT.0)CALL PSTBMP(OZL(1,1),QDIAG(1,1,IOZLW,bi,bj),ISTRIP,  
 c    .                                                      im*jm,lm,NN)  
255    
256  C **********************************************************************  C **********************************************************************
257  C ****                 TENDENCY UPDATES                             ****  C ****                 TENDENCY UPDATES                             ****
# Line 311  C ************************************** Line 305  C **************************************
305        enddo        enddo
306        endif        endif
307    
308  c     if (iudiag4.ne.0) then        if (iozlw.ne.0) then
309  c     do L = 1,lm        do L = 1,lm
310  c     do j = 1,jm        do j = 1,jm
311  c     do i = 1,im        do i = 1,im
312  c     qdiag(i,j,iudiag4+L-1,bi,bj) = qdiag(i,j,iudiag4+L-1,bi,bj) +        qdiag(i,j,iozlw+L-1,bi,bj) = qdiag(i,j,iozlw+L-1,bi,bj) +
313  c    .  tmpimjm(i,j,L)       .                                             oz(i,j,L)
314  c     enddo        enddo
315  c     enddo        enddo
316  c     enddo        enddo
317  c     endif        endif
318    
319        if (iolr.ne.0) then        if (iolr.ne.0) then
320        do j = 1,jm        do j = 1,jm
321        do i = 1,im        do i = 1,im
322        qdiag(i,j,iolr,bi,bj) = qdiag(i,j,iolr,bi,bj) + tempor(i,j)        qdiag(i,j,iolr,bi,bj) = qdiag(i,j,iolr,bi,bj) + tempor1(i,j)
323          enddo
324          enddo
325          endif
326    
327          if (iolrclr.ne.0) then
328          do j = 1,jm
329          do i = 1,im
330          qdiag(i,j,iolrclr,bi,bj) = qdiag(i,j,iolrclr,bi,bj) + tempor2(i,j)
331        enddo        enddo
332        enddo        enddo
333        endif        endif
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22