15 |
|
|
16 |
#include "netcdf.inc" |
#include "netcdf.inc" |
17 |
#include "mnc_common.h" |
#include "mnc_common.h" |
|
#include "EEPARAMS.h" |
|
18 |
#include "SIZE.h" |
#include "SIZE.h" |
19 |
|
#include "EEPARAMS.h" |
20 |
|
#include "PARAMS.h" |
21 |
|
|
22 |
#define mnc_rtype_YY |
#define mnc_rtype_YY |
23 |
|
|
111 |
nfname = ntot+9 |
nfname = ntot+9 |
112 |
|
|
113 |
C Add the path to the file name |
C Add the path to the file name |
114 |
c path_fname(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
IF (mnc_use_outdir) THEN |
115 |
c npath = ILNBLNK(mnc_out_path) |
path_fname(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
116 |
c path_fname(1:npath) = mnc_out_path(1:npath) |
npath = ILNBLNK(mnc_out_path) |
117 |
c path_fname((npath+1):(npath+1+nfname)) = fname(1:nfname) |
path_fname(1:npath) = mnc_out_path(1:npath) |
118 |
c fname(1:MNC_MAX_CHAR) = path_fname(1:MNC_MAX_CHAR) |
path_fname((npath+1):(npath+1+nfname)) = fname(1:nfname) |
119 |
|
fname(1:MNC_MAX_CHAR) = path_fname(1:MNC_MAX_CHAR) |
120 |
|
nfname = npath + 1 + nfname |
121 |
|
ENDIF |
122 |
|
|
123 |
C Append to an existing or create a new file |
C Append to an existing or create a new file |
124 |
CALL MNC_CW_FILE_AORC(fname, indf, myThid) |
CALL MNC_CW_FILE_AORC(fname, indf, myThid) |