Changeset 5217 for LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
- Timestamp:
- Sep 23, 2024, 2:14:55 PM (5 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
r4776 r5217 1694 1694 IF (icvflag_Tpa == 2) THEN 1695 1695 #ifdef ISO 1696 CALL abort_ gcm('cv3_routines 1813','isos pas prevus ici',1)1696 CALL abort_physic('cv3_routines 1813','isos pas prevus ici',1) 1697 1697 #endif 1698 1698 ! … … 1808 1808 ! 1809 1809 #ifdef ISO 1810 CALL abort_ gcm('cv3_routines 1813','isos pas prevus ici',1)1810 CALL abort_physic('cv3_routines 1813','isos pas prevus ici',1) 1811 1811 #endif 1812 1812 DO k = minorig + 1, nl … … 3981 3981 IF (cvflag_prec_eject) THEN 3982 3982 #ifdef ISO 3983 CALL abort_ gcm('cv3_routines 4037','isos pas prevus ici',1)3983 CALL abort_physic('cv3_routines 4037','isos pas prevus ici',1) 3984 3984 #endif 3985 3985 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: See TracChangeset
for help on using the changeset viewer.