Changeset 2337

Timestamp:

Jun 5, 2020, 3:12:05 PM (5 years ago)

Author:

emillour

Message:

Common dynamics:
Fix a very minor typo that produced a misleading error message.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/dynetat0.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d_common/dynetat0.F90

@@ -265 +265 @@
         ierr= nf90_inq_varid(fID,tname(iq),vID)
         IF (ierr .NE. nf90_noerr) THEN
-           write(lunout,*)TRIM(modname)//": Tracer <"//TRIM(var)//"> is missing"
+           write(lunout,*)TRIM(modname)//": Tracer <"//TRIM(tname(iq))//"> is missing"
            write(lunout,*)"         It is hence initialized to zero"
            q(:,:,:,iq)=0.