Changeset 3814 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcellV0_main.F90

Timestamp:

Apr 15, 2015, 6:49:07 PM (10 years ago)

Author:

ymipsl

Message:

remove all dynamic dependency in LMDZ physics except for the include "dimensions.h"

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcellV0_main.F90 (modified) (3 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/thermcellV0_main.F90

@@ -465 +465 @@
       if (.not. (f0(1).ge.0.) ) then
         abort_message = 'Dans thermcell_main f0(1).lt.0 '
-        CALL abort_gcm (modname,abort_message,1)
+        CALL abort_physic (modname,abort_message,1)
       endif
 
@@ -591 +591 @@
            zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100.
            abort_message = 'thermcellV0_main: les thermiques vont trop haut '
-           CALL abort_gcm (modname,abort_message,1)
+           CALL abort_physic (modname,abort_message,1)
         endif
       enddo
@@ -880 +880 @@
                 print*,'wmax_sec',wmax_sec(ig)
                 abort_message = 'zdenom<1.e-14'
-                CALL abort_gcm (modname,abort_message,1)
+                CALL abort_physic (modname,abort_message,1)
              endif
              if ((zmax_sec(ig).gt.1.e-10).and.(iflag_thermals_ed.eq.0)) then