Ignore:
Timestamp:
Oct 30, 2024, 7:07:56 PM (22 hours ago)
Author:
abarral
Message:

Turn YOMCST2.h.h into module

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/yomcst2_mod_h.f90

    r5303 r5304  
     1MODULE yomcst2_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, &
     4          Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab
    15
    2       INTEGER choice, iflag_mix, iflag_mix_adiab
    3       REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
    4       REAL  Qcoef1max,Qcoef2max,Supcrit1,Supcrit2
    5       REAL coef_clos_ls
    6 !
    7       COMMON/YOMCST2/gammas,    alphas, betas, Fmax, scut,              &
    8      &               qqa1, qqa2, qqa3,                                  &
    9      &               Qcoef1max,Qcoef2max,                               &
    10      &               Supcrit1, Supcrit2,                                &
    11      &               choice,iflag_mix,coef_clos_ls,iflag_mix_adiab
    12 !$OMP THREADPRIVATE(/YOMCST2/)
    13 !    --------------------------------------------------------------------
     6  INTEGER choice, iflag_mix, iflag_mix_adiab
     7  REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
     8  REAL  Qcoef1max, Qcoef2max, Supcrit1, Supcrit2
     9  REAL coef_clos_ls
    1410
     11  !$OMP THREADPRIVATE(gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, &
     12  !$OMP     Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab)
     13END MODULE yomcst2_mod_h
Note: See TracChangeset for help on using the changeset viewer.