Changeset 4207 for dynamico_lmdz/simple_physics/phyparam/physics

Timestamp:

Dec 30, 2019, 1:57:35 PM (6 years ago)

Author:

dubos

Message:

simple_physics : converted soil.F to F90

File:

• dynamico_lmdz/simple_physics/phyparam/physics/convection.F90 (modified) (1 diff)

dynamico_lmdz/simple_physics/phyparam/physics/convection.F90

@@ -27 +27 @@
     REAL, INTENT(INOUT) :: zu2(ngrid,nlay), zv2(ngrid,nlay), zh2(ngrid,nlay)
 
-    INTEGER :: l,l1,l2,jj
+    INTEGER :: l,l1,l2
     LOGICAL :: extend
     REAL :: zhm,zsm,zum,zvm,zalpha
-#include "dimensions.h"
 
     l2=1