Ignore:
Timestamp:
May 9, 2025, 9:22:41 AM (4 weeks ago)
Author:
emillour
Message:

Mars PCM:
More code tidying: puting routines in modules and modernizing some old
constructs. Tested to not change results with respect to previous version.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/lwtt.F

    r1266 r3757  
     1      module lwtt_mod
     2     
     3      implicit none
     4     
     5      contains
     6     
    17      subroutine lwtt (kdlon,u,up,nu,tr)
    28
    … …  
    5965
    6066c----------------------------------------------------------------------
    61       return
    62       end
     67
     68      end subroutine lwtt
     69
     70      end module lwtt_mod
Note: See TracChangeset for help on using the changeset viewer.