Changeset 2403

Timestamp:

Dec 1, 2015, 12:53:22 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in lmdz1d.F90, no need for rlat,rlon, use xlat,xlon instead.
MPL & EM

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -117 +117 @@
         real  dqtdtls(nlev_max),thlpcar(nlev_max)
         real  qprof(nlev_max,nqmx)
-        real rlon(1),rlat(1)
 
 !        integer :: forcing_type
@@ -560 +559 @@
       qsol = qsolinp
       qsurf = fq_sat(tsurf,psurf/100.)
-      rlat=xlat
-      rlon=xlon
       day1= day_ini
       time=daytime-day
@@ -656 +653 @@
       zcvfi=airefi
 !
-      rlat_rad(1)=rlat(1)*rpi/180.
-      rlon_rad(1)=rlon(1)*rpi/180.
+      rlat_rad(1)=xlat*rpi/180.
+      rlon_rad(1)=xlon*rpi/180.
 
      ! Ehouarn: iniphysiq requires arrays related to (3D) dynamics grid,