Ignore:
Timestamp:
Jul 22, 2016, 11:28:39 AM (9 years ago)
Author:
Ehouarn Millour
Message:

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

Location:
LMDZ5/trunk/libf/dyn3d_common
Files:
15 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d_common/coordij.F

    r2597 r2598  
    1818      INTEGER i,j
    1919
    20 #include "dimensions.h"
    21 #include "paramet.h"
    22 #include "comgeom.h"
    23 #include "serre.h"
     20      include "dimensions.h"
     21      include "paramet.h"
     22      include "comgeom.h"
    2423
    2524      real zlon,zlat

  • LMDZ5/trunk/libf/dyn3d_common/exner_hyb_m.F90

    r2597 r2598  
    4040    include "comgeom.h"
    4141    include "comvert.h"
    42     include "serre.h"
    4342
    4443    INTEGER  ngrid

  • LMDZ5/trunk/libf/dyn3d_common/exner_milieu_m.F90

    r2597 r2598  
    3737    include "comgeom.h"
    3838    include "comvert.h"
    39     include "serre.h"
    4039
    4140    INTEGER  ngrid

  • LMDZ5/trunk/libf/dyn3d_common/fxhyp_m.F90

    r2228 r2598  
    2222    use nrtype, only: pi, pi_d, twopi, twopi_d, k8
    2323    use principal_cshift_m, only: principal_cshift
     24    use serre_mod, only: clon, grossismx, dzoomx, taux
    2425
    2526    include "dimensions.h"
    2627    ! for iim
    27 
    28     include "serre.h"
    29     ! for clon, grossismx, dzoomx, taux
    3028
    3129    REAL, intent(out):: xprimm025(:), rlonv(:), xprimv(:) ! (iim + 1)

  • LMDZ5/trunk/libf/dyn3d_common/fxy.F

    r2597 r2598  
    77
    88      USE comconst_mod, ONLY: pi
     9      USE serre_mod, ONLY: pxo,pyo,alphax,alphay,transx,transy
     10
    911      IMPLICIT NONE
    1012
    … …  
    1517c
    1618c
    17 #include "dimensions.h"
    18 #include "paramet.h"
    19 #include "serre.h"
     19      include "dimensions.h"
     20      include "paramet.h"
    2021
    2122       INTEGER i,j

  • LMDZ5/trunk/libf/dyn3d_common/fyhyp_m.F90

    r2228 r2598  
    1818    use coefpoly_m, only: coefpoly
    1919    use nrtype, only: k8
     20    use serre_mod, only: clat, grossismy, dzoomy, tauy
    2021
    2122    include "dimensions.h"
    2223    ! for jjm
    23 
    24     include "serre.h"
    25     ! for clat, grossismy, dzoomy, tauy
    2624
    2725    REAL, intent(out):: rlatu(jjm + 1), yyprimu(jjm + 1)

  • LMDZ5/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

    r2597 r2598  
    1717  INCLUDE "comvert.h"
    1818  INCLUDE "netcdf.inc"
    19   INCLUDE "serre.h"
    2019
    2120

  • LMDZ5/trunk/libf/dyn3d_common/inigeom.F

    r2597 r2598  
    1919      use fyhyp_m, only: fyhyp
    2020      USE comconst_mod, ONLY: pi, g, omeg, rad
     21      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     22     &          alphax,alphay,taux,tauy,transx,transy,pxo,pyo
    2123      IMPLICIT NONE
    2224c
    … …  
    2426      include "paramet.h"
    2527      include "comgeom2.h"
    26       include "serre.h"
    2728      include "logic.h"
    2829      include "comdissnew.h"

  • LMDZ5/trunk/libf/dyn3d_common/initdynav.F90

    r2597 r2598  
    4141  include "logic.h"
    4242  include "description.h"
    43   include "serre.h"
    4443  include "iniprint.h"
    4544

  • LMDZ5/trunk/libf/dyn3d_common/initfluxsto.F

    r2597 r2598  
    4747      include "logic.h"
    4848      include "description.h"
    49       include "serre.h"
    5049      include "iniprint.h"
    5150

  • LMDZ5/trunk/libf/dyn3d_common/inithist.F

    r2597 r2598  
    4646      include "logic.h"
    4747      include "description.h"
    48       include "serre.h"
    4948      include "iniprint.h"
    5049

  • LMDZ5/trunk/libf/dyn3d_common/invert_zoom_x_m.F90

    r2228 r2598  
    1111    use coefpoly_m, only: coefpoly
    1212    use nrtype, only: pi, pi_d, twopi_d, k8
     13    use serre_mod, only: clon
    1314
    1415    include "dimensions.h"
    1516    ! for iim
    16 
    17     include "serre.h"
    18     ! for clon
    1917
    2018    REAL(K8), intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)

  • LMDZ5/trunk/libf/dyn3d_common/principal_cshift_m.F90

    r2218 r2598  
    1212
    1313    use nrtype, only: twopi
     14    use serre_mod, only: clon
    1415
    1516    include "dimensions.h"
    1617    ! for iim
    17 
    18     include "serre.h"
    19     ! for clon
    2018
    2119    integer, intent(in):: is2

  • LMDZ5/trunk/libf/dyn3d_common/serre_mod.F90

    r2597 r2598  
    11!
    2 ! $Header$
     2! $Id$
    33!
    4 !c
    5 !c
    6 !c..include serre.h
    7 !c
    8        REAL clon,clat,transx,transy,alphax,alphay,pxo,pyo,              &
    9      &  grossismx, grossismy, dzoomx, dzoomy,taux,tauy
    10        COMMON/serre/clon,clat,transx,transy,alphax,alphay,pxo,pyo ,     &
    11      &  grossismx, grossismy, dzoomx, dzoomy,taux,tauy
     4MODULE serre_mod
     5
     6IMPLICIT NONE 
     7
     8      REAL clon,clat,transx,transy,alphax,alphay,pxo,pyo,              &
     9        grossismx, grossismy, dzoomx, dzoomy,taux,tauy
     10
     11END MODULE serre_mod

  • LMDZ5/trunk/libf/dyn3d_common/writedynav.F90

    r2597 r2598  
    3838  include "logic.h"
    3939  include "description.h"
    40   include "serre.h"
    4140  include "iniprint.h"
    4241

  • LMDZ5/trunk/libf/dyn3d_common/writehist.F

    r2597 r2598  
    4141      include "logic.h"
    4242      include "description.h"
    43       include "serre.h"
    4443      include "iniprint.h"
    4544
Note: See TracChangeset for help on using the changeset viewer.