Changeset 3552 for trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90

Timestamp:

Dec 13, 2024, 5:17:13 PM (9 days ago)

Author:

emillour

Message:

Generic PCM

Modify iostart routines to take netcdf index as an argument in order to
be used to read/write in other files than startfi.nc (preparing 1D
restart)

MM

File:

• trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90

@@ -157 +157 @@
 !
 
-       call get_var("controle",tab_cntrl,found)
+       call get_var(nid,"controle",tab_cntrl,found)
        if (.not.found) then
          call abort_physic(modname,"Failed reading <controle> array",1)