Changeset 5233 for LMDZ6/trunk/libf

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:

• checknanqfi.F90 (modified) (1 diff)
• dustemission_mod.F90 (modified) (1 diff)
• phytracr_spl_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/checknanqfi.F90

@@ -25 +25 @@
         DO i = 1, jbad
            WRITE(*,*) "i,k,q=", jadrs(i),k,zq(jadrs(i),k)
-           CALL abort_gcm(comment, 'NaN founded',1)
+           CALL abort_physic(comment, 'NaN founded',1)
         ENDDO
      ENDIF

LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.F90

@@ -349 +349 @@
 
   if (sizedustmin>sizeacclow .or. sizedustmax<sizescohigh) then 
-   call abort_gcm('adaptdustemission', 'Dust range problem',1)
+   call abort_physic('adaptdustemission', 'Dust range problem',1)
   endif
   print *,'FINE DUST BIN: tuning EMISSION factor= ',tuningfactorfine

LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -1435 +1435 @@
         if (ok_chimeredust) then
           if (.not.( id_scdu>0 .and. id_codu>0 .and. id_fine>0)) then
-             call abort_gcm('phytracr_mod', 'pb in ok_chimdust 0',1)
+             call abort_physic('phytracr_mod', 'pb in ok_chimdust 0',1)
           endif
         else 
           if (id_scdu>0) then 
-       call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1 SCDU',1)
+       call abort_physic('phytracr_mod', 'pb in ok_chimdust 1 SCDU',1)
           endif
           if ( (id_codu .le. 0) .or. ( id_fine.le.0)  ) then  
-          call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1',1) 
+          call abort_physic('phytracr_mod', 'pb in ok_chimdust 1',1)
           endif
        endif
@@ -4606 +4606 @@
              print *,'error ierr= ',ierr
              CALL exit(1) 
-            call abort_gcm('read_scalenc','error reading variable',1)
+            call abort_physic('read_scalenc','error reading variable',1)
       ENDIF