Changeset 5217 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
- Timestamp:
- Sep 23, 2024, 2:14:55 PM (5 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5209 r5217 1776 1776 #ifdef ISO 1777 1777 write(*,*) 'physiq 1846a: ok_isotopes,ntraciso,niso=',niso>0,ntraciso,niso 1778 IF(niso <= 0) CALL abort_ gcm('physiq 1756','options iso incompatibles',1)1778 IF(niso <= 0) CALL abort_physic('physiq 1756','options iso incompatibles',1) 1779 1779 #ifdef ISOTRAC 1780 IF(nzone <= 0) CALL abort_ gcm('physiq 1758','options isotrac incompatibles',1)1780 IF(nzone <= 0) CALL abort_physic('physiq 1758','options isotrac incompatibles',1) 1781 1781 #else 1782 IF(nzone > 0) CALL abort_ gcm('physiq 1762','options isotrac incompatibles',1)1782 IF(nzone > 0) CALL abort_physic('physiq 1762','options isotrac incompatibles',1) 1783 1783 #endif 1784 1784 #else 1785 if(niso > 0) CALL abort_ gcm('physiq 1772','options iso incompatibles',1)1785 if(niso > 0) CALL abort_physic('physiq 1772','options iso incompatibles',1) 1786 1786 #endif 1787 1787 … … 3675 3675 ELSE IF (iflag_con.EQ.2) THEN 3676 3676 #ifdef ISO 3677 CALL abort_ gcm('physiq 2770','isos pas prevus ici',1)3677 CALL abort_physic('physiq 2770','isos pas prevus ici',1) 3678 3678 #endif 3679 3679 CALL conflx(phys_tstep, paprs, pplay, t_seri, q_seri, & … … 7012 7012 IF (mass_fixer) THEN 7013 7013 #ifdef ISO 7014 CALL abort_ gcm('physiq 6936','isos pas prevus dans le mass fixer',1)7014 CALL abort_physic('physiq 6936','isos pas prevus dans le mass fixer',1) 7015 7015 ! Camille Risi mai 2024: on attend d'avoir la 4e dimension qui rendra tout plus simple. 7016 7016 #endif
Note: See TracChangeset
for help on using the changeset viewer.