Warning, /pkg/profiles/profiles.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 13ce79fe on 2025-08-04 21:05:34 UTC
6a770e0a24 Patr*0001 C----------------------------------------
0002 C subroutine profiles_readvector
0003 C----------------------------------------
d3172737dc aver*0004 CADJ SUBROUTINE profiles_readvector INPUT = 1,2,3,4, 6,7,8
0005 CADJ SUBROUTINE profiles_readvector DEPEND = 1,2,3,4, 6,7
0006 CADJ SUBROUTINE profiles_readvector OUTPUT = 5
13ce79fe94 Ivan*0007
0008 C----------------------------------------
0009 C subroutine profiles_make_ncfile
0010 C----------------------------------------
d3172737dc aver*0011 CADJ SUBROUTINE profiles_make_ncfile INPUT = 1
0012 CADJ SUBROUTINE profiles_make_ncfile DEPEND = 1
0013 CADJ SUBROUTINE profiles_make_ncfile OUTPUT =
0014
0015 C----------------------------------------
0016 C subroutine active_read_profile
0017 C----------------------------------------
0018 CADJ SUBROUTINE active_read_profile FTLNAME = g_active_read_profile
0019 CADJ SUBROUTINE active_read_profile ADNAME = adactive_read_profile
0020 CADJ SUBROUTINE active_read_profile INPUT = 1,2, 4,5,6,7,8,9,10,11
0021 CADJ SUBROUTINE active_read_profile OUTPUT = 3
0022 CADJ SUBROUTINE active_read_profile ACTIVE = 3
0023 CADJ SUBROUTINE active_read_profile DEPEND = 1,2, 4,5,6,7,8,9,10
0024
0025 C----------------------------------------
0026 C subroutine active_write_profile
0027 C----------------------------------------
0028 CADJ SUBROUTINE active_write_profile FTLNAME = g_active_write_profile
0029 CADJ SUBROUTINE active_write_profile ADNAME = adactive_write_profile
0030 CADJ SUBROUTINE active_write_profile INPUT = 1,2,3,4,5,6,7,8,9,10
0031 CADJ SUBROUTINE active_write_profile OUTPUT = 10
0032 CADJ SUBROUTINE active_write_profile ACTIVE = 3, 10
0033 CADJ SUBROUTINE active_write_profile DEPEND = 1,2, 4,5,6,7,8,9
13ce79fe94 Ivan*0034
0035 C----------------------------------------
0036 C NetCDF related functions and routines
0037 C----------------------------------------
0038 CADJ SUBROUTINE PROFILES_NF_ERROR INPUT = 1,2,3,4,5
0039 CADJ FUNCTION NF_SYNC INPUT = 1
0040 cCADJ SUBROUTINE PROFILES_NC_CLOSE INPUT = 1
0041 cCADJ FUNCTION NF_OPEN INPUT = 1,2,3
0042 cCADJ FUNCTION NF_CLOSE INPUT = 1
