Changeset 627

Timestamp:

12/11/17 14:01:07 (6 years ago)

Author:

dubos

Message:

devel : bugfix after 624

File:

• codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90 (modified) (1 diff)

codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90

@@ -192 +192 @@
 
     IF(dysl_caldyn_vert) THEN
-#define mass_bl(ij,l) bp(ij)
+#define mass_bl(ij,l) bp(l)
 #define dmass_col(ij) dps(ij)
 #include "../kernels_hex/caldyn_wflux.k90"