Changeset 3603


Ignore:
Timestamp:
Nov 19, 2019, 5:15:25 PM (4 years ago)
Author:
musat
Message:

flag_wb needs to be real for this branch

Location:
LMDZ6/branches/LMDZ-QUEST/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ-QUEST/libf/phylmd/cv3p1_closure.F90

    r2826 r3603  
    537537    ELSE
    538538      ! Calculate wbeff
    539       IF (flag_wb==0) THEN
     539      IF (NINT(flag_wb)==0) THEN
    540540        wbeff(il) = wbmax
    541       ELSE IF (flag_wb==1) THEN
     541      ELSE IF (NINT(flag_wb)==1) THEN
    542542        wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
    543       ELSE IF (flag_wb==2) THEN
     543      ELSE IF (NINT(flag_wb)==2) THEN
    544544        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
    545545      ELSE ! Option provisoire ou le iflag_wb/10 est considere comme une vitesse

  • LMDZ6/branches/LMDZ-QUEST/libf/phylmd/cv3p2_closure.F90

    r2502 r3603  
    608608    ELSE
    609609      ! Calculate wbeff
    610       IF (flag_wb==0) THEN
     610      IF (NINT(flag_wb)==0) THEN
    611611        wbeff(il) = wbmax
    612       ELSE IF (flag_wb==1) THEN
     612      ELSE IF (NINT(flag_wb)==1) THEN
    613613        wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
    614       ELSE IF (flag_wb==2) THEN
     614      ELSE IF (NINT(flag_wb)==2) THEN
    615615        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
    616616      END IF

  • LMDZ6/branches/LMDZ-QUEST/libf/phylmd/cv3param.h

    r2905 r3603  
    1414      integer noff, minorig, nl, nlp, nlm
    1515      integer cv_flag_feed
    16       integer flag_epKEorig,flag_wb
     16      integer flag_epKEorig
     17      real flag_wb
    1718      real sigdz, spfac
    1819      real pbcrit, ptcrit
Note: See TracChangeset for help on using the changeset viewer.