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/phylmd/inlandsis/VARxSV.F90

    r3900 r5099  
    201201      INTEGER,DIMENSION(nb_wri),SAVE ::   lwriSV  ! OUTPUT point vec Index         
    202202!$OMP THREADPRIVATE(lwriSV)
    203 !                                                                             
     203
    204204      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   ii__SV  ! WORK   point   i Coordinate     
    205205!$OMP THREADPRIVATE(ii__SV)
    … …  
    329329! +--SISVAT OUTPUT       Variables                                           
    330330! +  -----------------------------                                           
    331                                                                                
    332 !                                                                             
     331
    333332      ALLOCATE(ii__SV(klonv))  ! WORK   point   i Coordinate     
    334333      ALLOCATE(jj__SV(klonv))  ! WORK   point   j Coordinate     
Note: See TracChangeset for help on using the changeset viewer.