Ignore:
Timestamp:
Oct 22, 2024, 5:32:42 PM (9 months ago)
Author:
abarral
Message:

Wrap uses of cpp key CPP_INLANDSIS
Symlink inlandsis in iso

Location:
LMDZ6/trunk/libf/phylmd/inlandsis
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90

    r5246 r5259  
    262262  !      IRs__D(ig) = dIRsdT(ig)* Tsf_SV(ig) * 0.75 !TsisSV(ig,isl) * 0.75    !:
    263263      dIRsdT(ig) = Eso_sv(ig)* StefBo   * 4.                        & ! - d(IR)/d(T)
    264             * TsisSV(ig,isl)                     & !
    265             * TsisSV(ig,isl)                     & !
    266             * TsisSV(ig,isl)                     & !
     264            * TsisSV(ig,isl)                     &
     265            * TsisSV(ig,isl)                     &
     266            * TsisSV(ig,isl)
    267267      IRs__D(ig) = dIRsdT(ig)* TsisSV(ig,isl) * 0.75                  !:
    268268     END DO

  • LMDZ6/trunk/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

    r5084 r5259  
    10541054        !    include "dimsoil.h"
    10551055        include "clesphys.h"
    1056         include "thermcell.h"
    10571056        include "compbl.h"
    10581057
    … …  
    12881287
    12891288        include "netcdf.inc"
    1290         !    include "indicesol.h"
    1291         !    include "dimsoil.h"
    12921289        include "clesphys.h"
    1293         include "thermcell.h"
    12941290        include "compbl.h"
    12951291
Note: See TracChangeset for help on using the changeset viewer.