--- trunk/Sources/dyn3d/laplacien_rot.f 2015/04/30 18:35:49 136 +++ trunk/Sources/dyn3d/laplacien_rot.f 2015/05/06 15:51:03 137 @@ -16,7 +16,7 @@ USE dimens_m USE paramet_m USE comgeom - USE filtreg_m, ONLY: filtreg + USE filtreg_v_m, ONLY: filtreg_v use rotatf_m, only: rotatf IMPLICIT NONE @@ -34,7 +34,7 @@ ! ........................................................ - CALL filtreg(rotin, direct = .true., intensive = .true.) + CALL filtreg_v(rotin, intensive = .true.) CALL nxgrad(klevel, rotin, ghx, ghy) CALL rotatf(klevel, ghx, ghy, rotout)