Ignore:
Timestamp:
Jul 23, 2024, 7:14:34 PM (4 months ago)
Author:
abarral
Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

    r5103 r5105  
    23812381         enddo
    23822382     enddo
    2383      return
     2383
    23842384  END SUBROUTINE  correctbid
    23852385
    … …  
    24152415    CALL barrier
    24162416
    2417     return
     2417
    24182418    END SUBROUTINE  dump2du
    24192419
    … …  
    24302430     CALL dump2du(unat2(:,jjbu:jjeu,nlevnc),'  unat2 couche nlevnc')
    24312431     CALL dump2du(ugui1(ijb_u:ije_u,1)*sqrt(unscu2(ijb_u:ije_u)),'  ugui1 couche 1')
    2432      return
     2432
    24332433END SUBROUTINE  dumpall
    24342434
Note: See TracChangeset for help on using the changeset viewer.