Changeset 5326 for LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new_mod.f90

Timestamp:

Nov 14, 2024, 11:53:17 AM (24 hours ago)

Author:

abarral

Message:

Turn condsurfs_new.f90 into module
Add own handle_err subroutine to condsurfs_new_mod.f90 phytracr_spl_mod.F90, as they were using incorrectly the one from grilles_gcm_netcdf_sub

File:

• LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new_mod.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new.f90) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new_mod.f90

@@ +1 @@
+MODULE condsurfs_new_mod
+  IMPLICIT NONE; PRIVATE
+  PUBLIC condsurfs_new
+
+CONTAINS
+
+  SUBROUTINE handle_err(status)
+    USE netcdf, ONLY: nf90_noerr, nf90_strerror
+    IMPLICIT NONE
+
+    INTEGER status
+    IF (status/=nf90_noerr) THEN
+      PRINT *, nf90_strerror(status)
+      CALL abort_gcm('condsurfs_new', 'netcdf error', 1)
+    ENDIF
+  END SUBROUTINE handle_err
+
 SUBROUTINE condsurfs_new(jour, edgar, flag_dms, &
         lmt_so2b, lmt_so2h, lmt_so2nff, &
@@ -273 +290 @@
   RETURN
 END SUBROUTINE condsurfs_new
+
+
+END MODULE condsurfs_new_mod