Ignore:
Timestamp:
Sep 29, 2016, 11:26:46 PM (8 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r2593:2640 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 deleted
50 edited
2 copied

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/dyn3dpar/addfi_p.F

    r1999 r2641  
    4848#include "dimensions.h"
    4949#include "paramet.h"
    50 #include "comconst.h"
    5150#include "comgeom.h"
    52 #include "serre.h"
    5351c
    5452c    Arguments :

  • LMDZ5/branches/testing/libf/dyn3dpar/advect_new_p.F

    r1910 r2641  
    66      USE parallel_lmdz
    77      USE write_field_p
     8      USE comconst_mod, ONLY: daysec
     9      USE logic_mod, ONLY: conser
     10     
    811      IMPLICIT NONE
    912c=======================================================================
    … …  
    2831#include "dimensions.h"
    2932#include "paramet.h"
    30 #include "comconst.h"
    31 #include "comvert.h"
    3233#include "comgeom.h"
    33 #include "logic.h"
    34 #include "ener.h"
    3534
    3635c   Arguments:
    … …  
    117116                 
    118117           uav(ij,l)=0.25*(ucov(ij,l)+ucov(ij-iip1,l))
    119      .               +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
     118     .                     +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
    120119         ENDDO
    121120         
    … …  
    250249      DO l=1,llm
    251250        DO ij=ijb,ije-1
    252           du(ij,l)=du(ij,l)+du2(ij,l)-du1(ij,l)
    253         ENDDO
     251          du(ij,l)=du(ij,l)+du2(ij,l)-du1(ij,l)
     252        ENDDO
    254253
    255254        DO   ij   = ijb+iip1-1, ije, iip1
    … …  
    266265      DO l=1,llm
    267266        DO ij=ijb,ije
    268           dv(ij,l)=dv(ij,l)+dv2(ij,l)-dv1(ij,l)
    269         ENDDO
     267          dv(ij,l)=dv(ij,l)+dv2(ij,l)-dv1(ij,l)
     268        ENDDO
    270269      ENDDO
    271270c$OMP END DO NOWAIT     
    … …  
    276275      DO l=1,llm
    277276        DO ij=ijb,ije
    278           dteta(ij,l)=dteta(ij,l)+dteta2(ij,l)-dteta1(ij,l)
    279         ENDDO
     277          dteta(ij,l)=dteta(ij,l)+dteta2(ij,l)-dteta1(ij,l)
     278        ENDDO
    280279      ENDDO
    281280c$OMP END DO NOWAIT     

  • LMDZ5/branches/testing/libf/dyn3dpar/advect_p.F

    r1910 r2641  
    55      USE parallel_lmdz
    66      USE write_field_p
     7      USE comconst_mod, ONLY: daysec
     8      USE logic_mod, ONLY: conser
     9     
    710      IMPLICIT NONE
    811c=======================================================================
    … …  
    2730#include "dimensions.h"
    2831#include "paramet.h"
    29 #include "comconst.h"
    30 #include "comvert.h"
    3132#include "comgeom.h"
    32 #include "logic.h"
    33 #include "ener.h"
    3433
    3534c   Arguments:
    … …  
    8685                 
    8786           uav(ij,l)=0.25*(ucov(ij,l)+ucov(ij-iip1,l))
    88      .               +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
     87     .                     +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
    8988         ENDDO
    9089         

  • LMDZ5/branches/testing/libf/dyn3dpar/advtrac_p.F90

    r2298 r2641  
    1919  USE infotrac, ONLY: nqtot, iadv
    2020  USE control_mod, ONLY: iapp_tracvl, day_step, planet_type
     21  USE comconst_mod, ONLY: dtvr
    2122  IMPLICIT NONE
    2223  !
    2324  include "dimensions.h"
    2425  include "paramet.h"
    25   include "comconst.h"
    26   include "comvert.h"
    2726  include "comdissip.h"
    2827  include "comgeom2.h"
    29   include "logic.h"
    30   include "temps.h"
    31   include "ener.h"
    3228  include "description.h"
    3329

  • LMDZ5/branches/testing/libf/dyn3dpar/bernoui_p.F

    r1910 r2641  
    2525#include "dimensions.h"
    2626#include "paramet.h"
    27 #include "logic.h"
    2827c
    2928c   Arguments:

  • LMDZ5/branches/testing/libf/dyn3dpar/bilan_dyn_p.F

    r1910 r2641  
    1717      use misc_mod
    1818      use write_field_p
     19      USE comconst_mod, ONLY: cpp, pi
     20      USE comvert_mod, ONLY: presnivs
     21      USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
     22     
    1923      IMPLICIT NONE
    2024
    2125#include "dimensions.h"
    2226#include "paramet.h"
    23 #include "comconst.h"
    24 #include "comvert.h"
    2527#include "comgeom2.h"
    26 #include "temps.h"
    2728#include "iniprint.h"
    2829
    … …  
    202203
    203204!        if (i_sortie.eq.1) then
    204 !        file='dynzon'
     205!        file='dynzon'
    205206!         if (mpi_rank==0) then
    206 !        call inigrads(ifile,1
     207!        call inigrads(ifile,1
    207208!     s  ,0.,180./pi,0.,0.,jjm,rlatv,-90.,90.,180./pi
    208209!     s  ,llm,presnivs,1.
    … …  
    568569        do l=1,llm
    569570          Q_cum(:,jjb:jje,l,iQ)=Q_cum(:,jjb:jje,l,iQ)
    570      .                          /masse_cum(:,jjb:jje,l)
     571     .                                /masse_cum(:,jjb:jje,l)
    571572        enddo
    572573!$OMP ENDDO NOWAIT

  • LMDZ5/branches/testing/libf/dyn3dpar/caladvtrac_p.F

    r1910 r2641  
    1010      USE infotrac, ONLY : nqtot
    1111      USE control_mod, ONLY : iapp_tracvl,planet_type
     12      USE comconst_mod, ONLY: dtvr
    1213c
    1314      IMPLICIT NONE
    … …  
    2526#include "dimensions.h"
    2627#include "paramet.h"
    27 #include "comconst.h"
    2828
    2929c   Arguments:

  • LMDZ5/branches/testing/libf/dyn3dpar/caldyn_p.F

    r1999 r2641  
    1010      USE parallel_lmdz
    1111      USE Write_Field_p
     12      USE comvert_mod, ONLY: ap, bp
    1213     
    1314      IMPLICIT NONE
    … …  
    3132#include "dimensions.h"
    3233#include "paramet.h"
    33 #include "comconst.h"
    34 #include "comvert.h"
    3534#include "comgeom.h"
    3635

  • LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F90

    r2471 r2641  
    1616  USE infotrac, ONLY : type_trac
    1717  use assert_m, only: assert
     18  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
     19                          iflag_top_bound, mode_top_bound, tau_top_bound, &
     20                          ngroup
     21  USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, &
     22                       ok_guide, ok_limit, ok_strato, purmats, read_start, &
     23                       ysinus
     24  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
     25                       alphax,alphay,taux,tauy
     26  USE temps_mod, ONLY: calend
    1827
    1928  IMPLICIT NONE
    … …  
    3443  include "dimensions.h"
    3544  include "paramet.h"
    36   include "logic.h"
    37   include "serre.h"
    3845  include "comdissnew.h"
    39   include "temps.h"
    40   include "comconst.h"
    4146  include "iniprint.h"
    4247

  • LMDZ5/branches/testing/libf/dyn3dpar/convmas1_p.F

    r1910 r2641  
    3232#include "dimensions.h"
    3333#include "paramet.h"
    34 #include "comvert.h"
    35 #include "logic.h"
    3634
    3735      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )

  • LMDZ5/branches/testing/libf/dyn3dpar/convmas2_p.F

    r1910 r2641  
    3232#include "dimensions.h"
    3333#include "paramet.h"
    34 #include "comvert.h"
    35 #include "logic.h"
    3634
    3735      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )

  • LMDZ5/branches/testing/libf/dyn3dpar/convmas_p.F

    r1910 r2641  
    3232#include "dimensions.h"
    3333#include "paramet.h"
    34 #include "comvert.h"
    35 #include "logic.h"
    3634
    3735      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )

  • LMDZ5/branches/testing/libf/dyn3dpar/dissip_p.F

    r1999 r2641  
    66      USE parallel_lmdz
    77      USE write_field_p
     8      USE comconst_mod, ONLY: dtdiss
    89      IMPLICIT NONE
    910
    … …  
    2930#include "dimensions.h"
    3031#include "paramet.h"
    31 #include "comconst.h"
    3232#include "comgeom.h"
    3333#include "comdissnew.h"

  • LMDZ5/branches/testing/libf/dyn3dpar/divgrad_p.F

    r1910 r2641  
    2323#include "comgeom.h"
    2424#include "comdissipn.h"
    25 #include "logic.h"
    2625c
    2726      INTEGER klevel

  • LMDZ5/branches/testing/libf/dyn3dpar/dteta1_p.F

    r1910 r2641  
    2222#include "dimensions.h"
    2323#include "paramet.h"
    24 #include "logic.h"
    2524
    2625      REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)

  • LMDZ5/branches/testing/libf/dyn3dpar/dudv2_p.F

    r1910 r2641  
    2525#include "dimensions.h"
    2626#include "paramet.h"
    27 #include "comvert.h"
    2827
    2928      REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),

  • LMDZ5/branches/testing/libf/dyn3dpar/dynetat0.F

    r1999 r2641  
    99
    1010      use control_mod, only : planet_type
     11      USE comvert_mod, ONLY: pa,preff
     12      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa,
     13     &                        lllm, omeg, rad
     14      USE logic_mod, ONLY: fxyhypb, ysinus
     15      USE serre_mod, ONLY: clon,clat,grossismx,grossismy
     16      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,
     17     &                     start_time,day_ini,hour_ini
     18      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    1119
    1220      IMPLICIT NONE
    … …  
    2937#include "dimensions.h"
    3038#include "paramet.h"
    31 #include "temps.h"
    32 #include "comconst.h"
    33 #include "comvert.h"
    3439#include "comgeom2.h"
    35 #include "ener.h"
    3640#include "netcdf.inc"
    3741#include "description.h"
    38 #include "serre.h"
    39 #include "logic.h"
    4042#include "iniprint.h"
    4143

  • LMDZ5/branches/testing/libf/dyn3dpar/dynredem.F

    r1999 r2641  
    99      USE infotrac
    1010      use netcdf95, only: NF95_PUT_VAR
     11      USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff,
     12     &                        nivsig,nivsigs
     13      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     14      USE logic_mod, ONLY: fxyhypb, ysinus
     15      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     16     &                     taux,tauy
     17      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
     18     &                        start_time,hour_ini
     19      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    1120 
    1221      IMPLICIT NONE
    … …  
    1827#include "dimensions.h"
    1928#include "paramet.h"
    20 #include "comconst.h"
    21 #include "comvert.h"
    2229#include "comgeom2.h"
    23 #include "temps.h"
    24 #include "ener.h"
    25 #include "logic.h"
    2630#include "netcdf.inc"
    2731#include "description.h"
    28 #include "serre.h"
    2932#include "iniprint.h"
    3033
    … …  
    471474      use netcdf, only: NF90_get_VAR
    472475      use netcdf95, only: NF95_PUT_VAR
     476      USE temps_mod, ONLY: itau_dyn, itaufin
    473477 
    474478      IMPLICIT NONE
    … …  
    480484#include "description.h"
    481485#include "netcdf.inc"
    482 #include "comvert.h"
    483486#include "comgeom.h"
    484 #include "temps.h"
    485487#include "iniprint.h"
    486488

  • LMDZ5/branches/testing/libf/dyn3dpar/dynredem_p.F

    r1910 r2641  
    1010      USE infotrac
    1111      use netcdf95, only: NF95_PUT_VAR
     12      USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff,
     13     &                        nivsig,nivsigs
     14      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     15      USE logic_mod, ONLY: fxyhypb, ysinus
     16      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
     17     &                     taux,tauy
     18      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
     19     &                        start_time,hour_ini
     20      USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    1221 
    1322      IMPLICIT NONE
    … …  
    1928#include "dimensions.h"
    2029#include "paramet.h"
    21 #include "comconst.h"
    22 #include "comvert.h"
    2330#include "comgeom2.h"
    24 #include "temps.h"
    25 #include "ener.h"
    26 #include "logic.h"
    2731#include "netcdf.inc"
    2832#include "description.h"
    29 #include "serre.h"
    3033
    3134c   Arguments:
    … …  
    472475      use netcdf, only: NF90_get_VAR
    473476      use netcdf95, only: NF95_PUT_VAR
     477      USE temps_mod, ONLY: itau_dyn, itaufin
    474478 
    475479      IMPLICIT NONE
    … …  
    481485#include "description.h"
    482486#include "netcdf.inc"
    483 #include "comvert.h"
    484487#include "comgeom.h"
    485 #include "temps.h"
    486488
    487489

  • LMDZ5/branches/testing/libf/dyn3dpar/exner_hyb_p_m.F90

    r2056 r2641  
    3333    !
    3434    USE parallel_lmdz
     35    USE comconst_mod, ONLY: cpp, kappa, r, jmp1
     36    USE comvert_mod, ONLY: preff
    3537    !
    3638    include "dimensions.h"
    3739    include "paramet.h"
    38     include "comconst.h"
    3940    include "comgeom.h"
    40     include "comvert.h"
    41     include "serre.h"
    4241
    4342    INTEGER  ngrid

  • LMDZ5/branches/testing/libf/dyn3dpar/exner_milieu_p_m.F90

    r2056 r2641  
    3030    !
    3131    USE parallel_lmdz
     32    USE comconst_mod, ONLY: cpp, kappa, r, jmp1
     33    USE comvert_mod, ONLY: preff
    3234    !
    3335    include "dimensions.h"
    3436    include "paramet.h"
    35     include "comconst.h"
    3637    include "comgeom.h"
    37     include "comvert.h"
    38     include "serre.h"
    3938
    4039    INTEGER  ngrid

  • LMDZ5/branches/testing/libf/dyn3dpar/fluxstokenc_p.F

    r1910 r2641  
    2121#include "dimensions.h"
    2222#include "paramet.h"
    23 #include "comconst.h"
    24 #include "comvert.h"
    2523#include "comgeom.h"
    2624#include "tracstoke.h"
    27 #include "temps.h"
    2825#include "iniprint.h"
    2926

  • LMDZ5/branches/testing/libf/dyn3dpar/friction_p.F

    r1910 r2641  
    1212      USE ioipsl_getincom
    1313#endif
     14      USE comconst_mod, ONLY: pi
    1415      IMPLICIT NONE
    1516
    … …  
    2930#include "paramet.h"
    3031#include "comgeom2.h"
    31 #include "comconst.h"
    3232#include "iniprint.h"
    3333#include "academic.h"

  • LMDZ5/branches/testing/libf/dyn3dpar/gcm.F

    r2435 r2641  
    3232      USE iniphysiq_mod, ONLY: iniphysiq
    3333#endif
     34      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
     35      USE logic_mod ! all of it, because of copyin clause when calling leapfrog
     36      USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref,
     37     &                itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end,
     38     &                dt,hour_ini,itaufin
     39
    3440      IMPLICIT NONE
    3541
    … …  
    6571#include "dimensions.h"
    6672#include "paramet.h"
    67 #include "comconst.h"
    6873#include "comdissnew.h"
    69 #include "comvert.h"
    7074#include "comgeom.h"
    71 #include "logic.h"
    72 #include "temps.h"
    73 #include "ener.h"
    7475#include "description.h"
    75 #include "serre.h"
    7676!#include "com_io_dyn.h"
    7777#include "iniprint.h"
    … …  
    499499c       write(78,*) 'q',q
    500500
    501 c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/)
     501!c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/)
     502c$OMP PARALLEL DEFAULT(SHARED)
     503c        Copy all threadprivate variables from temps_mod
     504c$OMP1 COPYIN(dt,jD_ref,jH_ref,start_time,hour_ini,day_ini,day_end)
     505c$OMP1 COPYIN(annee_ref,day_ref,itau_dyn,itau_phy,itaufin,calend)
     506c       Copy all threadprivate variables from logic_mod
     507c$OMP1 COPYIN(purmats,forward,leapf,apphys,statcl,conser,apdiss,apdelq)
     508c$OMP1 COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide)
     509c$OMP1 COPYIN(ok_strato,ok_gradsfile,ok_limit,ok_etat0)
     510c$OMP1 COPYIN(iflag_phys,iflag_trac)
    502511      CALL leapfrog_p(ucov,vcov,teta,ps,masse,phis,q,time_0)
    503512c$OMP END PARALLEL

  • LMDZ5/branches/testing/libf/dyn3dpar/geopot_p.F

    r1910 r2641  
    2828#include "dimensions.h"
    2929#include "paramet.h"
    30 #include "comvert.h"
    3130
    3231c   Arguments:

  • LMDZ5/branches/testing/libf/dyn3dpar/gradiv_p.F

    r1910 r2641  
    2121#include "paramet.h"
    2222#include "comdissipn.h"
    23 #include "logic.h"
    2423
    2524      INTEGER klevel

  • LMDZ5/branches/testing/libf/dyn3dpar/groupe_p.F

    r2471 r2641  
    11      subroutine groupe_p(pext,pbaru,pbarv,pbarum,pbarvm,wm)
    22      USE parallel_lmdz
     3      USE comconst_mod, ONLY: ngroup
    34      implicit none
    45
    … …  
    1617#include "dimensions.h"
    1718#include "paramet.h"
    18 #include "comconst.h"
    1919#include "comgeom2.h"
    20 #include "comvert.h"
    2120
    2221!     integer ngroup

  • LMDZ5/branches/testing/libf/dyn3dpar/groupeun_p.F

    r2471 r2641  
    22      USE parallel_lmdz
    33      USE Write_Field_p
     4      USE comconst_mod, ONLY: ngroup
    45      IMPLICIT NONE
    56
    67#include "dimensions.h"
    78#include "paramet.h"
    8 #include "comconst.h"
    99#include "comgeom2.h"
    1010
    … …  
    136136
    137137      USE parallel_lmdz
     138      USE comconst_mod, ONLY: ngroup
    138139      IMPLICIT NONE
    139140
    140141#include "dimensions.h"
    141142#include "paramet.h"
    142 #include "comconst.h"
    143143#include "comgeom2.h"
    144144

  • LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90

    r2160 r2641  
    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
    … …  
    341339    USE parallel_lmdz
    342340    USE control_mod
     341    USE comconst_mod, ONLY: daysec, dtvr, cpp, kappa
     342    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
    343343   
    344344    IMPLICIT NONE
    … …  
    346346    INCLUDE "dimensions.h"
    347347    INCLUDE "paramet.h"
    348     INCLUDE "comconst.h"
    349     INCLUDE "comvert.h"
    350348
    351349    ! Variables entree
    … …  
    619617  SUBROUTINE guide_zonave(typ,hsize,vsize,field)
    620618
     619    USE comconst_mod, ONLY: pi
     620   
    621621    IMPLICIT NONE
    622622
    … …  
    624624    INCLUDE "paramet.h"
    625625    INCLUDE "comgeom.h"
    626     INCLUDE "comconst.h"
    627626   
    628627    ! input/output variables
    … …  
    707706  USE mod_hallo
    708707  USE Bands
     708  USE comconst_mod, ONLY: cpp, kappa
     709  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap
    709710  IMPLICIT NONE
    710711
    711712  include "dimensions.h"
    712713  include "paramet.h"
    713   include "comvert.h"
    714714  include "comgeom2.h"
    715   include "comconst.h"
    716715
    717716  REAL, DIMENSION (iip1,jjp1),     INTENT(IN) :: psi ! Psol gcm
    … …  
    10991098! Calcul des constantes de rappel alpha (=1/tau)
    11001099
     1100    use comconst_mod, only: pi
     1101    use serre_mod, only: clat, clon, grossismx, grossismy
     1102   
    11011103    implicit none
    11021104
    11031105    include "dimensions.h"
    11041106    include "paramet.h"
    1105     include "comconst.h"
    11061107    include "comgeom2.h"
    1107     include "serre.h"
    11081108
    11091109! input arguments :
    … …  
    18131813  SUBROUTINE guide_out(varname,hsize,vsize,field,factt)
    18141814    USE parallel_lmdz
     1815    USE comconst_mod, ONLY: pi
     1816    USE comvert_mod, ONLY: presnivs
    18151817    IMPLICIT NONE
    18161818
    … …  
    18191821    INCLUDE "netcdf.inc"
    18201822    INCLUDE "comgeom2.h"
    1821     INCLUDE "comconst.h"
    1822     INCLUDE "comvert.h"
    18231823   
    18241824    ! Variables entree

  • LMDZ5/branches/testing/libf/dyn3dpar/iniacademic.F90

    r2160 r2641  
    1616  use exner_hyb_m, only: exner_hyb
    1717  use exner_milieu_m, only: exner_milieu
     18  USE comconst_mod, ONLY: cpp, kappa, g, daysec, dtvr, pi, im, jm
     19  USE logic_mod, ONLY: iflag_phys, read_start
     20  USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
     21  USE temps_mod, ONLY: annee_ref, day_ini, day_ref
     22  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    1823
    1924  !   Author:    Frederic Hourdin      original: 15/01/93
    … …  
    2833  include "dimensions.h"
    2934  include "paramet.h"
    30   include "comvert.h"
    31   include "comconst.h"
    3235  include "comgeom.h"
    3336  include "academic.h"
    34   include "ener.h"
    35   include "temps.h"
    3637  include "iniprint.h"
    37   include "logic.h"
    3838
    3939  !   Arguments:

  • LMDZ5/branches/testing/libf/dyn3dpar/initdynav_p.F

    r1910 r2641  
    1212       use misc_mod
    1313       USE infotrac
     14       USE comconst_mod, ONLY: pi
     15       USE comvert_mod, ONLY: nivsigs
     16       USE temps_mod, ONLY: itau_dyn
    1417
    1518      implicit none
    … …  
    4346#include "dimensions.h"
    4447#include "paramet.h"
    45 #include "comconst.h"
    46 #include "comvert.h"
    4748#include "comgeom.h"
    48 #include "temps.h"
    49 #include "ener.h"
    50 #include "logic.h"
    5149#include "description.h"
    52 #include "serre.h"
    5350#include "iniprint.h"
    5451

  • LMDZ5/branches/testing/libf/dyn3dpar/initfluxsto_p.F

    r1910 r2641  
    1313       use Write_field
    1414       use misc_mod
     15       USE comconst_mod, ONLY: pi
     16       USE comvert_mod, ONLY: nivsigs
     17       USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    1518       
    1619      implicit none
    … …  
    4548#include "dimensions.h"
    4649#include "paramet.h"
    47 #include "comconst.h"
    48 #include "comvert.h"
    4950#include "comgeom.h"
    50 #include "temps.h"
    51 #include "ener.h"
    52 #include "logic.h"
    5351#include "description.h"
    54 #include "serre.h"
    5552#include "iniprint.h"
    5653
    … …  
    106103      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    107104      tau0 = itau_dyn
    108        
    109         do jj = 1, jjp1
     105       
     106        do jj = 1, jjp1
    110107        do ii = 1, iip1
    111108          rlong(ii,jj) = rlonu(ii) * 180. / pi
    … …  
    165162     .             1, iip1, 1, jjn,tau0, zjulian, tstep, vhoriid,
    166163     .             filevid,dynv_domain_id)
    167        
    168       rl(1,1) = 1.     
     164       
     165      rl(1,1) = 1.       
    169166     
    170167      if (mpi_rank==0) then
    … …  
    191188      call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
    192189     .             'scalar','Grille points scalaires', thoriid)
    193        
     190       
    194191C
    195192C  Appel a histvert pour la grille verticale
    … …  
    211208C
    212209C  Appels a histdef pour la definition des variables a sauvegarder
    213        
    214         CALL histdef(fileid, "phis", "Surface geop. height", "-",
     210       
     211        CALL histdef(fileid, "phis", "Surface geop. height", "-",
    215212     .                iip1,jjn,thoriid, 1,1,1, -99, 32,
    216213     .                "once", t_ops, t_wrt)
    … …  
    219216     .                iip1,jjn,thoriid, 1,1,1, -99, 32,
    220217     .                "once", t_ops, t_wrt)
    221        
     218       
    222219        if (mpi_rank==0) then
    223        
    224         CALL histdef(filedid, "dtvr", "tps dyn", "s",
     220       
     221        CALL histdef(filedid, "dtvr", "tps dyn", "s",
    225222     .                1,1,dhoriid, 1,1,1, -99, 32,
    226223     .                "once", t_ops, t_wrt)
    … …  
    289286        if (mpi_rank==0) call histsync(filedid)
    290287      endif
    291        
     288       
    292289#else
    293290      write(lunout,*)'initfluxsto_p: Needs IOIPSL to function'

  • LMDZ5/branches/testing/libf/dyn3dpar/inithist_p.F

    r1910 r2641  
    1313       use misc_mod
    1414       USE infotrac
     15       USE comconst_mod, ONLY: pi
     16       USE comvert_mod, ONLY: nivsigs
     17       USE temps_mod, ONLY: itau_dyn
    1518
    1619      implicit none
    … …  
    4548#include "dimensions.h"
    4649#include "paramet.h"
    47 #include "comconst.h"
    48 #include "comvert.h"
    4950#include "comgeom.h"
    50 #include "temps.h"
    51 #include "ener.h"
    52 #include "logic.h"
    5351#include "description.h"
    54 #include "serre.h"
    5552#include "iniprint.h"
    5653

  • LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F

    r2160 r2641  
    77      USE parallel_lmdz
    88      USE control_mod, only : planet_type
     9      USE comconst_mod, ONLY: pi
     10      USE logic_mod, ONLY: leapf
     11      USE comvert_mod, ONLY: ap, bp
     12      USE temps_mod, ONLY: dt
     13     
    914      IMPLICIT NONE
    1015
    … …  
    2732#include "dimensions.h"
    2833#include "paramet.h"
    29 #include "comconst.h"
    3034#include "comgeom.h"
    31 #include "comvert.h"
    32 #include "logic.h"
    33 #include "temps.h"
    34 #include "serre.h"
    3535#include "iniprint.h"
    3636
    … …  
    284284      ije=ij_end
    285285
    286         if (planet_type.eq."earth") then
     286        if (planet_type.eq."earth") then
    287287! Earth-specific treatment of first 2 tracers (water)
    288288c$OMP BARRIER
    … …  
    385385          DO l = 1, llm
    386386            massem1(ijb:ije,l)=massescr(ijb:ije,l)
    387           ENDDO
    388 c$OMP END DO NOWAIT      
     387          ENDDO
     388c$OMP END DO NOWAIT 
    389389      END IF
    390390c$OMP BARRIER

  • LMDZ5/branches/testing/libf/dyn3dpar/leapfrog_p.F

    r2408 r2641  
    2828     &                       periodav, ok_dyn_ave, output_grads_dyn,
    2929     &                       iapp_tracvl
     30       USE comvert_mod, ONLY: ap,bp,pressure_exner,presnivs
     31       USE comconst_mod, ONLY: cpp, dtvr, ihf, dtphys, pi, jmp1
     32       USE logic_mod, ONLY: iflag_phys,ok_guide,forward,leapf,apphys,
     33     &                      statcl,conser,apdiss,purmats,ok_strato
     34       USE temps_mod, ONLY: itaufin,jD_ref,jH_ref,day_ini,
     35     &                        day_ref,start_time,dt
     36
    3037      IMPLICIT NONE
    3138
    … …  
    6370#include "dimensions.h"
    6471#include "paramet.h"
    65 #include "comconst.h"
    6672#include "comdissnew.h"
    67 #include "comvert.h"
    6873#include "comgeom.h"
    69 #include "logic.h"
    70 #include "temps.h"
    71 #include "ener.h"
    7274#include "description.h"
    73 #include "serre.h"
    7475!#include "com_io_dyn.h"
    7576#include "iniprint.h"
    … …  
    14551456                call Gather_Field(teta,ip1jmp1,llm,0)
    14561457                call Gather_Field(pk,ip1jmp1,llm,0)
    1457                 call Gather_Field(phi,ip1jmp1,llm,0)
     1458                call Gather_Field(phi,ip1jmp1,llm,0)
    14581459                do iq=1,nqtot
    14591460                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
    14601461                enddo
    1461                 call Gather_Field(masse,ip1jmp1,llm,0)
     1462                call Gather_Field(masse,ip1jmp1,llm,0)
    14621463                call Gather_Field(ps,ip1jmp1,1,0)
    1463                 call Gather_Field(phis,ip1jmp1,1,0)
     1464                call Gather_Field(phis,ip1jmp1,1,0)
    14641465                if (mpi_rank==0) then
    14651466                 CALL writedynav(itau,vcov,
    14661467     &                 ucov,teta,pk,phi,q,masse,ps,phis)
    1467                 endif
     1468                endif
    14681469#endif
    14691470!$OMP END MASTER
    … …  
    14771478            IF( MOD(itau,iecri).EQ.0) THEN
    14781479             ! Ehouarn: output only during LF or Backward Matsuno
    1479              if (leapf.or.(.not.leapf.and.(.not.forward))) then
     1480             if (leapf.or.(.not.leapf.and.(.not.forward))) then
    14801481c$OMP BARRIER
    14811482c$OMP MASTER
    … …  
    15151516                call Gather_Field(ucov,ip1jmp1,llm,0)
    15161517                call Gather_Field(teta,ip1jmp1,llm,0)
    1517                 call Gather_Field(phi,ip1jmp1,llm,0)
     1518                call Gather_Field(phi,ip1jmp1,llm,0)
    15181519                do iq=1,nqtot
    15191520                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
    15201521                enddo
    1521                 call Gather_Field(masse,ip1jmp1,llm,0)
     1522                call Gather_Field(masse,ip1jmp1,llm,0)
    15221523                call Gather_Field(ps,ip1jmp1,1,0)
    1523                 call Gather_Field(phis,ip1jmp1,1,0)
     1524                call Gather_Field(phis,ip1jmp1,1,0)
    15241525                if (mpi_rank==0) then
    1525                  CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
    1526                 endif
     1526                 CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
     1527                endif
    15271528!              CALL writehist_p(histid,histvid, itau,vcov,
    15281529!     &                         ucov,teta,phi,q,masse,ps,phis)
    … …  
    16501651                call Gather_Field(teta,ip1jmp1,llm,0)
    16511652                call Gather_Field(pk,ip1jmp1,llm,0)
    1652                 call Gather_Field(phi,ip1jmp1,llm,0)
     1653                call Gather_Field(phi,ip1jmp1,llm,0)
    16531654                do iq=1,nqtot
    16541655                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
    16551656                enddo
    1656                 call Gather_Field(masse,ip1jmp1,llm,0)
     1657                call Gather_Field(masse,ip1jmp1,llm,0)
    16571658                call Gather_Field(ps,ip1jmp1,1,0)
    1658                 call Gather_Field(phis,ip1jmp1,1,0)
     1659                call Gather_Field(phis,ip1jmp1,1,0)
    16591660                if (mpi_rank==0) then
    16601661                 CALL writedynav(itau,vcov,
    16611662     &                 ucov,teta,pk,phi,q,masse,ps,phis)
    1662                 endif
     1663                endif
    16631664#endif
    16641665!$OMP END MASTER
    … …  
    17061707                call Gather_Field(ucov,ip1jmp1,llm,0)
    17071708                call Gather_Field(teta,ip1jmp1,llm,0)
    1708                 call Gather_Field(phi,ip1jmp1,llm,0)
     1709                call Gather_Field(phi,ip1jmp1,llm,0)
    17091710                do iq=1,nqtot
    17101711                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
    17111712                enddo
    1712                 call Gather_Field(masse,ip1jmp1,llm,0)
     1713                call Gather_Field(masse,ip1jmp1,llm,0)
    17131714                call Gather_Field(ps,ip1jmp1,1,0)
    1714                 call Gather_Field(phis,ip1jmp1,1,0)
     1715                call Gather_Field(phis,ip1jmp1,1,0)
    17151716                if (mpi_rank==0) then
    17161717                 CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
    1717                 endif
     1718                endif
    17181719!                CALL writehist_p(histid, histvid, itau,vcov ,
    17191720!     &                           ucov,teta,phi,q,masse,ps,phis)

  • LMDZ5/branches/testing/libf/dyn3dpar/massbar_p.F

    r1910 r2641  
    1818#include "dimensions.h"
    1919#include "paramet.h"
    20 #include "comconst.h"
    2120#include "comgeom.h"
    2221c

  • LMDZ5/branches/testing/libf/dyn3dpar/massbarxy_p.F

    r1910 r2641  
    1717#include "dimensions.h"
    1818#include "paramet.h"
    19 #include "comconst.h"
    2019#include "comgeom.h"
    2120c

  • LMDZ5/branches/testing/libf/dyn3dpar/massdair_p.F

    r1910 r2641  
    1818#include "dimensions.h"
    1919#include "paramet.h"
    20 #include "comconst.h"
    2120#include "comgeom.h"
    2221c

  • LMDZ5/branches/testing/libf/dyn3dpar/nxgrarot_p.F

    r1910 r2641  
    2222#include "paramet.h"
    2323#include "comdissipn.h"
    24 #include "logic.h"
    2524c
    2625      INTEGER klevel

  • LMDZ5/branches/testing/libf/dyn3dpar/qminimum_p.F

    r1910 r2641  
    88#include "dimensions.h"
    99#include "paramet.h"
    10 #include "comvert.h"
    1110c
    1211      INTEGER nq

  • LMDZ5/branches/testing/libf/dyn3dpar/sw_case_williamson91_6.F

    r1910 r2641  
    2626c
    2727c=======================================================================
     28      USE comconst_mod, ONLY: cpp, omeg, rad
     29      USE comvert_mod, ONLY: ap, bp, preff
     30     
    2831      IMPLICIT NONE
    2932c-----------------------------------------------------------------------
    … …  
    3336#include "dimensions.h"
    3437#include "paramet.h"
    35 #include "comvert.h"
    36 #include "comconst.h"
    3738#include "comgeom.h"
    3839#include "iniprint.h"

  • LMDZ5/branches/testing/libf/dyn3dpar/top_bound_p.F

    r1910 r2641  
    44      SUBROUTINE top_bound_p(vcov,ucov,teta,masse,dt)
    55      USE parallel_lmdz
     6      USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound,
     7     &                        tau_top_bound
     8      USE comvert_mod, ONLY: presnivs, preff, scaleheight
     9     
    610      IMPLICIT NONE
    711c
    812#include "dimensions.h"
    913#include "paramet.h"
    10 #include "comconst.h"
    11 #include "comvert.h"
    1214#include "comgeom2.h"
    1315
    … …  
    4042! NB: top_bound sponge is only called from leapfrog if ok_strato=.true.
    4143
    42 ! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst.h)
     44! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst_mod)
    4345!    iflag_top_bound=0 for no sponge
    4446!    iflag_top_bound=1 for sponge over 4 topmost layers
    … …  
    6971      REAL uzon(jjp1,llm),vzon(jjm,llm),tzon(jjp1,llm)
    7072     
    71       integer i 
     73      integer i
    7274      REAL,SAVE :: rdamp(llm) ! quenching coefficient
    7375      real,save :: lambda(llm) ! inverse or quenching time scale (Hz)

  • LMDZ5/branches/testing/libf/dyn3dpar/tourpot_p.F

    r1910 r2641  
    2323#include "paramet.h"
    2424#include "comgeom.h"
    25 #include "logic.h"
    2625
    2726      REAL  rot( ip1jm,llm )

  • LMDZ5/branches/testing/libf/dyn3dpar/vitvert_p.F

    r1910 r2641  
    22c
    33      USE parallel_lmdz
     4      USE comvert_mod, ONLY: bp
     5     
    46      IMPLICIT NONE
    57
    … …  
    2830#include "dimensions.h"
    2931#include "paramet.h"
    30 #include "comvert.h"
    3132
    3233      REAL w(ip1jmp1,llm),convm(ip1jmp1,llm)

  • LMDZ5/branches/testing/libf/dyn3dpar/vlsplt_p.F

    r1910 r2641  
    2525#include "dimensions.h"
    2626#include "paramet.h"
    27 #include "logic.h"
    28 #include "comvert.h"
    29 #include "comconst.h"
    3027
    3128c
    … …  
    208205#include "dimensions.h"
    209206#include "paramet.h"
    210 #include "logic.h"
    211 #include "comvert.h"
    212 #include "comconst.h"
    213207c
    214208c
    … …  
    539533c   --------------------------------------------------------------------
    540534      USE parallel_lmdz
     535      USE comconst_mod, ONLY: pi
    541536      IMPLICIT NONE
    542537c
    543538#include "dimensions.h"
    544539#include "paramet.h"
    545 #include "logic.h"
    546 #include "comvert.h"
    547 #include "comconst.h"
    548540#include "comgeom.h"
    549541c
    … …  
    932924#include "dimensions.h"
    933925#include "paramet.h"
    934 #include "logic.h"
    935 #include "comvert.h"
    936 #include "comconst.h"
    937926c
    938927c

  • LMDZ5/branches/testing/libf/dyn3dpar/vlspltgen_p.F

    r1910 r2641  
    2727      USE VAMPIR
    2828      USE infotrac, ONLY : nqtot
     29      USE comconst_mod, ONLY: cpp
    2930      IMPLICIT NONE
    3031
    … …  
    3233#include "dimensions.h"
    3334#include "paramet.h"
    34 #include "logic.h"
    35 #include "comvert.h"
    36 #include "comconst.h"
    3735
    3836c
    … …  
    105103
    106104       
    107         ijb=ij_begin-iip1
    108         ije=ij_end+iip1
    109         if (pole_nord) ijb=ij_begin
    110         if (pole_sud) ije=ij_end
    111        
     105        ijb=ij_begin-iip1
     106        ije=ij_end+iip1
     107        if (pole_nord) ijb=ij_begin
     108        if (pole_sud) ije=ij_end
     109       
    112110c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    113         DO l = 1, llm
     111        DO l = 1, llm
    114112         DO ij = ijb, ije
    115113          tempe(ij) = teta(ij,l) * pk(ij,l) /cpp
    … …  
    191189
    192190        if(iadv(iq) == 0) then
    193        
    194           cycle
    195        
    196         else if (iadv(iq)==10) then
     191       
     192          cycle
     193       
     194        else if (iadv(iq)==10) then
    197195
    198196#ifdef _ADV_HALO       
    199           call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
    200      &               ij_begin,ij_begin+2*iip1-1)
     197          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
     198     &                     ij_begin,ij_begin+2*iip1-1)
    201199          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
    202200     &               ij_end-2*iip1+1,ij_end)
    203201#else
    204           call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
    205      &               ij_begin,ij_end)
     202          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
     203     &                     ij_begin,ij_end)
    206204#endif
    207205
    … …  
    215213          call VTe(VTHallo)
    216214c$OMP END MASTER
    217         else if (iadv(iq)==14) then
     215        else if (iadv(iq)==14) then
    218216
    219217#ifdef _ADV_HALO           
    … …  
    239237c$OMP END MASTER
    240238        else
    241        
    242           stop 'vlspltgen_p : schema non parallelise'
     239       
     240          stop 'vlspltgen_p : schema non parallelise'
    243241     
    244242        endif
    … …  
    261259
    262260        if(iadv(iq) == 0) then
    263        
    264           cycle
    265        
    266         else if (iadv(iq)==10) then
     261       
     262          cycle
     263       
     264        else if (iadv(iq)==10) then
    267265
    268266#ifdef _ADV_HALLO
    … …  
    270268     &               ij_begin+2*iip1,ij_end-2*iip1)
    271269#endif       
    272         else if (iadv(iq)==14) then
     270        else if (iadv(iq)==14) then
    273271#ifdef _ADV_HALLO
    274272          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
    … …  
    276274#endif   
    277275        else
    278        
    279           stop 'vlspltgen_p : schema non parallelise'
     276       
     277          stop 'vlspltgen_p : schema non parallelise'
    280278     
    281279        endif
    … …  
    301299
    302300        if(iadv(iq) == 0) then
    303        
    304           cycle
    305        
    306         else if (iadv(iq)==10) then
     301       
     302          cycle
     303       
     304        else if (iadv(iq)==10) then
    307305       
    308306          call vly_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv)
    309307 
    310         else if (iadv(iq)==14) then
     308        else if (iadv(iq)==14) then
    311309     
    312310          call vlyqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv,qsat)
    313311 
    314312        else
    315        
    316           stop 'vlspltgen_p : schema non parallelise'
     313       
     314          stop 'vlspltgen_p : schema non parallelise'
    317315     
    318316        endif
    … …  
    324322
    325323        if(iadv(iq) == 0) then
    326          
    327           cycle
    328        
    329         else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
     324         
     325          cycle
     326       
     327        else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
    330328
    331329c$OMP BARRIER       
    … …  
    350348c$OMP MASTER
    351349          call VTe(VTHallo)
    352 c$OMP END MASTER       
    353 c$OMP BARRIER
    354         else
    355        
    356           stop 'vlspltgen_p : schema non parallelise'
     350c$OMP END MASTER       
     351c$OMP BARRIER
     352        else
     353       
     354          stop 'vlspltgen_p : schema non parallelise'
    357355     
    358356        endif
    … …  
    369367c$OMP MASTER
    370368      call VTe(VTHallo)
    371 c$OMP END MASTER       
     369c$OMP END MASTER       
    372370
    373371c$OMP BARRIER
    … …  
    375373
    376374        if(iadv(iq) == 0) then
    377          
    378           cycle
    379        
    380         else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
     375         
     376          cycle
     377       
     378        else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
    381379c$OMP BARRIER       
    382380
    … …  
    388386c$OMP BARRIER       
    389387        else
    390        
    391           stop 'vlspltgen_p : schema non parallelise'
     388       
     389          stop 'vlspltgen_p : schema non parallelise'
    392390     
    393391        endif
    … …  
    414412
    415413        if(iadv(iq) == 0) then
    416        
    417           cycle
    418        
    419         else if (iadv(iq)==10) then
     414       
     415          cycle
     416       
     417        else if (iadv(iq)==10) then
    420418       
    421419          call vly_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv)
    422420 
    423         else if (iadv(iq)==14) then
     421        else if (iadv(iq)==14) then
    424422     
    425423          call vlyqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv,qsat)
    426424 
    427425        else
    428        
    429           stop 'vlspltgen_p : schema non parallelise'
     426       
     427          stop 'vlspltgen_p : schema non parallelise'
    430428     
    431429        endif
    … …  
    436434
    437435        if(iadv(iq) == 0) then
    438          
    439           cycle
    440        
    441         else if (iadv(iq)==10) then
     436         
     437          cycle
     438       
     439        else if (iadv(iq)==10) then
    442440       
    443441          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
    444442     &               ij_begin,ij_end)
    445443 
    446         else if (iadv(iq)==14) then
     444        else if (iadv(iq)==14) then
    447445     
    448446          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
    … …  
    450448 
    451449        else
    452        
     450       
    453451          stop 'vlspltgen_p : schema non parallelise'
    454452     
    … …  
    469467           DO ij=ijb,ije
    470468c             print *,'zq-->',ij,l,iq,zq(ij,l,iq)
    471 c            print *,'q-->',ij,l,iq,q(ij,l,iq)
    472              q(ij,l,iq)=zq(ij,l,iq)
     469c             print *,'q-->',ij,l,iq,q(ij,l,iq)
     470             q(ij,l,iq)=zq(ij,l,iq)
    473471           ENDDO
    474472        ENDDO

  • LMDZ5/branches/testing/libf/dyn3dpar/vlspltqs_p.F

    r1910 r2641  
    2525      USE mod_hallo
    2626      USE VAMPIR
     27      USE comconst_mod, ONLY: cpp
    2728      IMPLICIT NONE
    2829
    … …  
    3031#include "dimensions.h"
    3132#include "paramet.h"
    32 #include "logic.h"
    33 #include "comvert.h"
    34 #include "comconst.h"
    3533
    3634c
    … …  
    236234#include "dimensions.h"
    237235#include "paramet.h"
    238 #include "logic.h"
    239 #include "comvert.h"
    240 #include "comconst.h"
    241236c
    242237c
    … …  
    584579c   --------------------------------------------------------------------
    585580      USE parallel_lmdz
     581      USE comconst_mod, ONLY: pi
    586582      IMPLICIT NONE
    587583c
    588584#include "dimensions.h"
    589585#include "paramet.h"
    590 #include "logic.h"
    591 #include "comvert.h"
    592 #include "comconst.h"
    593586#include "comgeom.h"
    594587c

  • LMDZ5/branches/testing/libf/dyn3dpar/writedynav_p.F

    r1910 r2641  
    1212      USE misc_mod
    1313      USE infotrac
     14      USE comconst_mod, ONLY: cpp
     15      USE temps_mod, ONLY: itau_dyn
     16     
    1417      implicit none
    1518
    … …  
    4245#include "dimensions.h"
    4346#include "paramet.h"
    44 #include "comconst.h"
    45 #include "comvert.h"
    4647#include "comgeom.h"
    47 #include "temps.h"
    48 #include "ener.h"
    49 #include "logic.h"
    5048#include "description.h"
    51 #include "serre.h"
    5249#include "iniprint.h"
    5350

  • LMDZ5/branches/testing/libf/dyn3dpar/writehist_p.F

    r1910 r2641  
    1212      USE misc_mod
    1313      USE infotrac
     14      USE temps_mod, ONLY: itau_dyn
     15     
    1416      implicit none
    1517
    … …  
    4345#include "dimensions.h"
    4446#include "paramet.h"
    45 #include "comconst.h"
    46 #include "comvert.h"
    4747#include "comgeom.h"
    48 #include "temps.h"
    49 #include "ener.h"
    50 #include "logic.h"
    5148#include "description.h"
    52 #include "serre.h"
    5349#include "iniprint.h"
    5450
Note: See TracChangeset for help on using the changeset viewer.