| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
241 |
MNC_CW_APPEND_VNAME |
I gname, |
|
./pkg/mnc/mnc_cwrapper.F |
255 |
MNC_CW_APPEND_VNAME |
character*(*) vname, gname |
|
./pkg/mnc/mnc_cwrapper.F |
264 |
MNC_CW_APPEND_VNAME |
CALL MNC_CW_ADD_VNAME(vname, gname, bi_dim, bj_dim, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
278 |
MNC_CW_ADD_VNAME |
I gname, |
|
./pkg/mnc/mnc_cwrapper.F |
300 |
MNC_CW_ADD_VNAME |
character*(*) vname, gname |
|
./pkg/mnc/mnc_cwrapper.F |
312 |
MNC_CW_ADD_VNAME |
ngf = IFNBLNK(gname) |
|
./pkg/mnc/mnc_cwrapper.F |
313 |
MNC_CW_ADD_VNAME |
ngl = ILNBLNK(gname) |
|
./pkg/mnc/mnc_cwrapper.F |
327 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, gname, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
330 |
MNC_CW_ADD_VNAME |
& gname(ngf:ngl), ''' is not defined' |
|
./pkg/mnc/mnc_cwrapper.F |
345 |
MNC_CW_ADD_VNAME |
CALL MNC_CW_ADD_VATTR_TEXT(vname,1,'mitgcm_grid',gname, myThid) |
|
./pkg/mnc/mnc_var.F |
113 |
MNC_VAR_INIT_ANY |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
129 |
MNC_VAR_INIT_ANY |
leng = ILNBLNK(gname) |
|
./pkg/mnc/mnc_var.F |
13 |
MNC_VAR_INIT_DBL |
I gname, |
|
./pkg/mnc/mnc_var.F |
165 |
MNC_VAR_INIT_ANY |
& .AND. (mnc_g_names(k)(1:n) .EQ. gname(1:n))) THEN |
|
./pkg/mnc/mnc_var.F |
178 |
MNC_VAR_INIT_ANY |
& ''' does not contain grid ''', gname(1:leng), '''' |
|
./pkg/mnc/mnc_var.F |
189 |
MNC_VAR_INIT_ANY |
IF (mnc_g_names(k) .NE. gname) THEN |
|
./pkg/mnc/mnc_var.F |
27 |
MNC_VAR_INIT_DBL |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
30 |
MNC_VAR_INIT_DBL |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_DOUBLE, myThid) |
|
./pkg/mnc/mnc_var.F |
41 |
MNC_VAR_INIT_REAL |
I gname, |
|
./pkg/mnc/mnc_var.F |
55 |
MNC_VAR_INIT_REAL |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
58 |
MNC_VAR_INIT_REAL |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_FLOAT, myThid) |
|
./pkg/mnc/mnc_var.F |
69 |
MNC_VAR_INIT_INT |
I gname, |
|
./pkg/mnc/mnc_var.F |
82 |
MNC_VAR_INIT_INT |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
85 |
MNC_VAR_INIT_INT |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_INT, myThid) |
|
./pkg/mnc/mnc_var.F |
96 |
MNC_VAR_INIT_ANY |
I gname, |
|
./pkg/mnc/mnc_grid.F |
117 |
MNC_GRID_INIT_ALL |
ngn = ILNBLNK(gname) |
|
./pkg/mnc/mnc_grid.F |
125 |
MNC_GRID_INIT_ALL |
& .EQ. gname(1:ngn)) ) THEN |
|
./pkg/mnc/mnc_grid.F |
132 |
MNC_GRID_INIT_ALL |
write(msgbuf,'(6a)') 'MNC ERROR: grid ''', gname, |
|
./pkg/mnc/mnc_grid.F |
13 |
MNC_GRID_INIT |
I gname, |
|
./pkg/mnc/mnc_grid.F |
145 |
MNC_GRID_INIT_ALL |
write(msgbuf,'(6a)') 'MNC ERROR: grid ''', gname, |
|
./pkg/mnc/mnc_grid.F |
169 |
MNC_GRID_INIT_ALL |
n = ILNBLNK(gname) |
|
./pkg/mnc/mnc_grid.F |
170 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:n) = gname(1:n) |
|
./pkg/mnc/mnc_grid.F |
26 |
MNC_GRID_INIT |
character*(*) fname,gname |
|
./pkg/mnc/mnc_grid.F |
33 |
MNC_GRID_INIT |
CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid) |
|
./pkg/mnc/mnc_grid.F |
45 |
MNC_GRID_INIT_ALL |
I gname, |
|
./pkg/mnc/mnc_grid.F |
67 |
MNC_GRID_INIT_ALL |
character*(*) fname,gname |