/[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.10 by edhill, Sun Mar 21 03:44:23 2004 UTC revision 1.13 by edhill, Wed Mar 24 03:38:50 2004 UTC
# Line 8  C---+----1----+----2----+----3----+----4 Line 8  C---+----1----+----2----+----3----+----4
8        SUBROUTINE MNC_CW_RX_W_YY(        SUBROUTINE MNC_CW_RX_W_YY(
9       I     fbname, bi,bj,       I     fbname, bi,bj,
10       I     vtype,       I     vtype,
 C     I     indu,  
11       I     var,       I     var,
12       I     myThid )       I     myThid )
13    
# Line 16  C     I     indu, Line 15  C     I     indu,
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 35  C     Local Variables Line 35  C     Local Variables
35        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr
36        integer p(9),s(9),e(9), dimnc(9), vstart(9),vcount(9), udo(9)        integer p(9),s(9),e(9), dimnc(9), vstart(9),vcount(9), udo(9)
37        integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7        integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7
38        integer indfg, fg1,fg2        integer indfg, fg1,fg2, npath
39        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
40        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
41          character*(MNC_MAX_CHAR) path_fname
42    
43  C     Temporary storage for the simultaneous type conversion and  C     Temporary storage for the simultaneous type conversion and
44  C     re-shaping before passing to NetCDF  C     re-shaping before passing to NetCDF
# Line 109  C         Create the file name Line 110  C         Create the file name
110            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'
111            nfname = ntot+9            nfname = ntot+9
112    
113    C         Add the path to the file name
114              IF (mnc_use_outdir) THEN
115                path_fname(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
116                npath = ILNBLNK(mnc_out_path)
117                path_fname(1:npath) = mnc_out_path(1:npath)
118                path_fname((npath+1):(npath+nfname)) = fname(1:nfname)
119                fname(1:MNC_MAX_CHAR) = path_fname(1:MNC_MAX_CHAR)
120                nfname = npath + 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)
125            fid = mnc_f_info(indf,2)            fid = mnc_f_info(indf,2)
# Line 322  C---+----1----+----2----+----3----+----4 Line 333  C---+----1----+----2----+----3----+----4
333        SUBROUTINE MNC_CW_RX_R_YY(        SUBROUTINE MNC_CW_RX_R_YY(
334       I     fbname, bi,bj,       I     fbname, bi,bj,
335       I     vtype,       I     vtype,
 C     I     indu,  
336       I     var,       I     var,
337       I     myThid )       I     myThid )
338    
# Line 330  C     I     indu, Line 340  C     I     indu,
340    
341  #include "netcdf.inc"  #include "netcdf.inc"
342  #include "mnc_common.h"  #include "mnc_common.h"
 #include "EEPARAMS.h"  
343  #include "SIZE.h"  #include "SIZE.h"
344    #include "EEPARAMS.h"
345    #include "PARAMS.h"
346    
347  #define mnc_rtype_YY  #define mnc_rtype_YY
348    
# Line 348  C     Local Variables Line 359  C     Local Variables
359        integer bis,bie, bjs,bje, uniq_tnum, nfname, fid, idv        integer bis,bie, bjs,bje, uniq_tnum, nfname, fid, idv
360        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr        integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr
361        integer ind_fv_ids, ind_vt, ierr, atype, alen        integer ind_fv_ids, ind_vt, ierr, atype, alen
362        integer f_sNx,f_sNy        integer f_sNx,f_sNy, npath
363        integer p(9),s(9),e(9), vstart(9),vcount(9), udo(9)        integer p(9),s(9),e(9), vstart(9),vcount(9), udo(9)
364        integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7        integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7
365        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
366        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
367          character*(MNC_MAX_CHAR) path_fname
368        integer indfg, fg1,fg2        integer indfg, fg1,fg2
369    
370  C     Temporary storage for the simultaneous type conversion and  C     Temporary storage for the simultaneous type conversion and
# Line 429  C         Create the file name Line 441  C         Create the file name
441            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'            write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc'
442            nfname = ntot+9            nfname = ntot+9
443    
444    C         Add the path to the file name
445              IF (mnc_use_indir) THEN
446                path_fname(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
447                npath = ILNBLNK(mnc_indir_str)
448                path_fname(1:npath) = mnc_indir_str(1:npath)
449                path_fname((npath+1):(npath+nfname)) = fname(1:nfname)
450                fname(1:MNC_MAX_CHAR) = path_fname(1:MNC_MAX_CHAR)
451                nfname = npath + nfname
452              ENDIF
453    
454  C         Open the existing file  C         Open the existing file
455            CALL MNC_FILE_TRY_READ( fname, ierr, indf, myThid)            CALL MNC_FILE_TRY_READ( fname, ierr, indf, myThid)
456    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22