Changeset 2037 for LMDZ5/trunk/libf/phylmd/lmdz1d.F90

Timestamp:

May 6, 2014, 4:56:20 PM (11 years ago)

Author:

lguez

Message:

PVteta computed by PVtheta was not used. Also there were a couple of
problems with PVtheta:

-- PVtheta calls tetalevel in phylmd, and interpolates at

Earth-specific values of potential temperature.

-- PVtheta calls tourabs, and the computation of rot in tourabs should

be modified (it is not correct when there is a zoom).

-- Even when there is no zoom, the computation of rot in tourabs

should probably be modified: directly combine vcov and ucov, as in
tourpot, instead of dividing by cv and cu.

File:

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

LMDZ5/trunk/libf/phylmd/lmdz1d.F90

@@ -209 +209 @@
       integer jjmp1
       parameter (jjmp1=jjm+1-1/jjm)
-      INTEGER nbteta
-      PARAMETER(nbteta=3)
       REAL dudyn(iim+1,jjmp1,llm)
-      REAL PVteta(1,nbteta)
       INTEGER read_climoz 
 !Al1
@@ -803 +800 @@
      &              u,v,temp,q,omega2,                                      &
      &              du_phys,dv_phys,dt_phys,dq,dpsrf,                        &
-     &              dudyn,PVteta)
+     &              dudyn)
         firstcall=.false.