Changeset 2674 for trunk/LMDZ.MARS


Ignore:
Timestamp:
May 2, 2022, 9:20:11 AM (3 years ago)
Author:
emillour
Message:

Mars GCM:
Fix minor issue with gfortran 11 not liking '#' as continuation markers
in fixed form Fortran.
MW

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/jthermcalc.F

    r2270 r2674  
    15131513              ilayesp(nlayesp) = j
    15141514              esp(nlayesp) =
    1515      #             sqrt( (radio+diz(j+1))**2 - rkmmini**2 ) -
    1516      #             sqrt( (radio+diz(j))**2 - rkmmini**2 )           ! [km]
     1515     &             sqrt( (radio+diz(j+1))**2 - rkmmini**2 ) -
     1516     &             sqrt( (radio+diz(j))**2 - rkmmini**2 )           ! [km]
    15171517              esp(nlayesp) = esp(nlayesp) * 1.d5                    ! [cm]
    15181518              rkmj = radio+diz(j)
Note: See TracChangeset for help on using the changeset viewer.