nuage_params_mod_h.f90 Source File


Contents


Source Code

! Replaces nuage.h

MODULE nuage_params_mod_h
  IMPLICIT NONE; PRIVATE
  PUBLIC rad_froid, rad_chau1, rad_chau2, &
          tau_cld_cv, coefw_cld_cv, &
          tmax_fonte_cv, iflag_ratqs, &
          iflag_cld_cv, &
          ok_icefra_lscp

  REAL rad_froid, rad_chau1, rad_chau2
  REAL tau_cld_cv, coefw_cld_cv
  REAL tmax_fonte_cv
  INTEGER iflag_cld_cv, iflag_ratqs
  LOGICAL ok_icefra_lscp

  !$OMP THREADPRIVATE(rad_froid,rad_chau1, rad_chau2,                 &
  !$OMP                    tau_cld_cv,coefw_cld_cv,                        &
  !$OMP                    tmax_fonte_cv,iflag_ratqs,                      &
  !$OMP                    iflag_cld_cv,                                   &
  !$OMP                    ok_icefra_lscp)

END MODULE nuage_params_mod_h