Changeset 4684

Timestamp:

Sep 11, 2023, 3:18:47 PM (8 months ago)

Author:

fhourdin

Message:

Noms de variables plus explicites

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90

@@ -8 +8 @@
       subroutine thermcell_main(itap,ngrid,nlay,ptimestep  &
      &                  ,pplay,pplev,pphi,debut  &
-     &                  ,pu,pv,pt,p_o  &
+     &                  ,puwind,pvwind,ptemp,p_o  &
      &                  ,pduadj,pdvadj,pdtadj,pdoadj  &
      &                  ,fm0,entr0,detr0,zqta,zqla,lmax  &
@@ -105 +105 @@
       integer, intent(in) :: itap,ngrid,nlay
       real, intent(in) ::  ptimestep
-      real, intent(in), dimension(ngrid,nlay)    :: pt,pu,pv,pplay,pphi
+      real, intent(in), dimension(ngrid,nlay)    :: ptemp,puwind,pvwind,pplay,pphi
 ! ATTENTION : zpspsk est inout et out mais c'est pas forcement pour de bonnes raisons (FH, 2023)
       real, intent(in), dimension(ngrid,nlay)    :: p_o
@@ -186 +186 @@
       ENDIF
 !
+print*,'thermcell_main debut'
 !     write(lunout,*)'WARNING thermcell_main f0=max(f0,1.e-2)'
      do ig=1,ngrid
@@ -202 +203 @@
 !   --------------------------------------------------------------------
 !
-      CALL thermcell_env(ngrid,nlay,p_o,pt,pu,pv,pplay,  &
+      CALL thermcell_env(ngrid,nlay,p_o,ptemp,puwind,pvwind,pplay,  &
      &           pplev,z_o,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out)
        
@@ -743 +744 @@
       if (prt_level.ge.1) print*,'thermcell_main FIN  OK'
 
+print*,'thermcell_main fin'
  RETURN
       end subroutine thermcell_main