Changeset 22

Timestamp:

02/07/13 19:39:45 (11 years ago)

Author:

cholod

Message:

add patch for def_his.F (04 Feb. 2013)

Location:

Roms_tools_V3.0

Files:

• Roms_Agrif/def_his.F (modified) (1 diff)
• patchs/patch_def_his_Aks_04022013.diff (added)

Roms_tools_V3.0/Roms_Agrif/def_his.F

@@ -1544 +1544 @@
         if (wrt(indxAks)) then
           lvar=lenstr(vname(1,indxAks))
-          ierr=nf_inq_varid (ncid,vname(1,indxAks)(1:lvar), hisAks)
+          ierr=nf_inq_varid (ncid,vname(1,indxAks)(1:lvar), vidAks)
           if (ierr .ne. nf_noerr) then
             write(stdout,1) vname(1,indxAks)(1:lvar), ncname(1:lstr)