Ignore:
Timestamp:
Feb 10, 2026, 5:01:45 PM (4 days ago)
Author:
emillour
Message:

Generic PCM:
Minor fix in "ini_slab_transp" so it can be compiled without the IOIPSL library
at hand.
NC+EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phygeneric/slab_heat_transp_mod.F90

    r3893 r4062  
    140140  SUBROUTINE ini_slab_transp(zmasq)
    141141
    142 !    USE ioipsl_getin_p_mod, only: getin_p
     142! Since routine is called by master only, it should use getin, not getin_p
     143#ifdef CPP_IOIPSL
    143144    USE IOIPSL, ONLY : getin
     145#else
     146    USE ioipsl_getincom, ONLY: getin
     147#endif
    144148    USE comcstfi_mod, ONLY: omeg, rad
    145149    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.