Ignore:
Timestamp:
Jul 25, 2016, 11:31:56 AM (8 years ago)
Author:
Ehouarn Millour
Message:

Cleanup in the dynamics: turn logic.h into module logic_mod.F90
EM

Location:
LMDZ5/trunk/libf/dyn3d_common
Files:
23 edited

Legend:

Unmodified
Added
Removed

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

    r2601 r2603  
    1212      include "comdissip.h"
    1313      include "comgeom2.h"
    14       include "logic.h"
    1514      include "ener.h"
    1615      include "description.h"

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

    r2600 r2603  
    1919      include "dimensions.h"
    2020      include "paramet.h"
    21       include "logic.h"
    2221      include "comgeom.h"
    2322      include "iniprint.h"
    … …  
    484483      include "dimensions.h"
    485484      include "paramet.h"
    486       include "logic.h"
    487485      include "iniprint.h"
    488486c

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

    r1945 r2603  
    2525c   -------------
    2626c
    27 #include "dimensions.h"
    28 #include "paramet.h"
    29 #include "logic.h"
     27      include "dimensions.h"
     28      include "paramet.h"
    3029c
    3130c   Arguments:

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

    r2336 r2603  
    99  include "paramet.h"
    1010  include "comgeom.h"
    11   include "logic.h"
    1211!===============================================================================
    1312! Arguments:

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

    r2600 r2603  
    1212  USE comvert_mod, ONLY: ap, bp, nivsigs, nivsig, dpres, presnivs, &
    1313                         pa, preff, scaleheight
     14  USE logic_mod, ONLY: ok_strato
    1415
    1516  IMPLICIT NONE
    … …  
    1819  include "paramet.h"
    1920  include "iniprint.h"
    20   include "logic.h"
    2121
    2222!-------------------------------------------------------------------------------

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

    r2600 r2603  
    1515     &                       nivsig,nivsigs,pa,preff,scaleheight
    1616      USE comconst_mod, ONLY: kappa
     17      USE logic_mod, ONLY: hybrid
    1718
    1819      IMPLICIT NONE
    … …  
    2021      include "dimensions.h"
    2122      include "paramet.h"
    22       include "logic.h"
    2323      include "iniprint.h"
    2424c

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

    r1945 r2603  
    2020c   -------------
    2121c
    22 #include "dimensions.h"
    23 #include "paramet.h"
    24 #include "comgeom.h"
    25 #include "comdissipn.h"
    26 #include "logic.h"
     22      include "dimensions.h"
     23      include "paramet.h"
     24      include "comgeom.h"
     25      include "comdissipn.h"
    2726c
    2827      INTEGER klevel

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

    r1945 r2603  
    1919      IMPLICIT NONE
    2020c
    21 #include "dimensions.h"
    22 #include "paramet.h"
    23 #include "comdissipn.h"
    24 #include "logic.h"
     21      include "dimensions.h"
     22      include "paramet.h"
     23      include "comdissipn.h"
    2524
    2625      INTEGER klevel

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

    r2600 r2603  
    2020  include "paramet.h"
    2121  include "comdissipn.h"
    22   include "logic.h"
    2322  include "iniprint.h"
    2423

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

    r2598 r2603  
    1919      use fyhyp_m, only: fyhyp
    2020      USE comconst_mod, ONLY: pi, g, omeg, rad
     21      USE logic_mod, ONLY: fxyhypb, ysinus
    2122      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
    2223     &          alphax,alphay,taux,tauy,transx,transy,pxo,pyo
    … …  
    2627      include "paramet.h"
    2728      include "comgeom2.h"
    28       include "logic.h"
    2929      include "comdissnew.h"
    3030

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

    r2601 r2603  
    4040  include "comgeom.h"
    4141  include "ener.h"
    42   include "logic.h"
    4342  include "description.h"
    4443  include "iniprint.h"

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

    r2601 r2603  
    4646      include "comgeom.h"
    4747      include "ener.h"
    48       include "logic.h"
    4948      include "description.h"
    5049      include "iniprint.h"

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

    r2601 r2603  
    4545      include "comgeom.h"
    4646      include "ener.h"
    47       include "logic.h"
    4847      include "description.h"
    4948      include "iniprint.h"

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

    r2601 r2603  
    1515      include "comdissip.h"
    1616      include "comgeom2.h"
    17       include "logic.h"
    1817      include "ener.h"
    1918      include "description.h"

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

    r2600 r2603  
    1717      include "dimensions.h"
    1818      include "paramet.h"
    19       include "logic.h"
    2019      include "comgeom.h"
    2120c

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

    r2600 r2603  
    1919      include "dimensions.h"
    2020      include "paramet.h"
    21       include "logic.h"
    2221      include "comgeom.h"
    2322c

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

    r2600 r2603  
    1717      include "dimensions.h"
    1818      include "paramet.h"
    19       include "logic.h"
    2019      include "comgeom.h"
    2120c

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

    r1945 r2603  
    1919c
    2020c
    21 #include "dimensions.h"
    22 #include "paramet.h"
    23 #include "comdissipn.h"
    24 #include "logic.h"
     21      include "dimensions.h"
     22      include "paramet.h"
     23      include "comdissipn.h"
    2524c
    2625      INTEGER klevel

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

    r2601 r2603  
    88      USE control_mod, ONLY: resetvarc
    99      USE comconst_mod, ONLY: dtvr, daysec, g, rad, omeg
     10      USE logic_mod, ONLY: read_start
     11     
    1012      IMPLICIT NONE
    1113
    … …  
    3032      INCLUDE "comgeom.h"
    3133      INCLUDE "ener.h"
    32       INCLUDE "logic.h"
    3334      INCLUDE "iniprint.h"
    3435

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

    r2336 r2603  
    99  include "paramet.h"
    1010  include "comgeom.h"
    11   include "logic.h"
    1211!===============================================================================
    1312! Arguments:

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

    r2601 r2603  
    1010      include "comdissip.h"
    1111      include "comgeom2.h"
    12       include "logic.h"
    1312      include "ener.h"
    1413      include "description.h"

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

    r2601 r2603  
    3535  include "comgeom.h"
    3636  include "ener.h"
    37   include "logic.h"
    3837  include "description.h"
    3938  include "iniprint.h"

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

    r2601 r2603  
    3939      include "comgeom.h"
    4040      include "ener.h"
    41       include "logic.h"
    4241      include "description.h"
    4342      include "iniprint.h"
Note: See TracChangeset for help on using the changeset viewer.