Changeset 2598 for LMDZ5/trunk/libf/dyn3d_common/fyhyp_m.F90

Timestamp:

Jul 22, 2016, 11:28:39 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn serre.h into module serre_mod.F90
EM

File:

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

LMDZ5/trunk/libf/dyn3d_common/fyhyp_m.F90

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