Ignore:
Timestamp:
Oct 28, 2024, 10:47:48 AM (15 months ago)
Author:
abarral
Message:

Turn comdissip.h, comdissipn.h, comdissnew.h into modules

Location:
LMDZ6/trunk/libf/dyn3d_common
Files:
11 edited
3 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/adaptdt.f90

    r5272 r5280  
    55        masse)
    66
     7  USE comdissip_mod_h
    78  USE comconst_mod, ONLY: dtvr
    89  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    1314
    1415
    15   include "comdissip.h"
    1616  include "comgeom2.h"
    1717  include "description.h"

  • LMDZ6/trunk/libf/dyn3d_common/comdissip_mod_h.f90

    r5279 r5280  
    1 !
    2 ! $Header$
    3 !
    4 !-----------------------------------------------------------------------
    5 ! INCLUDE comdissip.h
     1! Replaces comdissip.h
     2MODULE comdissip_mod_h
     3  IMPLICIT NONE; PRIVATE
     4  PUBLIC coefdis, tetavel, tetatemp, gamdissip, niterdis
    65
    7       COMMON/comdissip/                                                 &
    8      &    niterdis,coefdis,tetavel,tetatemp,gamdissip
    9 
    10 
    11       INTEGER niterdis
    12 
    13       REAL tetavel,tetatemp,coefdis,gamdissip
    14 
    15 !-----------------------------------------------------------------------
     6  INTEGER niterdis
     7  REAL tetavel, tetatemp, coefdis, gamdissip
     8END MODULE comdissip_mod_h

  • LMDZ6/trunk/libf/dyn3d_common/comdissipn_mod_h.f90

    r5279 r5280  
    1 !
    2 ! $Header$
    3 !
    4 !  Attention : ce fichier include est compatible format fixe/format libre
    5 !                 veillez à n'utiliser que des ! pour les commentaires
    6 !                 et à bien positionner les & des lignes de continuation
    7 !                 (les placer en colonne 6 et en colonne 73)
    8 !-----------------------------------------------------------------------
    9 ! INCLUDE comdissipn.h
     1! Replaces comdissipn.h
     2MODULE comdissipn_mod_h
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    106
    11       REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    12 !
    13       COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
    14      &                        cdivu,      crot,         cdivh
    157
    16 !
    17 !    Les parametres de ce common proviennent des calculs effectues dans
    18 !             Inidissip  .
    19 !
    20 !-----------------------------------------------------------------------
     8
     9  REAL tetaudiv(llm), tetaurot(llm), tetah(llm), cdivu, crot, cdivh
     10END MODULE comdissipn_mod_h

  • LMDZ6/trunk/libf/dyn3d_common/comdissnew_mod_h.f90

    r5279 r5280  
    1 !
    2 ! $Id$
    3 !
    4 !
    5 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    6 !                 veillez à n'utiliser que des ! pour les commentaires
    7 !                 et à bien positionner les & des lignes de continuation
    8 !                 (les placer en colonne 6 et en colonne 73)
    9 !
    10 !-----------------------------------------------------------------------
    11 ! INCLUDE 'comdissnew.h'
     1! Replaces comdissnew.h
    122
    13       COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv,  &
    14      &                   tetagrot,tetatemp,coefdis, vert_prof_dissip
     3MODULE comdissnew_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
     6          tetagrot, tetatemp, coefdis, vert_prof_dissip
    157
    16       LOGICAL lstardis
    17       INTEGER nitergdiv, nitergrot, niterh
     8  LOGICAL lstardis
     9  INTEGER nitergdiv, nitergrot, niterh
    1810
    19       integer vert_prof_dissip ! vertical profile of horizontal dissipation
    20 !     Allowed values:
    21 !     0: rational fraction, function of pressure
    22 !     1: tanh of altitude
     11  INTEGER vert_prof_dissip ! vertical profile of horizontal dissipation
     12  !     Allowed values:
     13  !     0: rational fraction, function of pressure
     14  !     1: tanh of altitude
    2315
    24       REAL     tetagdiv, tetagrot,  tetatemp, coefdis
    25 
    26 !
    27 ! ... Les parametres de ce common comdissnew sont  lues par defrun_new
    28 !              sur le fichier  run.def    ....
    29 !
    30 !-----------------------------------------------------------------------
     16  REAL     tetagdiv, tetagrot, tetatemp, coefdis
     17  ! ... Les parametres de ce lmdz_comdissnew sont  lues par defrun_new
     18  !              sur le fichier  run.def    ....
     19END MODULE comdissnew_mod_h

  • LMDZ6/trunk/libf/dyn3d_common/divgrad.f90

    r5272 r5280  
    33!
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
     5  USE comdissipn_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2627
    2728  include "comgeom.h"
    28   include "comdissipn.h"
    2929  !
    3030  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/divgrad2.f90

    r5272 r5280  
    1313  !     divgra     est  un argument  de sortie pour le s-prg
    1414  !
     15  USE comdissipn_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2122
    2223  INCLUDE "comgeom2.h"
    23   INCLUDE "comdissipn.h"
    2424
    2525  !    .......    variables en arguments   .......

  • LMDZ6/trunk/libf/dyn3d_common/gradiv.f90

    r5272 r5280  
    1717  !
    1818  !
     19  USE comdissipn_mod_h
    1920  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2021USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526
    26   include "comdissipn.h"
    2727
    2828  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/gradiv2.f90

    r5272 r5280  
    1616  !
    1717  !
     18  USE comdissipn_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1920USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526  INCLUDE "comgeom.h"
    26   INCLUDE "comdissipn.h"
    2727  !
    2828  ! ........    variables en arguments      ........

  • LMDZ6/trunk/libf/dyn3d_common/inidissip.f90

    r5272 r5280  
    1111  !   -------------
    1212
     13  USE comdissipn_mod_h
    1314  USE control_mod, only : dissip_period,iperiod
    1415  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
    … …  
    2223
    2324
    24   include "comdissipn.h"
    2525  include "iniprint.h"
    2626

  • LMDZ6/trunk/libf/dyn3d_common/inigeom.f90

    r5272 r5280  
    1616  !
    1717  !
     18  USE comdissnew_mod_h
    1819  use fxhyp_m, only: fxhyp
    1920  use fyhyp_m, only: fyhyp
    … …  
    3031
    3132  include "comgeom2.h"
    32   include "comdissnew.h"
    3333
    3434  !-----------------------------------------------------------------------

  • LMDZ6/trunk/libf/dyn3d_common/interpre.f90

    r5272 r5280  
    66         unatppm,vnatppm,psppm)
    77
     8  USE comdissip_mod_h
    89  USE comconst_mod, ONLY: g
    910  USE comvert_mod, ONLY: ap, bp
    … …  
    1617
    1718
    18   include "comdissip.h"
    1919  include "comgeom2.h"
    2020  include "description.h"

  • LMDZ6/trunk/libf/dyn3d_common/nxgraro2.f90

    r5272 r5280  
    1515  !
    1616  !
     17  USE comdissipn_mod_h
    1718  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1819USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2223
    2324
    24   INCLUDE "comdissipn.h"
    2525  !
    2626  !    ......  variables en arguments  .......

  • LMDZ6/trunk/libf/dyn3d_common/nxgrarot.f90

    r5272 r5280  
    1616  !
    1717  !
     18  USE comdissipn_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1920USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526
    26   include "comdissipn.h"
    2727  !
    2828  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/traceurpole.f90

    r5272 r5280  
    44    subroutine traceurpole(q,masse)
    55
    6       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6      USE comdissip_mod_h
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    78USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    89          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    … …  
    1112
    1213
    13   include "comdissip.h"
    1414  include "comgeom2.h"
    1515  include "description.h"
Note: See TracChangeset for help on using the changeset viewer.