Changeset 4684 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Sep 11, 2023, 3:18:47 PM (13 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90
r4682 r4684 8 8 subroutine thermcell_main(itap,ngrid,nlay,ptimestep & 9 9 & ,pplay,pplev,pphi,debut & 10 & ,pu ,pv,pt,p_o &10 & ,puwind,pvwind,ptemp,p_o & 11 11 & ,pduadj,pdvadj,pdtadj,pdoadj & 12 12 & ,fm0,entr0,detr0,zqta,zqla,lmax & … … 105 105 integer, intent(in) :: itap,ngrid,nlay 106 106 real, intent(in) :: ptimestep 107 real, intent(in), dimension(ngrid,nlay) :: pt ,pu,pv,pplay,pphi107 real, intent(in), dimension(ngrid,nlay) :: ptemp,puwind,pvwind,pplay,pphi 108 108 ! ATTENTION : zpspsk est inout et out mais c'est pas forcement pour de bonnes raisons (FH, 2023) 109 109 real, intent(in), dimension(ngrid,nlay) :: p_o … … 186 186 ENDIF 187 187 ! 188 print*,'thermcell_main debut' 188 189 ! write(lunout,*)'WARNING thermcell_main f0=max(f0,1.e-2)' 189 190 do ig=1,ngrid … … 202 203 ! -------------------------------------------------------------------- 203 204 ! 204 CALL thermcell_env(ngrid,nlay,p_o,pt ,pu,pv,pplay, &205 CALL thermcell_env(ngrid,nlay,p_o,ptemp,puwind,pvwind,pplay, & 205 206 & pplev,z_o,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out) 206 207 … … 743 744 if (prt_level.ge.1) print*,'thermcell_main FIN OK' 744 745 746 print*,'thermcell_main fin' 745 747 RETURN 746 748 end subroutine thermcell_main
Note: See TracChangeset
for help on using the changeset viewer.