Ignore:
Timestamp:
Jul 23, 2025, 11:47:46 AM (4 months ago)
Author:
gmilcareck
Message:

Fix forgotten argument on some call abort_physic

Location:
trunk/LMDZ.GENERIC/libf/phystd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/initracer.F90

    r3724 r3864  
    506506        write(*,*) 'You have more Radiative Generic Condensable Species than Generic Condensable Species'
    507507        write(*,*)'This is not possible: check your Modern traceur.def'
    508         call abort_physic("initracer, issue with # of RGCS and GCS")
     508        call abort_physic("initracer, issue with # of RGCS and GCS",1)
    509509      endif
    510510

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r3816 r3864  
    558558             write(*,*) 'Data file ',trim(varspec_data),' not found.'
    559559             write(*,*) 'Check that the data is in your run repository.'
    560              call abort_physic !a verifier
     560             call abort !a verifier
    561561           else
    562562             do k=1,nvarlayer
Note: See TracChangeset for help on using the changeset viewer.