Ignore:
Timestamp:
Apr 26, 2025, 8:20:13 PM (7 weeks ago)
Author:
emillour
Message:

Mars PCM:
Code tidying: put routines in modules, remove useless "return" statements, etc.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3726 r3739  
     1      MODULE co2snow_mod
     2     
     3      IMPLICIT NONE
     4     
     5      CONTAINS
    16c=======================================================================
    27c     Program for simulate the impact of the CO2 snow fall on
    … …  
    138143c END
    139144c=======================================================================
    140       return
    141       end
     145      end subroutine co2snow
     146
     147      END MODULE co2snow_mod
Note: See TracChangeset for help on using the changeset viewer.