Changeset 2355 for LMDZ5/trunk/libf/dynlonlat_phylonlat

Timestamp:

Aug 28, 2015, 1:04:00 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Bug fix on bug introduced in previous bug fix (klon_glo is not set before call to init_physics_distribution, but has a correct value after).
EM

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq_mod.F90

@@ -109 +109 @@
 
   ! Initialize Physics distibution and parameters and interface with dynamics
-  IF (klon_glo>1) THEN ! general 3D case
+  IF (ii*jj>1) THEN ! general 3D case
     CALL init_physics_distribution(regular_lonlat,4, &
                                  nbp,ii,jj+1,nlayer,communicator)