/[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.23 by molod, Sat May 21 23:50:13 2005 UTC revision 1.25 by ce107, Fri Jun 17 16:51:24 2005 UTC
# Line 97  c -------------------------------------- Line 97  c --------------------------------------
97          do L =1,lm          do L =1,lm
98          do j =1,jm          do j =1,jm
99          do i =1,im          do i =1,im
100           cldtot(i,j,L)=min(1.0,max(cldlw(i,j,L),fccave(i,j,L)/imstturb))             cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/
101           cldmxo(i,j,L) =  min( 1.0 ,      clwmo(i,j,L) )       $          imstturb))
102               cldmxo(i,j,L) =  min( 1.0 _d 0,      clwmo(i,j,L) )
103             lwlz(i,j,L) =  lwlz(i,j,L) + qliqave(i,j,L)/imstturb             lwlz(i,j,L) =  lwlz(i,j,L) + qliqave(i,j,L)/imstturb
104          enddo          enddo
105          enddo          enddo
# Line 107  c -------------------------------------- Line 108  c --------------------------------------
108          do L =1,lm          do L =1,lm
109          do j =1,jm          do j =1,jm
110          do i =1,im          do i =1,im
111           cldtot(i,j,L) =  min( 1.0,cldlw(i,j,L) )           cldtot(i,j,L) =  min( 1.0 _d 0,cldlw(i,j,L) )
112           cldmxo(i,j,L) =  min( 1.0,clwmo(i,j,L) )           cldmxo(i,j,L) =  min( 1.0 _d 0,clwmo(i,j,L) )
113          enddo          enddo
114          enddo          enddo
115          enddo          enddo
# Line 151  C -------------- Line 152  C --------------
152         IF(NLWCLD.NE.0)THEN         IF(NLWCLD.NE.0)THEN
153         DO L = 1,lm         DO L = 1,lm
154         DO I = 1,ISTRIP         DO I = 1,ISTRIP
155          CLRO(I,L) = min( 1.0,clro(i,L) )          CLRO(I,L) = min( 1.0 _d 0,clro(i,L) )
156          CLMO(I,L) = min( 1.0,clmo(i,L) )          CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) )
157         ENDDO         ENDDO
158         ENDDO         ENDDO
159         ENDIF         ENDIF
# Line 1096  c     to 0.54 and 0.95, respectively. Line 1097  c     to 0.54 and 0.95, respectively.
1097    
1098            if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then            if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then
1099    
1100             reff1=min(reff(i,j,k,1),130.)             reff1=min(reff(i,j,k,1),130. _d 0)
1101             reff2=min(reff(i,j,k,2),20.0)             reff2=min(reff(i,j,k,2),20.0 _d 0)
1102    
1103             w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib)             w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib)
1104       *       +aiw(4,ib)*reff1)*reff1)*reff1)       *       +aiw(4,ib)*reff1)*reff1)*reff1)
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22