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/dyn3dmem
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/addfi_loc.F

    r2597 r2598  
    4949      include "paramet.h"
    5050      include "comgeom.h"
    51       include "serre.h"
    5251c
    5352c    Arguments :

  • LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F90

    r2597 r2598  
    2020                          iflag_top_bound, mode_top_bound, tau_top_bound, &
    2121                          ngroup
     22  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
     23                       alphax,alphay,taux,tauy
    2224
    2325  IMPLICIT NONE
    … …  
    3941  include "paramet.h"
    4042  include "logic.h"
    41   include "serre.h"
    4243  include "comdissnew.h"
    4344  include "temps.h"

  • LMDZ5/trunk/libf/dyn3dmem/dynetat0_loc.f90

    r2597 r2598  
    1414  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, &
    1515                          omeg, rad
     16  USE serre_mod, ONLY: clon, clat, grossismx, grossismy
     17 
    1618  IMPLICIT NONE
    1719  include "dimensions.h"
    … …  
    2224  include "ener.h"
    2325  include "description.h"
    24   include "serre.h"
    2526  include "logic.h"
    2627  include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90

    r2597 r2598  
    1414  USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil
    1515  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     16  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
     17                       taux,tauy
     18
    1619  IMPLICIT NONE
    1720  include "dimensions.h"
    … …  
    2326  include "logic.h"
    2427  include "description.h"
    25   include "serre.h"
    2628  include "iniprint.h"
    2729!===============================================================================

  • LMDZ5/trunk/libf/dyn3dmem/exner_hyb_loc_m.F90

    r2597 r2598  
    4242    include "comgeom.h"
    4343    include "comvert.h"
    44     include "serre.h"
    4544
    4645    INTEGER  ngrid

  • LMDZ5/trunk/libf/dyn3dmem/exner_milieu_loc_m.F90

    r2597 r2598  
    3838    include "comgeom.h"
    3939    include "comvert.h"
    40     include "serre.h"
    4140
    4241    INTEGER  ngrid

  • LMDZ5/trunk/libf/dyn3dmem/gcm.F90

    r2597 r2598  
    6262  include "ener.h"
    6363  include "description.h"
    64   include "serre.h"
    65   !include "com_io_dyn.h"
    6664  include "iniprint.h"
    6765  include "tracstoke.h"

  • LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90

    r2597 r2598  
    6969  SUBROUTINE guide_init
    7070
    71     USE control_mod
     71    USE control_mod, ONLY: day_step
     72    USE serre_mod, ONLY: grossismx
    7273
    7374    IMPLICIT NONE
    … …  
    7677    INCLUDE "paramet.h"
    7778    INCLUDE "netcdf.inc"
    78 
    79     ! For grossismx:
    80     include "serre.h"
    8179
    8280    INTEGER                :: error,ncidpl,rid,rcod
    … …  
    13731371
    13741372    use comconst_mod, only: pi
     1373    use serre_mod, only: clat, clon, grossismx, grossismy
    13751374   
    13761375    implicit none
    … …  
    13791378    include "paramet.h"
    13801379    include "comgeom2.h"
    1381     include "serre.h"
    13821380
    13831381! input arguments :

  • LMDZ5/trunk/libf/dyn3dmem/initdynav_loc.F

    r2597 r2598  
    5050      include "logic.h"
    5151      include "description.h"
    52       include "serre.h"
    5352      include "iniprint.h"
    5453

  • LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F

    r2597 r2598  
    5252      include "logic.h"
    5353      include "description.h"
    54       include "serre.h"
    5554      include "iniprint.h"
    5655

  • LMDZ5/trunk/libf/dyn3dmem/inithist_loc.F

    r2597 r2598  
    4949      include "logic.h"
    5050      include "description.h"
    51       include "serre.h"
    5251      include "iniprint.h"
    5352

  • LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

    r2597 r2598  
    3737      include "logic.h"
    3838      include "temps.h"
    39       include "serre.h"
    4039      include "iniprint.h"
    4140

  • LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

    r2597 r2598  
    7575      include "ener.h"
    7676      include "description.h"
    77       include "serre.h"
    7877      include "iniprint.h"
    7978      include "academic.h"

  • LMDZ5/trunk/libf/dyn3dmem/writedynav_loc.F

    r2597 r2598  
    5050      include "logic.h"
    5151      include "description.h"
    52       include "serre.h"
    5352      include "iniprint.h"
    5453

  • LMDZ5/trunk/libf/dyn3dmem/writehist_loc.F

    r2597 r2598  
    5050      include "logic.h"
    5151      include "description.h"
    52       include "serre.h"
    5352      include "iniprint.h"
    5453
Note: See TracChangeset for help on using the changeset viewer.