Changeset 5270 for LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

Timestamp:

Oct 24, 2024, 1:55:38 PM (2 weeks ago)

Author:

abarral

Message:

Replace F77 netcdf library by F90 netcdf library

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -678 +678 @@
       include "dimensions.h"
 !!#include "control.h"
-      include "netcdf.inc"
 
 !   Arguments:
@@ -825 +824 @@
       include "dimensions.h"
 !!#include "control.h"
-      include "netcdf.inc"
 
 !   Arguments:
@@ -864 +862 @@
 
 !     modname = 'dyn1dredem'
-!     ierr = NF_OPEN(fichnom, NF_WRITE, nid)
-!     IF (ierr .NE. NF_NOERR) THEN
+!     ierr = nf90_open(fichnom, nf90_write, nid)
+!     IF (ierr .NE. nf90_noerr) THEN
 !        abort_message="Pb. d ouverture "//fichnom
 !        CALL abort_gcm('Modele 1D',abort_message,1)