Ignore:
Timestamp:
Oct 30, 2024, 7:29:21 PM (20 hours ago)
Author:
abarral
Message:

Turn YOMCST2.h.h into module

File:
1 moved

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/nuage_mod_h.f90

    r5304 r5305  
    1 !
    2 ! $Id$
    3 !
    4       REAL rad_froid, rad_chau1, rad_chau2
    5       REAL tau_cld_cv,coefw_cld_cv
    6       REAL tmax_fonte_cv
    7       INTEGER iflag_cld_cv, iflag_ratqs
    8       LOGICAL ok_icefra_lscp
     1! Replaces nuage.h
    92
    10       common /nuagecom/ rad_froid,rad_chau1, rad_chau2,                 &
    11      &                  tau_cld_cv,coefw_cld_cv,                        &
    12      &                  tmax_fonte_cv,iflag_ratqs,                      &
    13      &                  iflag_cld_cv,                                   &
    14      &                  ok_icefra_lscp                                 
    15 !$OMP THREADPRIVATE(/nuagecom/)
     3MODULE nuage_params_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC rad_froid, rad_chau1, rad_chau2, &
     6          tau_cld_cv, coefw_cld_cv, &
     7          tmax_fonte_cv, iflag_ratqs, &
     8          iflag_cld_cv, &
     9          ok_icefra_lscp
     10
     11  REAL rad_froid, rad_chau1, rad_chau2
     12  REAL tau_cld_cv, coefw_cld_cv
     13  REAL tmax_fonte_cv
     14  INTEGER iflag_cld_cv, iflag_ratqs
     15  LOGICAL ok_icefra_lscp
     16
     17  !$OMP THREADPRIVATE(rad_froid,rad_chau1, rad_chau2,                 &
     18  !$OMP                    tau_cld_cv,coefw_cld_cv,                        &
     19  !$OMP                    tmax_fonte_cv,iflag_ratqs,                      &
     20  !$OMP                    iflag_cld_cv,                                   &
     21  !$OMP                    ok_icefra_lscp)
     22
     23END MODULE nuage_params_mod_h
Note: See TracChangeset for help on using the changeset viewer.