Changeset 2597 for LMDZ5/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

Timestamp:

Jul 22, 2016, 8:44:47 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

@@ -9 +9 @@
   USE grid_atob_m,        ONLY: grille_m
   USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo
+  USE comconst_mod, ONLY: im, pi
 
   CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
@@ -17 +18 @@
   include "paramet.h"
   include "comgeom2.h"
-  include "comconst.h"
 
 CONTAINS