Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/guide_mod.F90

    r2597 r2598  
    6363  SUBROUTINE guide_init
    6464
    65     USE control_mod
     65    USE control_mod, ONLY: day_step
     66    USE serre_mod, ONLY: grossismx
    6667
    6768    IMPLICIT NONE
    … …  
    7071    INCLUDE "paramet.h"
    7172    INCLUDE "netcdf.inc"
    72 
    73     ! For grossismx:
    74     include "serre.h"
    7573
    7674    INTEGER                :: error,ncidpl,rid,rcod
    … …  
    857855
    858856    use comconst_mod, only: pi
     857    use serre_mod, only: clon, clat, grossismx, grossismy
    859858   
    860859    implicit none
    … …  
    863862    include "paramet.h"
    864863    include "comgeom2.h"
    865     include "serre.h"
    866864
    867865! input arguments :
Note: See TracChangeset for help on using the changeset viewer.