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/misc/regr_conserv_m.F90

    r3069 r5099  
    4040
    4141!-------------------------------------------------------------------------------
    42 !
     42
    4343SUBROUTINE regr1_conserv(ix, vs, xs, xt, vt, slope)
    44 !
     44
    4545!-------------------------------------------------------------------------------
    4646! Arguments:
    … …  
    9393
    9494END SUBROUTINE regr1_conserv
    95 !
    96 !-------------------------------------------------------------------------------
    97 
    98 
    99 !-------------------------------------------------------------------------------
    100 !
     95
     96!-------------------------------------------------------------------------------
     97
     98
     99!-------------------------------------------------------------------------------
     100
    101101SUBROUTINE regr2_conserv(ix, vs, xs, xt, vt, slope)
    102 !
     102
    103103!-------------------------------------------------------------------------------
    104104! Arguments:
    … …  
    153153
    154154END SUBROUTINE regr2_conserv
    155 !
    156 !-------------------------------------------------------------------------------
    157 
    158 
    159 !-------------------------------------------------------------------------------
    160 !
     155
     156!-------------------------------------------------------------------------------
     157
     158
     159!-------------------------------------------------------------------------------
     160
    161161SUBROUTINE regr3_conserv(ix, vs, xs, xt, vt, slope)
    162 !
     162
    163163!-------------------------------------------------------------------------------
    164164! Arguments:
    … …  
    215215
    216216END SUBROUTINE regr3_conserv
    217 !
    218 !-------------------------------------------------------------------------------
    219 
    220 
    221 !-------------------------------------------------------------------------------
    222 !
     217
     218!-------------------------------------------------------------------------------
     219
     220
     221!-------------------------------------------------------------------------------
     222
    223223SUBROUTINE regr4_conserv(ix, vs, xs, xt, vt, slope)
    224 !
     224
    225225!-------------------------------------------------------------------------------
    226226! Arguments:
    … …  
    279279
    280280END SUBROUTINE regr4_conserv
    281 !
    282 !-------------------------------------------------------------------------------
    283 
    284 
    285 !-------------------------------------------------------------------------------
    286 !
     281
     282!-------------------------------------------------------------------------------
     283
     284
     285!-------------------------------------------------------------------------------
     286
    287287SUBROUTINE regr5_conserv(ix, vs, xs, xt, vt, slope)
    288 !
     288
    289289!-------------------------------------------------------------------------------
    290290! Arguments:
    … …  
    345345
    346346END SUBROUTINE regr5_conserv
    347 !
    348 !-------------------------------------------------------------------------------
    349 
    350 
    351 !-------------------------------------------------------------------------------
    352 !
     347
     348!-------------------------------------------------------------------------------
     349
     350
     351!-------------------------------------------------------------------------------
     352
    353353SUBROUTINE check_size(ix,svs,svt,xs,xt,ns,nt)
    354 !
     354
    355355!-------------------------------------------------------------------------------
    356356! Arguments:
    … …  
    382382
    383383END SUBROUTINE check_size
    384 !
     384
    385385!-------------------------------------------------------------------------------
    386386
Note: See TracChangeset for help on using the changeset viewer.