/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by edhill, Mon Mar 22 05:10:10 2004 UTC revision 1.12 by edhill, Tue Mar 23 05:24:44 2004 UTC
# Line 15  C---+----1----+----2----+----3----+----4 Line 15  C---+----1----+----2----+----3----+----4
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    
# Line 110  C         Create the file name Line 111  C         Create the file name
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)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22