Changeset 1443 for trunk/LMDZ.COMMON/libf/dyn3d_common/fyhyp_m.F90

Timestamp:

Jun 5, 2015, 3:05:35 PM (9 years ago)

Author:

emillour

Message:

Titan and Venus GCMs:
Follow-up to the changes in dynamics/physics interface: ener.h, logic.h, serre.h and temps.h are now modules.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/fyhyp_m.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d_common/fyhyp_m.F90

@@ -18 +18 @@
     use coefpoly_m, only: coefpoly
     use nrtype, only: k8
+    use serre_mod, only: clat, dzoomy, grossismy, tauy
 
     include "dimensions.h"
     ! for jjm
-
-    include "serre.h"
-    ! for clat, grossismy, dzoomy, tauy
 
     REAL, intent(out):: rlatu(jjm + 1), yyprimu(jjm + 1)