Ignore:
Timestamp:
Jul 22, 2024, 9:29:09 PM (2 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/misc/pres2lev_mod.F90

    r1983 r5099  
    11! $Id: pres2lev.F 1179 2009-06-11 14:18:47Z jghattas $
    2 !
     2
    33MODULE pres2lev_mod
    44
    … …  
    77!******************************************************
    88SUBROUTINE pres2lev(varo,varn,lmo,lmn,po,pn,ni,nj,ok_invertp)
    9 !
     9
    1010! interpolation lineaire pour passer
    1111! a une nouvelle discretisation verticale pour
    … …  
    2020!   Declarations:
    2121! ==============
    22 !
     22
    2323!  ARGUMENTS
    2424!  """""""""
Note: See TracChangeset for help on using the changeset viewer.