| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
258 |
MNC_CW_APPEND_VNAME |
I gname, |
|
./pkg/mnc/mnc_cwrapper.F |
272 |
MNC_CW_APPEND_VNAME |
character*(*) vname, gname |
|
./pkg/mnc/mnc_cwrapper.F |
281 |
MNC_CW_APPEND_VNAME |
CALL MNC_CW_ADD_VNAME(vname, gname, bi_dim, bj_dim, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
295 |
MNC_CW_ADD_VNAME |
I gname, |
|
./pkg/mnc/mnc_cwrapper.F |
317 |
MNC_CW_ADD_VNAME |
character*(*) vname, gname |
|
./pkg/mnc/mnc_cwrapper.F |
329 |
MNC_CW_ADD_VNAME |
ngf = IFNBLNK(gname) |
|
./pkg/mnc/mnc_cwrapper.F |
330 |
MNC_CW_ADD_VNAME |
ngl = ILNBLNK(gname) |
|
./pkg/mnc/mnc_cwrapper.F |
344 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, gname, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
347 |
MNC_CW_ADD_VNAME |
& gname(ngf:ngl), ''' is not defined' |
|
./pkg/mnc/mnc_cwrapper.F |
362 |
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 |
103 |
MNC_VAR_INIT_INT |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
107 |
MNC_VAR_INIT_INT |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_INT, irv,myThid ) |
|
./pkg/mnc/mnc_var.F |
119 |
MNC_VAR_INIT_ANY |
I gname, |
|
./pkg/mnc/mnc_var.F |
135 |
MNC_VAR_INIT_ANY |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
153 |
MNC_VAR_INIT_ANY |
leng = ILNBLNK(gname) |
|
./pkg/mnc/mnc_var.F |
190 |
MNC_VAR_INIT_ANY |
& .AND. (mnc_g_names(k)(1:n) .EQ. gname(1:n))) THEN |
|
./pkg/mnc/mnc_var.F |
203 |
MNC_VAR_INIT_ANY |
& ''' does not contain grid ''', gname(1:leng), '''' |
|
./pkg/mnc/mnc_var.F |
214 |
MNC_VAR_INIT_ANY |
IF (mnc_g_names(k) .NE. gname) THEN |
|
./pkg/mnc/mnc_var.F |
32 |
MNC_VAR_INIT_DBL |
I gname, |
|
./pkg/mnc/mnc_var.F |
45 |
MNC_VAR_INIT_DBL |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
49 |
MNC_VAR_INIT_DBL |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_DOUBLE, irv,myThid ) |
|
./pkg/mnc/mnc_var.F |
61 |
MNC_VAR_INIT_REAL |
I gname, |
|
./pkg/mnc/mnc_var.F |
74 |
MNC_VAR_INIT_REAL |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
78 |
MNC_VAR_INIT_REAL |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_FLOAT, irv,myThid ) |
|
./pkg/mnc/mnc_var.F |
90 |
MNC_VAR_INIT_INT |
I gname, |