Changeset 5233
- Timestamp:
- Sep 26, 2024, 4:45:13 PM (2 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd/Dust
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/checknanqfi.F90
r2630 r5233 25 25 DO i = 1, jbad 26 26 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) 28 28 ENDDO 29 29 ENDIF -
LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.F90
r3806 r5233 349 349 350 350 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) 352 352 endif 353 353 print *,'FINE DUST BIN: tuning EMISSION factor= ',tuningfactorfine -
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5084 r5233 1435 1435 if (ok_chimeredust) then 1436 1436 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) 1438 1438 endif 1439 1439 else 1440 1440 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) 1442 1442 endif 1443 1443 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) 1445 1445 endif 1446 1446 endif … … 4606 4606 print *,'error ierr= ',ierr 4607 4607 CALL exit(1) 4608 call abort_ gcm('read_scalenc','error reading variable',1)4608 call abort_physic('read_scalenc','error reading variable',1) 4609 4609 ENDIF 4610 4610
Note: See TracChangeset
for help on using the changeset viewer.