Changeset 1399 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_main.F90

Timestamp:

Jun 8, 2010, 10:29:11 AM (14 years ago)

Author:

idelkadi

Message:

Modifications relatives a l'inclusion des nouveaux nuages d'Arnaud Jam

• calltherm.F90 : remontee de variables suplementaires.

Passage de ztv, zpspsk, zthla, zthl en argument

• fisrtilp.F : le programme de nuages avec appel a cloudth

Ajout des arguments : zqta, fraca, ztv, zpspsk, ztla, ztlh,
iflag_cldcon

• physiq.F : appel modifie a calltherm et fisrtilp
• thermcell_main.F90 : changement dans les flag_thermals_ed
• thermcell_plume.F90 : version modifiee entrainement et detrainement

(on retrouve la precendente pour iflag_thermals_ed=10)

• cloudth.F90 : PDF d'eau bi-gaussiennes

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_main.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_main.F90

@@ -10 +10 @@
      &                  ,r_aspect,l_mix,tau_thermals,iflag_thermals_ed &
      &                  ,Ale_bl,Alp_bl,lalim_conv,wght_th &
-     &                  ,zmax0, f0,zw2,fraca)
+     &                  ,zmax0, f0,zw2,fraca,ztv &
+     &                  ,zpspsk,ztla,zthl)
 
       USE dimphy
@@ -389 +390 @@
 !      print*,'THERM thermcell_main iflag_thermals_ed=',iflag_thermals_ed
       if (iflag_thermals_ed<=9) then
-!         print*,'THERM NOVUELLE/NOUVELLE/ANCIENNE'
+!         print*,'THERM NOUVELLE/NOUVELLE Arnaud'
          CALL thermcell_plume(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,&
      &    zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
@@ -396 +397 @@
      &    ,lev_out,lunout1,igout)
 
-      elseif (iflag_thermals_ed<=19) then
+      elseif (iflag_thermals_ed>9) then
 !        print*,'THERM RIO et al 2010, version d Arnaud'
          CALL thermcellV1_plume(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,&