Changeset 2598 for LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.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/dyn3dmem/guide_loc_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90

@@ -69 +69 @@
   SUBROUTINE guide_init
 
-    USE control_mod
+    USE control_mod, ONLY: day_step
+    USE serre_mod, ONLY: grossismx
 
     IMPLICIT NONE
@@ -76 +77 @@
     INCLUDE "paramet.h"
     INCLUDE "netcdf.inc"
-
-    ! For grossismx:
-    include "serre.h"
 
     INTEGER                :: error,ncidpl,rid,rcod
@@ -1373 +1371 @@
 
     use comconst_mod, only: pi
+    use serre_mod, only: clat, clon, grossismx, grossismy
     
     implicit none
@@ -1379 +1378 @@
     include "paramet.h"
     include "comgeom2.h"
-    include "serre.h"
 
 ! input arguments :