Ignore:
Timestamp:
Jul 29, 2024, 10:57:23 AM (5 months ago)
Author:
abarral
Message:

Put comsoil.h, conema3.h, cvflag.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3d_common
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/control_mod.F90

    r5101 r5140  
    1 
    2 ! $Id $
    3 
    41MODULE control_mod
    5 
    6 ! LF 01/2010
    7 ! Remplacement du fichier et common control
    8 
    92  IMPLICIT NONE
    103

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diverg.f90

    r5136 r5140  
    1919  !    div      est  un argument  de sortie pour le s-prog
    2020  !
    21   !
    22   !   ---------------------------------------------------------------------
    23   !
    24   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    25   !
    26   !   ---------------------------------------------------------------------
     21
    2722  INCLUDE "dimensions.h"
    2823  INCLUDE "paramet.h"

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diverg_gam.f90

    r5136 r5140  
    2020  !    div      est  un argument  de sortie pour le s-prog
    2121  !
    22   !
    23   !   ---------------------------------------------------------------------
    24   !
    25   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    26   !
    27   !   ---------------------------------------------------------------------
    2822  INCLUDE "dimensions.h"
    2923  INCLUDE "paramet.h"

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergf.f90

    r5136 r5140  
    1919  !  x  et  y  sont des arguments  d'entree pour le s-prog
    2020  !    div      est  un argument  de sortie pour le s-prog
    21   !
    22   !
    23   !   ---------------------------------------------------------------------
    24   !
    25   !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
    26   !
    27   !   ---------------------------------------------------------------------
     21
    2822  INCLUDE "dimensions.h"
    2923  INCLUDE "paramet.h"

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/interpre.f90

    r5136 r5140  
    4040
    4141  ! CALCUL DE LA PRESSION DE SURFACE
    42   ! Les coefficients ap et bp sont passés en common
    4342  ! Calcul de la pression au sol en mb optimisée pour
    4443  ! la vectorialisation

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comdissnew.f90

    r5134 r5140  
    1515
    1616  REAL     tetagdiv, tetagrot, tetatemp, coefdis
    17   ! ... Les parametres de ce common comdissnew sont  lues par defrun_new
     17  ! ... Les parametres de ce lmdz_comdissnew sont  lues par defrun_new
    1818  !              sur le fichier  run.def    ....
    1919END MODULE lmdz_comdissnew
Note: See TracChangeset for help on using the changeset viewer.