Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/calltherm.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (11 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/calltherm.F90
r4143 r4727 4 4 subroutine calltherm(dtime & 5 5 & ,pplay,paprs,pphi,weak_inversion & 6 & ,u_seri ,v_seri,t_seri,q_seri,zqsat,debut &6 & ,u_seri_,v_seri_,t_seri_,q_seri_,t_env,q_env,zqsat,debut & 7 7 & ,d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs & 8 8 & ,fm_therm,entr_therm,detr_therm,zqasc,clwcon0,lmax,ratqscth, & … … 29 29 USE indice_sol_mod 30 30 USE print_control_mod, ONLY: prt_level,lunout 31 USE lmdz_thermcell_alp, ONLY: thermcell_alp 32 USE lmdz_thermcell_main, ONLY: thermcell_main 33 USE lmdz_thermcell_old, ONLY: thermcell, thermcell_2002, thermcell_eau, calcul_sec, thermcell_sec 31 34 #ifdef ISO 32 35 use infotrac_phy, ONLY: ntiso … … 52 55 INTEGER nbptspb 53 56 54 REAL u_seri(klon,klev),v_seri(klon,klev) 55 REAL t_seri(klon,klev),q_seri(klon,klev),qmemoire(klon,klev) 57 REAL, DIMENSION(klon,klev), INTENT(IN) :: u_seri_,v_seri_ 58 REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri_,q_seri_,t_env,q_env 59 REAL, DIMENSION(klon,klev) :: u_seri,v_seri 60 REAL, DIMENSION(klon,klev) :: t_seri,q_seri 61 REAL, DIMENSION(klon,klev) :: qmemoire 56 62 REAL weak_inversion(klon) 57 63 REAL paprs(klon,klev+1) … … 75 81 real fmc_therm(klon,klev+1),zqasc(klon,klev) 76 82 real zqla(klon,klev) 77 real zqta(klon,klev)78 83 real ztv(klon,klev),ztva(klon,klev) 79 84 real zpspsk(klon,klev) … … 163 168 first=.false. 164 169 endif 170 171 u_seri(:,:)=u_seri_(:,:) 172 v_seri(:,:)=v_seri_(:,:) 173 t_seri(:,:)=t_seri_(:,:) 174 q_seri(:,:)=q_seri_(:,:) 165 175 166 176 ! Incrementer le compteur de la physique … … 285 295 CALL thermcell_main(itap,klon,klev,zdt & 286 296 & ,pplay,paprs,pphi,debut & 287 & ,u_seri,v_seri,t_seri,q_seri &297 & ,u_seri,v_seri,t_seri,q_seri,t_env,q_env & 288 298 & ,d_u_the,d_v_the,d_t_the,d_q_the & 289 299 & ,zfm_therm,zentr_therm,zdetr_therm,zqasc,zqla,lmax &
Note: See TracChangeset
for help on using the changeset viewer.