/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_trigger.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_trigger.f

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

trunk/libf/phylmd/CV3_routines/cv3_trigger.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC trunk/phylmd/CV3_routines/cv3_trigger.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 1  Line 1 
1    
2        SUBROUTINE cv3_trigger(len,nd,icb,plcl,p,th,tv,tvp &        SUBROUTINE cv3_trigger(len,nd,icb,plcl,p,th,tv,tvp &
3                        ,pbase,buoybase,iflag,sig,w0)                        ,pbase,buoybase,iflag,sig,w0)
4              use cvparam3              use cv3_param_m
5        implicit none        implicit none
6    
7  !-------------------------------------------------------------------  !-------------------------------------------------------------------
# Line 31  Line 31 
31    
32  ! input AND output:  ! input AND output:
33        integer iflag(len)        integer iflag(len)
34        real sig(len,nd), w0(len,nd)        real, intent(inout):: sig(len,nd), w0(len,nd)
35    
36  ! local variables:  ! local variables:
37        integer i,k        integer i,k
# Line 61  Line 61 
61  !   ***                        sig(i) and w0(i)                       ***  !   ***                        sig(i) and w0(i)                       ***
62  !  !
63    
 ! oct3      do 200 i=1,len  
 ! oct3  
 ! oct3       tdif = buoybase(i)  
 ! oct3       ath1 = th(i,1)  
 ! oct3       ath  = th(i,icb(i)-1) - dttrig  
 ! oct3  
 ! oct3       if (tdif.lt.dtcrit .or. ath.gt.ath1) then  
 ! oct3         do 60 k=1,nl  
 ! oct3            sig(i,k) = beta*sig(i,k) - 2.*alpha*tdif*tdif  
 ! oct3            sig(i,k) = AMAX1(sig(i,k),0.0)  
 ! oct3            w0(i,k)  = beta*w0(i,k)  
 ! oct3   60    continue  
 ! oct3         iflag(i)=4 ! pour version vectorisee  
 ! oct3c convect3         iflag(i)=0  
 ! oct3cccc         return  
 ! oct3       endif  
 ! oct3  
 ! oct3200   continue  
   
 ! -- oct3: on reecrit la boucle 200 (pour la vectorisation)  
   
64        do  60 k=1,nl        do  60 k=1,nl
65        do 200 i=1,len        do 200 i=1,len
66    
Legend:
Removed from v.47  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21