Changeset 2438 for trunk/LMDZ.MARS/util/localtime.F90

Timestamp:

Dec 16, 2020, 6:08:49 PM (4 years ago)

Author:

abierjon

Message:

Mars GCM:
Fix a typo made in r2434 in localtime.F90, that replaced the long_name attribute
of variables by "Time"

AB

File:

• trunk/LMDZ.MARS/util/localtime.F90 (modified) (1 diff)

trunk/LMDZ.MARS/util/localtime.F90

@@ -607 +607 @@
       units=" "
       long_name=" "
-      ierr=nf_get_att_text(nid,timevar,"long_name",long_name)
+      ierr=nf_get_att_text(nid,varid,"long_name",long_name)
       if (ierr.ne.nf_noerr) then
       ! if no attribute "long_name", try "title"
-        ierr=nf_get_att_text(nid,timevar,"title",long_name)
+        ierr=nf_get_att_text(nid,varid,"title",long_name)
       endif
       ierr=nf_get_att_text(nid,varid,"units",units)