Changeset 3326 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/slab_heat_transp_mod.F90

Timestamp:

May 16, 2018, 3:01:09 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Continuing convergence work

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/slab_heat_transp_mod.F90 (modified) (2 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/slab_heat_transp_mod.F90

@@ -83 +83 @@
                                   cu_,cuvsurcv_,cv_,cvusurcu_, &
                                   aire_,apoln_,apols_, &
-                                  aireu_,airev_,rlatv)
-    USE comconst_mod, ONLY: omeg, rad
+                                  aireu_,airev_,rlatv, rad, omeg)
+!    USE comconst_mod, ONLY: omeg, rad
     ! number of points in lon, lat
     IMPLICIT NONE
@@ -104 +104 @@
     REAL,INTENT(IN) :: airev_(ip1jm)
     REAL,INTENT(IN) :: rlatv(nbp_lat-1)
+    REAL,INTENT(IN) :: rad
+    REAL,INTENT(IN) :: omeg
 
     ! Sanity check on dimensions