Ignore:
Timestamp:
Oct 27, 2016, 10:31:01 AM (8 years ago)
Author:
musat
Message:

Back to the last (2669) testing defined by Laurent

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

    r2685 r2687  
    1515  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    1616  USE print_control_mod, ONLY: prt_level, lunout
    17   USE cloudth_mod
    1817  IMPLICIT none
    1918  !======================================================================
     
    575574           if (iflag_cld_th>=5) then
    576575
    577               if (iflag_cloudth_vert.EQ.2) then
    578                call cloudth(klon,klev,k,ztv, &
     576              call cloudth(klon,klev,k,ztv, &
    579577                   zq,zqta,fraca, &
    580578                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
    581579                   ratqs,zqs,t)
    582               elseif (iflag_cloudth_vert.EQ.3) then
    583                call cloudth_v3(klon,klev,k,ztv, &
    584                    zq,zqta,fraca, &
    585                    qcloud,ctot,zpspsk,paprs,ztla,zthl, &
    586                    ratqs,zqs,t)
    587               endif
     580
    588581              do i=1,klon
    589582                 rneb(i,k)=ctot(i,k)
Note: See TracChangeset for help on using the changeset viewer.