Changeset 4094 for LMDZ6/trunk/libf/phylmd/thermcell_main.F90

Timestamp:

Mar 14, 2022, 1:45:50 AM (2 years ago)

Author:

fhourdin

Message:

Nettoyage thermiques (suite) et replay1d

File:

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

LMDZ6/trunk/libf/phylmd/thermcell_main.F90

@@ -351 +351 @@
 !
       CALL thermcell_height(ngrid,nlay,lalim,lmin,linter,lmix,zw2,  &
-     &           zlev,lmax,zmax,zmax0,zmix,wmax,lev_out)
+     &           zlev,lmax,zmax,zmax0,zmix,wmax)
 ! Attention, w2 est transforme en sa racine carree dans cette routine
 ! Le probleme vient du fait que linter et lmix sont souvent égaux à 1.
@@ -374 +374 @@
 !
 !
-!!      write(lunout,*)'THERM NOUVEAU XXXXX'
       CALL thermcell_dry(ngrid,nlay,zlev,pphi,ztv,alim_star,  &
-    &                      lalim,lmin,zmax_sec,wmax_sec,lev_out)
+    &                      lalim,lmin,zmax_sec,wmax_sec)
 
  
@@ -403 +402 @@
       if (iflag_thermals_closure.eq.1) then
 
-      CALL thermcell_closure(ngrid,nlay,r_aspect_thermals,ptimestep,rho,  &
-     &   zlev,lalim,alim_star_clos,f_star,zmax_sec,wmax_sec,f,lev_out)
+     CALL thermcell_closure(ngrid,nlay,r_aspect_thermals,ptimestep,rho,  &
+    &   zlev,lalim,alim_star_clos,zmax_sec,wmax_sec,f)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -412 +411 @@
 
      CALL thermcell_closure(ngrid,nlay,r_aspect_thermals,ptimestep,rho,  &
-    &   zlev,lalim,alim_star,f_star,zmax,wmax,f,lev_out)
+    &   zlev,lalim,alim_star,zmax,wmax,f)
+
 
      endif
@@ -690 +690 @@
       if (prt_level.ge.1) print*,'thermcell_main FIN  OK'
 
-      return
+ RETURN
       end subroutine thermcell_main