--- trunk/dyn3d/advn.f	2014/09/18 13:36:51	112
+++ trunk/dyn3d/advn.f90	2019/06/13 14:40:06	328
@@ -15,7 +15,7 @@
   ! pdt pas de temps
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE comconst
   USE disvert_m
@@ -45,18 +45,9 @@
   REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm)
   REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm)
   REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm)
-  REAL temps1, temps2, temps3
   REAL ssum
-  LOGICAL testcpu
-  SAVE testcpu
-  SAVE temps1, temps2, temps3
   REAL zzpbar, zzw
 
-  REAL qmin, qmax
-  DATA qmin, qmax/0., 1./
-  DATA testcpu/.FALSE./
-  DATA temps1, temps2, temps3/0., 0., 0./
-
   zzpbar = 0.5*pdt
   zzw = pdt
 
@@ -132,7 +123,7 @@
   ! Auteurs:   Calcul des valeurs de q aux point u.
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE conf_gcm_m
   IMPLICIT NONE
@@ -247,7 +238,7 @@
   ! Auteurs:   Calcul des valeurs de q aux point v.
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE conf_gcm_m
   IMPLICIT NONE
@@ -343,7 +334,7 @@
   ! Auteurs:   Calcul des valeurs de q aux point v.
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE conf_gcm_m
   IMPLICIT NONE
@@ -465,7 +456,7 @@
 
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE comconst
   USE disvert_m
@@ -704,7 +695,7 @@
 
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE comgeom
   USE conf_gcm_m
@@ -818,7 +809,7 @@
 
 
   ! --------------------------------------------------------------------
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE comgeom
   USE conf_gcm_m