Changeset 2326 for LMDZ5/trunk/libf/phydev/physiq.F90

Timestamp:

Jul 10, 2015, 2:24:29 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Further code reorganization: adding "phy_common", a directory which should contain routines common (wrt structural nature of the underlying code/grid) to all LMDZ-related physics packages.
EM

File:

• LMDZ5/trunk/libf/phydev/physiq.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phydev/physiq.F90

@@ -18 +18 @@
       USE mod_phys_lmdz_para, only : jj_nb
       USE phys_state_var_mod, only : phys_state_var_init
+      USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat
 
 #ifdef CPP_XIOS
@@ -26 +27 @@
 
       IMPLICIT none
-#include "dimensions.h"
-
-      integer,parameter :: jjmp1=jjm+1-1/jjm
-      integer,parameter :: iip1=iim+1
 !
 ! Routine argument:
@@ -55 +52 @@
       real,intent(out) :: d_qx(klon,klev,nqtot) ! physics tendency on tracers
       real,intent(out) :: d_ps(klon) ! physics tendency on surface pressure
-      real,intent(in) :: dudyn(iim+1,jjmp1,klev) ! Not used
+      real,intent(in) :: dudyn(nbp_lon+1,nbp_lat,klev) ! Not used
 
 integer,save :: itau=0 ! counter to count number of calls to physics
@@ -114 +111 @@
   ! define variables which will be written in "histins.nc" file
   call histdef(nid_hist,'temperature','Atmospheric temperature','K', &
-               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               nbp_lon,jj_nb,nhori,klev,1,klev,zvertid,32, &
                'inst(X)',t_ops,t_wrt)
   call histdef(nid_hist,'u','Eastward Zonal Wind','m/s', &
-               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               nbp_lon,jj_nb,nhori,klev,1,klev,zvertid,32, &
                'inst(X)',t_ops,t_wrt)
   call histdef(nid_hist,'v','Northward Meridional Wind','m/s', &
-               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               nbp_lon,jj_nb,nhori,klev,1,klev,zvertid,32, &
                'inst(X)',t_ops,t_wrt)
   call histdef(nid_hist,'ps','Surface Pressure','Pa', &
-               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               nbp_lon,jj_nb,nhori,1,1,1,zvertid,32, &
                'inst(X)',t_ops,t_wrt)
   ! end definition sequence