Ignore:
Timestamp:
Jul 22, 2024, 9:29:09 PM (4 months ago)
Author:
abarral
Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

    r5087 r5099  
    11MODULE init_ssrf_m
    2 !
     2
    33!*******************************************************************************
    44
    … …  
    2424
    2525!-------------------------------------------------------------------------------
    26 !
     26
    2727SUBROUTINE start_init_subsurf(known_mask)
    28 !
     28
    2929!-------------------------------------------------------------------------------
    3030! Purpose: Subsurfaces initialization.
    … …  
    141141
    142142END SUBROUTINE start_init_subsurf
    143 !
     143
    144144!-------------------------------------------------------------------------------
    145145
    146146END MODULE init_ssrf_m
    147 !
     147
    148148!*******************************************************************************
Note: See TracChangeset for help on using the changeset viewer.