Changeset 5100 for LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ecrit.F90

Timestamp:

Jul 23, 2024, 7:00:20 AM (8 weeks ago)

Author:

abarral

Message:

Remove CPP_1D key. It was used once in a single file to wrap a whole internal module -> can't even compile if key is enabled.
(lint) Set NF90_* to lowercase

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ecrit.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ecrit.F90

@@ -109 +109 @@
 
 
-           ierr= NF90_PUT_VAR(nid,varid,date,[ntime])
+           ierr= nf90_put_var(nid,varid,date,[ntime])
 
 !          print*,'date ',date,ierr,nid
@@ -173 +173 @@
 
 
-      ierr= NF90_PUT_VAR(nid,varid,zx,corner,edges)
+      ierr= nf90_put_var(nid,varid,zx,corner,edges)
 
       if (ierr/=nf90_noerr) then