Changeset 2335

Timestamp:

Jul 28, 2015, 4:01:58 PM (9 years ago)

Author:

lguez

Message:

Fixed regression from revision 2333. Add argument rot in call to
physiq from lmdz1d.

File:

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

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

@@ -165 +165 @@
       real :: phi(llm)
       real :: teta(llm),tetal(llm),temp(llm),u(llm),v(llm),w(llm)
+      REAL rot(1, llm) ! relative vorticity, in s-1
       real :: rlat_rad(1),rlon_rad(1)
       real :: omega(llm+1),omega2(llm),rho(llm+1)
@@ -871 +872 @@
 !---------------------------------------------------------------------
 
-        call physiq(ngrid,llm,                                              &
-     &              firstcall,lastcall,                                     &
-     &              day,time,timestep,                                      &
-     &              plev,play,phi,phis,presnivs,                            &
-     &              u,v,temp,q,omega2,                                      &
-     &              du_phys,dv_phys,dt_phys,dq,dpsrf,                        &
-     &              dudyn)
+       call physiq(ngrid,llm, &
+            firstcall,lastcall, day,time,timestep, &
+            plev,play,phi,phis,presnivs, &
+            u,v, rot, temp,q,omega2, &
+            du_phys,dv_phys,dt_phys,dq,dpsrf, &
+            dudyn)
         firstcall=.false.