Changeset 4258 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Sep 20, 2022, 4:09:50 PM (2 years ago)

Author:

lguez

Message:

Bug fix: correct varid

File:

• LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

@@ -27 +27 @@
   ! Attributs netcdf sortie
   INTEGER ncid_out,rcode_out
-  INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid,out_levid
+  INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid
   INTEGER out_varid
   INTEGER out_lonudim,out_lonvdim
@@ -225 +225 @@
   CALL handle_err(status)
 #else
-  status=NF_PUT_VARA_REAL(ncid_out,out_levid,1,llm,rlevdeg)
+  status=NF_PUT_VARA_REAL(ncid_out,presnivs_id,1,llm,rlevdeg)
   CALL handle_err(status)
 #endif