| 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_grid.F |
118 |
MNC_GRID_INIT_ALL |
ngn = ILNBLNK(gname) |
|
./pkg/mnc/mnc_grid.F |
126 |
MNC_GRID_INIT_ALL |
& .EQ. gname(1:ngn)) ) THEN |
|
./pkg/mnc/mnc_grid.F |
134 |
MNC_GRID_INIT_ALL |
write(msgbuf,'(6a)') 'MNC ERROR: grid ''', gname(1:ngn), |
|
./pkg/mnc/mnc_grid.F |
13 |
MNC_GRID_INIT |
I gname, |
|
./pkg/mnc/mnc_grid.F |
148 |
MNC_GRID_INIT_ALL |
write(msgbuf,'(6a)') 'MNC ERROR: grid ''', gname(1:ngn), |
|
./pkg/mnc/mnc_grid.F |
172 |
MNC_GRID_INIT_ALL |
n = ILNBLNK(gname) |
|
./pkg/mnc/mnc_grid.F |
173 |
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 |
|
./pkg/mnc/mnc_var.F |
117 |
MNC_VAR_INIT_ANY |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
133 |
MNC_VAR_INIT_ANY |
leng = ILNBLNK(gname) |
|
./pkg/mnc/mnc_var.F |
13 |
MNC_VAR_INIT_DBL |
I gname, |
|
./pkg/mnc/mnc_var.F |
170 |
MNC_VAR_INIT_ANY |
& .AND. (mnc_g_names(k)(1:n) .EQ. gname(1:n))) THEN |
|
./pkg/mnc/mnc_var.F |
183 |
MNC_VAR_INIT_ANY |
& ''' does not contain grid ''', gname(1:leng), '''' |
|
./pkg/mnc/mnc_var.F |
194 |
MNC_VAR_INIT_ANY |
IF (mnc_g_names(k) .NE. gname) THEN |
|
./pkg/mnc/mnc_var.F |
28 |
MNC_VAR_INIT_DBL |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
31 |
MNC_VAR_INIT_DBL |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_DOUBLE, irv,myThid) |
|
./pkg/mnc/mnc_var.F |
42 |
MNC_VAR_INIT_REAL |
I gname, |
|
./pkg/mnc/mnc_var.F |
57 |
MNC_VAR_INIT_REAL |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
60 |
MNC_VAR_INIT_REAL |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_FLOAT, irv,myThid) |
|
./pkg/mnc/mnc_var.F |
71 |
MNC_VAR_INIT_INT |
I gname, |
|
./pkg/mnc/mnc_var.F |
85 |
MNC_VAR_INIT_INT |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
88 |
MNC_VAR_INIT_INT |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_INT, irv,myThid) |
|
./pkg/mnc/mnc_var.F |
99 |
MNC_VAR_INIT_ANY |
I gname, |