Changeset 4678 for LMDZ6/trunk/libf/phylmd/calltherm.F90

Timestamp:

Sep 8, 2023, 1:55:07 AM (8 months ago)

Author:

fhourdin

Message:

Petits nettoyages sur les thermiques

File:

• LMDZ6/trunk/libf/phylmd/calltherm.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/calltherm.F90

@@ -4 +4 @@
       subroutine calltherm(dtime  &
      &      ,pplay,paprs,pphi,weak_inversion  &
-     &      ,u_seri,v_seri,t_seri,q_seri,zqsat,debut  &
+     &      ,u_seri_,v_seri_,t_seri_,q_seri_,zqsat,debut  &
      &      ,d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs  &
      &      ,fm_therm,entr_therm,detr_therm,zqasc,clwcon0,lmax,ratqscth,  &
@@ -55 +55 @@
       INTEGER nbptspb
 
-      REAL u_seri(klon,klev),v_seri(klon,klev)
-      REAL t_seri(klon,klev),q_seri(klon,klev),qmemoire(klon,klev)
+      REAL, DIMENSION(klon,klev), INTENT(IN) :: u_seri_,v_seri_
+      REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri_,q_seri_
+      REAL, DIMENSION(klon,klev) :: u_seri,v_seri
+      REAL, DIMENSION(klon,klev) :: t_seri,q_seri
+      REAL, DIMENSION(klon,klev) :: qmemoire
       REAL weak_inversion(klon)
       REAL paprs(klon,klev+1)
@@ -165 +168 @@
         first=.false.
       endif
+
+      u_seri(:,:)=u_seri_(:,:)
+      v_seri(:,:)=v_seri_(:,:)
+      t_seri(:,:)=t_seri_(:,:)
+      q_seri(:,:)=q_seri_(:,:)
 
 ! Incrementer le compteur de la physique