Changeset 3244 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Feb 29, 2024, 2:21:55 PM (10 months ago)
Author:
afalco
Message:

Pluto PCM:
Give priority to vdifc from pluto.old & fixed it.
AF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

    r3243 r3244  
    1616      use write_field_phy, only: Writefield_phy
    1717!!
    18       use ieee_arithmetic
    1918      use ioipsl_getin_p_mod, only: getin_p
    2019      use radinc_h, only : L_NSPECTI,L_NSPECTV,naerkind, corrkdir, banddir
     
    10431042         zflubid(1:ngrid)=fluxrad(1:ngrid)+fluxgrd(1:ngrid)
    10441043
    1045          ! JL12 the following if test is temporarily there to allow us to compare the old vdifc with turbdiff.
    1046          if (UseTurbDiff) then
    1047 
    1048             call turbdiff(ngrid,nlayer,nq,                  &
    1049                           ptimestep,capcal,                      &
    1050                           pplay,pplev,zzlay,zzlev,z0,            &
    1051                           pu,pv,pt,zpopsk,pq,tsurf,emis,qsurf,   &
    1052                           pdt,pdq,zflubid,                       &
    1053                           zdudif,zdvdif,zdtdif,zdtsdif,          &
    1054                           sensibFlux,q2,zdqdif,zdqevap,zdqsdif,  &
    1055                           taux,tauy)
    1056 
    1057          else  if (UseVdifcPlutold) then
     1044         if (UseVdifcPlutold) then
    10581045            zflubid(1:ngrid)=fluxrad(1:ngrid)+fluxgrd(1:ngrid)
     1046            zdum1(:,:) = 0
     1047            zdum2(:,:) = 0
     1048            zdh(:,:)=pdt(:,:)/zpopsk(:,:)
    10591049
    10601050            ! Calling vdif (Martian version WITH N2 condensation)
     
    10961086            !------------------------------------------------------------------
    10971087
    1098          else ! if (UseVdifcPlutold)
     1088         ! JL12 the following if test is temporarily there to allow us to compare the old vdifc with turbdiff.
     1089         else if (UseTurbDiff) then
     1090
     1091            call turbdiff(ngrid,nlayer,nq,                  &
     1092                          ptimestep,capcal,                      &
     1093                          pplay,pplev,zzlay,zzlev,z0,            &
     1094                          pu,pv,pt,zpopsk,pq,tsurf,emis,qsurf,   &
     1095                          pdt,pdq,zflubid,                       &
     1096                          zdudif,zdvdif,zdtdif,zdtsdif,          &
     1097                          sensibFlux,q2,zdqdif,zdqevap,zdqsdif,  &
     1098                          taux,tauy)
     1099
     1100         else ! if (UseVdifcPlutold) .and. (UseTurbDiff)
    10991101
    11001102            zdh(1:ngrid,1:nlayer)=pdt(1:ngrid,1:nlayer)/zpopsk(1:ngrid,1:nlayer)
Note: See TracChangeset for help on using the changeset viewer.