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/dyn3dpar
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dpar/addfi_p.F

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

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

    r2597 r2598  
    1919                          iflag_top_bound, mode_top_bound, tau_top_bound, &
    2020                          ngroup
     21  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
     22                       alphax,alphay,taux,tauy
    2123
    2224  IMPLICIT NONE
    … …  
    3840  include "paramet.h"
    3941  include "logic.h"
    40   include "serre.h"
    4142  include "comdissnew.h"
    4243  include "temps.h"

  • LMDZ5/trunk/libf/dyn3dpar/dynetat0.F

    r2597 r2598  
    1111      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa,
    1212     &                        lllm, omeg, rad
     13      USE serre_mod, ONLY: clon,clat,grossismx,grossismy
    1314
    1415      IMPLICIT NONE
    … …  
    3738#include "netcdf.inc"
    3839#include "description.h"
    39 #include "serre.h"
    4040#include "logic.h"
    4141#include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3dpar/dynredem.F

    r2597 r2598  
    1010      use netcdf95, only: NF95_PUT_VAR
    1111      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     12      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     13     &                     taux,tauy
    1214 
    1315      IMPLICIT NONE
    … …  
    2628#include "netcdf.inc"
    2729#include "description.h"
    28 #include "serre.h"
    2930#include "iniprint.h"
    3031

  • LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F

    r2597 r2598  
    1111      use netcdf95, only: NF95_PUT_VAR
    1212      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     13      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     14     &                     taux,tauy
    1315 
    1416      IMPLICIT NONE
    … …  
    2729#include "netcdf.inc"
    2830#include "description.h"
    29 #include "serre.h"
    3031
    3132c   Arguments:

  • LMDZ5/trunk/libf/dyn3dpar/exner_hyb_p_m.F90

    r2597 r2598  
    3939    include "comgeom.h"
    4040    include "comvert.h"
    41     include "serre.h"
    4241
    4342    INTEGER  ngrid

  • LMDZ5/trunk/libf/dyn3dpar/exner_milieu_p_m.F90

    r2597 r2598  
    3636    include "comgeom.h"
    3737    include "comvert.h"
    38     include "serre.h"
    3938
    4039    INTEGER  ngrid

  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r2597 r2598  
    7474#include "ener.h"
    7575#include "description.h"
    76 #include "serre.h"
    7776!#include "com_io_dyn.h"
    7877#include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90

    r2597 r2598  
    6868  SUBROUTINE guide_init
    6969
    70     USE control_mod
     70    USE control_mod, ONLY: day_step
     71    USE serre_mod, ONLY: grossismx
    7172
    7273    IMPLICIT NONE
    … …  
    7576    INCLUDE "paramet.h"
    7677    INCLUDE "netcdf.inc"
    77 
    78     ! For grossismx:
    79     include "serre.h"
    8078
    8179    INTEGER                :: error,ncidpl,rid,rcod
    … …  
    11011099
    11021100    use comconst_mod, only: pi
     1101    use serre_mod, only: clat, clon, grossismx, grossismy
    11031102   
    11041103    implicit none
    … …  
    11071106    include "paramet.h"
    11081107    include "comgeom2.h"
    1109     include "serre.h"
    11101108
    11111109! input arguments :

  • LMDZ5/trunk/libf/dyn3dpar/initdynav_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/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/dyn3dpar/inithist_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

    r2597 r2598  
    3232#include "logic.h"
    3333#include "temps.h"
    34 #include "serre.h"
    3534#include "iniprint.h"
    3635

  • LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

    r2597 r2598  
    7171#include "ener.h"
    7272#include "description.h"
    73 #include "serre.h"
    7473!#include "com_io_dyn.h"
    7574#include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3dpar/writedynav_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/writehist_p.F

    r2597 r2598  
    4949#include "logic.h"
    5050#include "description.h"
    51 #include "serre.h"
    5251#include "iniprint.h"
    5352
Note: See TracChangeset for help on using the changeset viewer.