Warning, /pkg/obsfit/obsfit.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit ad59256d on 2025-12-15 00:05:36 UTC
ad59256d7d aver*0001 C----------------------------------------
0002 C subroutine obsfit_read_obs
0003 C----------------------------------------
0004 CADJ SUBROUTINE obsfit_read_obs INPUT = 1,2,3, 5
0005 CADJ SUBROUTINE obsfit_read_obs DEPEND = 1,2,3
0006 CADJ SUBROUTINE obsfit_read_obs OUTPUT = 4
0007
0008 C----------------------------------------
0009 C subroutine active_read_obs_tile
0010 C----------------------------------------
0011 CADJ SUBROUTINE active_read_obs_tile FTLNAME = g_active_read_obs_tile
0012 CADJ SUBROUTINE active_read_obs_tile ADNAME = adactive_read_obs_tile
0013 CADJ SUBROUTINE active_read_obs_tile INPUT = 1, 3,4,5,6,7,8,9
0014 CADJ SUBROUTINE active_read_obs_tile OUTPUT = 2
0015 CADJ SUBROUTINE active_read_obs_tile ACTIVE = 2
0016 CADJ SUBROUTINE active_read_obs_tile DEPEND = 1, 3,4,5,6,7,8
0017
0018 C----------------------------------------
0019 C subroutine active_write_obs_tile
0020 C----------------------------------------
0021 CADJ SUBROUTINE active_write_obs_tile FTLNAME = g_active_write_obs_tile
0022 CADJ SUBROUTINE active_write_obs_tile ADNAME = adactive_write_obs_tile
0023 CADJ SUBROUTINE active_write_obs_tile INPUT = 1,2,3,4,5,6,7,8
0024 CADJ SUBROUTINE active_write_obs_tile OUTPUT = 8
0025 CADJ SUBROUTINE active_write_obs_tile ACTIVE = 2, 8
0026 CADJ SUBROUTINE active_write_obs_tile DEPEND = 1, 3,4,5,6,7
0027
0028 C----------------------------------------
0029 C subroutine active_read_obs_glob
0030 C----------------------------------------
0031 CADJ SUBROUTINE active_read_obs_glob FTLNAME = g_active_read_obs_glob
0032 CADJ SUBROUTINE active_read_obs_glob ADNAME = adactive_read_obs_glob
0033 CADJ SUBROUTINE active_read_obs_glob INPUT = 1, 4,5,6,7,8
0034 CADJ SUBROUTINE active_read_obs_glob OUTPUT = 2,3
0035 CADJ SUBROUTINE active_read_obs_glob ACTIVE = 2,3
0036 CADJ SUBROUTINE active_read_obs_glob DEPEND = 1, 4,5,6,7
0037
0038 C----------------------------------------
0039 C subroutine active_write_obs_glob
0040 C----------------------------------------
0041 CADJ SUBROUTINE active_write_obs_glob FTLNAME = g_active_write_obs_glob
0042 CADJ SUBROUTINE active_write_obs_glob ADNAME = adactive_write_obs_glob
0043 CADJ SUBROUTINE active_write_obs_glob INPUT = 1,2,3,4,5,6,7
0044 CADJ SUBROUTINE active_write_obs_glob OUTPUT = 7
0045 CADJ SUBROUTINE active_write_obs_glob ACTIVE = 2,3, 7
0046 CADJ SUBROUTINE active_write_obs_glob DEPEND = 1, 4,5,6
0047
0048 C----------------------------------------
0049 C NetCDF related functions and routines
0050 C----------------------------------------
0051 CADJ SUBROUTINE OBSFIT_NF_ERROR INPUT = 1,2,3,4,5
0052 CADJ FUNCTION NF_OPEN INPUT = 1,2,3
0053 CADJ FUNCTION NF_CLOSE INPUT = 1
0054 CADJ FUNCTION NF_SYNC INPUT = 1
0055 CADJ FUNCTION NF_STRERROR INPUT = 1
0056 CADJ FUNCTION NF_INQ_VARID INPUT = 1,2,3
0057 CADJ FUNCTION NF_PUT_VARA_DOUBLE INPUT = 1,2,3,5,4
