Changeset 1931 for LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

Timestamp:

Jan 17, 2014, 6:49:48 PM (11 years ago)

Author:

lguez

Message:

abort and exit are not in the Fortran standard. Replaced them by abort_gcm.

File:

• LMDZ5/trunk/libf/phylmd/radlwsw_m.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

@@ -219 +219 @@
   IF (nb_gr*kdlon .NE. KLON) THEN
       PRINT*, "kdlon mauvais:", KLON, kdlon, nb_gr
-      CALL abort
+      call abort_gcm("radlwsw", "", 1)
   ENDIF
   IF (kflev .NE. KLEV) THEN
       PRINT*, "kflev differe de KLEV, kflev, KLEV"
-      CALL abort
+      call abort_gcm("radlwsw", "", 1)
   ENDIF
   !-------------------------------------------
@@ -334 +334 @@
 !===== iflag_rrtm ================================================
 !      
-    print*,'iflag_rrtm = ', iflag_rrtm
     IF (iflag_rrtm == 0) THEN
        ! Old radiation scheme, used for AR4 runs