Ignore:
Timestamp:
Jul 18, 2024, 9:28:57 AM (2 months ago)
Author:
abarral
Message:

Transform gr_dyn_fi_p.F, gr_fi_dyn_p.F, calfis_loc.F into free-form modules.
Reorder CPP_PARA keys in lmdz_call_calfis.F90, lmdz_calfis_loc.F90, lmdz_gr_dyn_fi_p.F90, lmdz_gr_fi_dyn_p.F90 to avoid implicit declarations.
Remove redundant -cpp -D.. on arch.
Correct "!OMP" -> "!$OMP"
Correct typo in lmdz_xios.F90, wstats.F90

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

    r5050 r5066  
    351351!$OMP THREADPRIVATE(d_deltat_vdf, d_deltaq_vdf)
    352352!!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)          :: d_s_vdf, d_dens_vdf
    353 !!!OMP THREADPRIVATE(d_s_vdf, d_dens_vdf)
     353!!!$OMP THREADPRIVATE(d_s_vdf, d_dens_vdf)
    354354    REAL, SAVE, ALLOCATABLE,DIMENSION(:,:)          :: d_deltat_the, d_deltaq_the
    355355!$OMP THREADPRIVATE(d_deltat_the, d_deltaq_the)
    356356!!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)          :: d_s_the, d_dens_the
    357 !!!OMP THREADPRIVATE(d_s_the, d_dens_the)
     357!!!$OMP THREADPRIVATE(d_s_the, d_dens_the)
    358358      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)           :: d_deltat_ajs_cv, d_deltaq_ajs_cv
    359359!$OMP THREADPRIVATE(d_deltat_ajs_cv, d_deltaq_ajs_cv)                       

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5050 r5066  
    13551355    !lwoff=y : offset LW CRE for radiation code and other schemes
    13561356    REAL, SAVE :: betalwoff
    1357     !OMP THREADPRIVATE(betalwoff)
     1357    !$OMP THREADPRIVATE(betalwoff)
    13581358!
    13591359    INTEGER :: nbtr_tmp ! Number of tracer inside concvl
Note: See TracChangeset for help on using the changeset viewer.