Changeset 5231 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

Timestamp:

Sep 25, 2024, 1:34:49 PM (3 weeks ago)

Author:

abarral

Message:

Merge r5217

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmdiso/limit_read_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

@@ -518 +518 @@
              IF ((iso_HTO.gt.0).AND.(ok_prod_nucl_tritium)) THEN
                ierr = nf90_inq_varid(nid, 'TUOCE', nvarid)
-               IF (ierr /= nf90_noerr) CALL abort_gcm(modname,'Le champ <TUOCE> est absent',1)
+               IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <TUOCE> est absent',1)
 
                ierr = nf90_get_var(nid,nvarid,tuoce_glo,start,epais)
-               IF (ierr /= nf90_noerr) CALL abort_gcm(modname,'Lecture echouee pour <TUOCE>',1)
+               IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Lecture echouee pour <TUOCE>',1)
              END IF
 #ifdef ISOVERIF