Ignore:
Timestamp:
Apr 4, 2018, 8:04:13 AM (7 years ago)
Author:
emillour
Message:

Mars GCM:

  • Forgotten in previous commit: gwprofil.F -> gwprofil_mod.F (here also the

size of an argument, rho, was incorrect in caller orodrag).

  • Turned newsedim.F into a module newsedim_mod.F
  • Adapted co2cloud.F and improvedCO2clouds.F to not use "newunit" to open file

(it is perfectly legitimate F2008 Fortran, but older compiler such as gfortran
on local LMD machines are not there yet).
EM

File:
1 moved

Legend:

Unmodified
Added
Removed

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

    r1911 r1913  
     1      MODULE gwprofil_mod
     2     
     3      IMPLICIT NONE
     4     
     5      CONTAINS
     6     
    17      SUBROUTINE GWPROFIL
    28     *         ( klon, klev
    … …  
    211217 531  CONTINUE       
    212218
    213       RETURN
    214       END
     219      END SUBROUTINE GWPROFIL
     220
     221      END MODULE gwprofil_mod
Note: See TracChangeset for help on using the changeset viewer.