Changeset 3782 for LMDZ6/branches


Ignore:
Timestamp:
Nov 4, 2020, 4:49:54 PM (4 years ago)
Author:
fhourdin
Message:

Modification cosmetique pour tourner en 1D sur des gfortran récents.

Location:
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/dyn1d/1DUTILS.h

    r3008 r3782  
    35693569        read (ilesfile,*) kmax2,nt1,nt2
    35703570        if (nt2>ntrac) then
    3571           stop'Augmenter le nombre de traceurs dans traceur.def'
     3571          stop 'Augmenter le nombre de traceurs dans traceur.def'
    35723572        endif
    35733573        if (kmax .ne. kmax2) then

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/dyn1d/lmdz1d.F90

    r2983 r3782  
    582582      call infotrac_init
    583583
    584       if (nqtot>nqmx) STOP'Augmenter nqmx dans lmdz1d.F'
     584      if (nqtot>nqmx) STOP 'Augmenter nqmx dans lmdz1d.F'
    585585      allocate(q(llm,nqtot)) ; q(:,:)=0.
    586586      allocate(dq(llm,nqtot))
Note: See TracChangeset for help on using the changeset viewer.