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

Location:
LMDZ5/trunk/libf/dyn3d
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d/addfi.F

    r2597 r2598  
    4949      include "paramet.h"
    5050      include "comgeom.h"
    51       include "serre.h"
    5251c
    5352c    Arguments :
  • LMDZ5/trunk/libf/dyn3d/conf_gcm.F90

    r2597 r2598  
    1616                          iflag_top_bound, mode_top_bound, tau_top_bound, &
    1717                          ngroup
     18  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
     19                       alphax,alphay,taux,tauy
    1820
    1921  IMPLICIT NONE
     
    3537  include "paramet.h"
    3638  include "logic.h"
    37   include "serre.h"
    3839  include "comdissnew.h"
    3940  include "temps.h"
     
    4344  !   ------
    4445
    45   CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
    4646  REAL clonn,clatt,grossismxx,grossismyy
    4747  REAL dzoomxx,dzoomyy, tauxx,tauyy
    4848  LOGICAL  fxyhypbb, ysinuss
    49   INTEGER i
    5049
    5150  !  -------------------------------------------------------------------
  • LMDZ5/trunk/libf/dyn3d/dynetat0.f90

    r2597 r2598  
    1212  USE assert_eq_m, ONLY: assert_eq
    1313  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, omeg, rad
     14  USE serre_mod, ONLY: clon, clat, grossismx, grossismy
    1415  IMPLICIT NONE
    1516  include "dimensions.h"
     
    2021  include "ener.h"
    2122  include "description.h"
    22   include "serre.h"
    2323  include "logic.h"
    2424  include "iniprint.h"
  • LMDZ5/trunk/libf/dyn3d/dynredem.F90

    r2597 r2598  
    1212  USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil
    1313  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     14  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
     15                        taux,tauy
    1416  IMPLICIT NONE
    1517  include "dimensions.h"
     
    2123  include "logic.h"
    2224  include "description.h"
    23   include "serre.h"
    2425  include "iniprint.h"
    2526!===============================================================================
  • LMDZ5/trunk/libf/dyn3d/gcm.F90

    r2597 r2598  
    7575  include "ener.h"
    7676  include "description.h"
    77   include "serre.h"
    78   !include "com_io_dyn.h"
    7977  include "iniprint.h"
    8078  include "tracstoke.h"
  • 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 :
  • LMDZ5/trunk/libf/dyn3d/integrd.F

    r2597 r2598  
    3434      include "logic.h"
    3535      include "temps.h"
    36       include "serre.h"
    3736      include "iniprint.h"
    3837
  • LMDZ5/trunk/libf/dyn3d/leapfrog.F

    r2597 r2598  
    6464      include "ener.h"
    6565      include "description.h"
    66       include "serre.h"
    6766      include "iniprint.h"
    6867      include "academic.h"
Note: See TracChangeset for help on using the changeset viewer.