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/phylmd/inlandsis/sisvat_tso.F

    r5093 r5099  
    467467
    468468        if(ist__s==1) then ! to reduce computer time                                                 
    469                                           !
     469
    470470        DO it_srf=1,nt_srf                                     !
    471471              dt_ver       = dt_ver     +dt_srf                !
    … …  
    481481            DO ikl=1,knonv
    482482              ist    = max(0,isotSV(ikl)-100*isnoSV(ikl))      ! 0 if    H2O
    483                                                                !
     483
    484484              Psi(ikl) =                                       !
    485485     .                psidSV(ist)                              ! DR97, Eqn 3.34
Note: See TracChangeset for help on using the changeset viewer.