Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (7 weeks ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F90

    r5136 r5158  
    671671        CALL geopot(ip1jmp1, teta, pk, pks, phis, phi)
    672672        unat = 0.
    673         do l = 1, llm
     673        DO l = 1, llm
    674674          unat(iip2:ip1jm, l) = ucov(iip2:ip1jm, l) / cu(iip2:ip1jm)
    675675          vnat(:, l) = vcov(:, l) / cv(:)
    … …  
    795795        CALL geopot(ip1jmp1, teta, pk, pks, phis, phi)
    796796        unat = 0.
    797         do l = 1, llm
     797        DO l = 1, llm
    798798          unat(iip2:ip1jm, l) = ucov(iip2:ip1jm, l) / cu(iip2:ip1jm)
    799799          vnat(:, l) = vcov(:, l) / cv(:)
Note: See TracChangeset for help on using the changeset viewer.