Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/fisrtilp.F90
- Timestamp:
- Nov 21, 2019, 4:43:45 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/phylmd/fisrtilp.F90
r2969 r3605 740 740 call cloudth(klon,klev,k,ztv, & 741 741 zq,zqta,fraca, & 742 qcloud,ctot,zpspsk,paprs, ztla,zthl, &742 qcloud,ctot,zpspsk,paprs,pplay,ztla,zthl, & 743 743 ratqs,zqs,t) 744 elseif (iflag_cloudth_vert>=3 ) then744 elseif (iflag_cloudth_vert>=3 .and. iflag_cloudth_vert<=5) then 745 745 call cloudth_v3(klon,klev,k,ztv, & 746 746 zq,zqta,fraca, & 747 qcloud,ctot,ctot_vol,zpspsk,paprs, ztla,zthl, &747 qcloud,ctot,ctot_vol,zpspsk,paprs,pplay,ztla,zthl, & 748 748 ratqs,zqs,t) 749 !---------------------------------- 750 !Version these Jean Jouhaud, Decembre 2018 751 !---------------------------------- 752 elseif (iflag_cloudth_vert==6) then 753 call cloudth_v6(klon,klev,k,ztv, & 754 zq,zqta,fraca, & 755 qcloud,ctot,ctot_vol,zpspsk,paprs,pplay,ztla,zthl, & 756 ratqs,zqs,t) 757 749 758 endif 750 759 do i=1,klon
Note: See TracChangeset
for help on using the changeset viewer.