/[lmdze]/trunk/phylmd/CV_routines/cv_trigger.f
ViewVC logotype

Contents of /trunk/phylmd/CV_routines/cv_trigger.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 97 - (show annotations)
Fri Apr 25 14:58:31 2014 UTC (10 years, 1 month ago) by guez
File size: 751 byte(s)
Module pressure_var is now only used in gcm. Created local variables
pls and p3d in etat0, added argument p3d to regr_pr_o3.

In leapfrog, moved computation of p3d and exner function immediately
after integrd, for clarity (does not change the execution).

Removed unused arguments: ntra, tra1 and tra of cv3_compress; ntra,
tra and traent of cv3_mixing; ntra, ftra, ftra1 of cv3_uncompress;
ntra, tra, trap of cv3_unsat; ntra, tra, trap, traent, ftra of
cv3_yield; tra, tvp, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt,
dplcldr, ntra of concvl; ndp1, ntra, tra1 of cv_driver

Removed argument d_tra and computation of d_tra in concvl. Removed
argument ftra1 and computation of ftra1 in cv_driver. ftra1 was just
set to 0 in cv_driver, associated to d_tra in concvl, and set again to
zero in concvl.

1
2 SUBROUTINE cv_trigger(len,nd,icb,cbmf,tv,tvp,iflag)
3 use cvparam
4 implicit none
5
6 !-------------------------------------------------------------------
7 ! --- Test for instability.
8 ! --- If there was no convection at last time step and parcel
9 ! --- is stable at icb, then set iflag to 4.
10 !-------------------------------------------------------------------
11
12
13 ! inputs:
14 integer, intent(in):: len, nd, icb(len)
15 real cbmf(len), tv(len,nd), tvp(len,nd)
16
17 ! outputs:
18 integer iflag(len) ! also an input
19
20 ! local variables:
21 integer i
22
23
24 do 390 i=1,len
25 if((cbmf(i).eq.0.0) .and.(iflag(i).eq.0).and. &
26 (tvp(i,icb(i)).le.(tv(i,icb(i))-dtmax)))iflag(i)=4
27 390 continue
28
29 return
30 end

  ViewVC Help
Powered by ViewVC 1.1.21