Changeset 2221 for LMDZ5/trunk/libf/phylmd

Timestamp:

Mar 9, 2015, 7:38:03 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Some cleanup: remove (unused) clesph0 from dynamics.
EM

Location:

LMDZ5/trunk/libf/phylmd

Files:

• lmdz1d.F90 (modified) (4 diffs)
• physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/lmdz1d.F90

@@ -203 +203 @@
 !  Call to physiq
 !---------------------------------------------------------------------
-      integer, parameter :: longcles=20
       logical :: firstcall=.true.
       logical :: lastcall=.false.
       real :: phis    = 0.0
-      real :: clesphy0(longcles) = 0.0
       real :: dpsrf 
 
@@ -365 +363 @@
 !---------------------------------------------------------------------
 
-      call conf_gcm( 99, .TRUE. , clesphy0 )
+      call conf_gcm( 99, .TRUE. )
 !-----------------------------------------------------------------------
 !   Choix du calendrier
@@ -618 +616 @@
 ! Ecriture du startphy avant le premier appel a la physique.
 ! On le met juste avant pour avoir acces a tous les champs
-! NB: les clesphy0 seront remplies dans phyredem d'apres les flags lus dans gcm.def
 
       if (ok_writedem) then
@@ -859 +856 @@
      &              firstcall,lastcall,                                     &
      &              day,time,timestep,                                      &
-     &              plev,play,phi,phis,presnivs,clesphy0,                   &
+     &              plev,play,phi,phis,presnivs,                            &
      &              u,v,temp,q,omega2,                                      &
      &              du_phys,dv_phys,dt_phys,dq,dpsrf,                        &

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -4 +4 @@
 SUBROUTINE physiq (nlon,nlev, &
      debut,lafin,jD_cur, jH_cur,pdtphys, &
-     paprs,pplay,pphi,pphis,presnivs,clesphy0, &
+     paprs,pplay,pphi,pphis,presnivs, &
      u,v,t,qx, &
      flxmass_w, &
@@ -283 +283 @@
   !$OMP THREADPRIVATE(ok_hf)
 
-  INTEGER        longcles
-  PARAMETER    ( longcles = 20 )
-  REAL clesphy0( longcles      )
+  INTEGER,PARAMETER :: longcles=20
+  REAL,SAVE :: clesphy0(longcles)
+  !$OMP THREADPRIVATE(clesphy0)
   !
   ! Variables propres a la physique