Changeset 5233


Ignore:
Timestamp:
Sep 26, 2024, 4:45:13 PM (2 months ago)
Author:
abarral
Message:

Change abort_gcm -> abort_physic in physics
(Continues r5217)

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/Dust/checknanqfi.F90

    r2630 r5233  
    2525        DO i = 1, jbad
    2626           WRITE(*,*) "i,k,q=", jadrs(i),k,zq(jadrs(i),k)
    27            CALL abort_gcm(comment, 'NaN founded',1)
     27           CALL abort_physic(comment, 'NaN founded',1)
    2828        ENDDO
    2929     ENDIF
  • LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.F90

    r3806 r5233  
    349349
    350350  if (sizedustmin>sizeacclow .or. sizedustmax<sizescohigh) then
    351    call abort_gcm('adaptdustemission', 'Dust range problem',1)
     351   call abort_physic('adaptdustemission', 'Dust range problem',1)
    352352  endif
    353353  print *,'FINE DUST BIN: tuning EMISSION factor= ',tuningfactorfine
  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5084 r5233  
    14351435        if (ok_chimeredust) then
    14361436          if (.not.( id_scdu>0 .and. id_codu>0 .and. id_fine>0)) then
    1437              call abort_gcm('phytracr_mod', 'pb in ok_chimdust 0',1)
     1437             call abort_physic('phytracr_mod', 'pb in ok_chimdust 0',1)
    14381438          endif
    14391439        else
    14401440          if (id_scdu>0) then
    1441        call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1 SCDU',1)
     1441       call abort_physic('phytracr_mod', 'pb in ok_chimdust 1 SCDU',1)
    14421442          endif
    14431443          if ( (id_codu .le. 0) .or. ( id_fine.le.0)  ) then 
    1444           call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1',1)
     1444          call abort_physic('phytracr_mod', 'pb in ok_chimdust 1',1)
    14451445          endif
    14461446       endif
     
    46064606             print *,'error ierr= ',ierr
    46074607             CALL exit(1)
    4608             call abort_gcm('read_scalenc','error reading variable',1)
     4608            call abort_physic('read_scalenc','error reading variable',1)
    46094609      ENDIF
    46104610
Note: See TracChangeset for help on using the changeset viewer.