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

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

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cvflag.f90

    r5139 r5140  
     1! Replaces cvflag.h
    12
    2 ! $Header$
     3MODULE lmdz_cvflag
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC  icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     6          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    37
    4       LOGICAL cvflag_grav
    5       LOGICAL cvflag_ice
    6       LOGICAL ok_optim_yield
    7       LOGICAL ok_entrain
    8       LOGICAL ok_homo_tend
    9       LOGICAL ok_convstop
    10       LOGICAL ok_intermittent
    11       LOGICAL cvflag_prec_eject
    12       LOGICAL qsat_depends_on_qt
    13       LOGICAL adiab_ascent_mass_flux_depends_on_ejectliq
    14       LOGICAL keepbug_ice_frac
    15       INTEGER icvflag_Tpa
     8  LOGICAL cvflag_grav
     9  LOGICAL cvflag_ice
     10  LOGICAL ok_optim_yield
     11  LOGICAL ok_entrain
     12  LOGICAL ok_homo_tend
     13  LOGICAL ok_convstop
     14  LOGICAL ok_intermittent
     15  LOGICAL cvflag_prec_eject
     16  LOGICAL qsat_depends_on_qt
     17  LOGICAL adiab_ascent_mass_flux_depends_on_ejectliq
     18  LOGICAL keepbug_ice_frac
     19  INTEGER icvflag_Tpa
    1620
    17       COMMON /cvflag/ icvflag_Tpa, &
    18                       cvflag_grav, cvflag_ice, &
    19                       ok_optim_yield, &
    20                       ok_entrain, &
    21                       ok_homo_tend, &
    22                       ok_convstop, ok_intermittent, &
    23                       cvflag_prec_eject, &
    24                       qsat_depends_on_qt, &
    25                       adiab_ascent_mass_flux_depends_on_ejectliq, &
    26                       keepbug_ice_frac
    27 !$OMP THREADPRIVATE(/cvflag/)
     21  !$OMP THREADPRIVATE(icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     22  !$OMP      ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac)
     23END MODULE lmdz_cvflag
Note: See TracChangeset for help on using the changeset viewer.