/[MITgcm]/MITgcm/pkg/mnc/mnc_cwrapper.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cwrapper.F

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

revision 1.10 by edhill, Sat Mar 20 23:51:23 2004 UTC revision 1.11 by edhill, Mon Mar 29 03:33:51 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MNC_CW_ADD_GNAME
9    
10    C     !INTERFACE:
11        SUBROUTINE MNC_CW_ADD_GNAME(        SUBROUTINE MNC_CW_ADD_GNAME(
12       I     name,       I     name,
13       I     ndim,       I     ndim,
# Line 13  C---+----1----+----2----+----3----+----4 Line 16  C---+----1----+----2----+----3----+----4
16       I     inds_beg, inds_end,       I     inds_beg, inds_end,
17       I     myThid )       I     myThid )
18    
19    C     !DESCRIPTION:
20    C     Add a grid name to the MNC convenience wrapper layer.
21          
22    C     !USES:
23        implicit none        implicit none
24  #include "mnc_common.h"  #include "mnc_common.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26    
27  C     Arguments  C     !INPUT PARAMETERS:
28        integer myThid, ndim        integer myThid, ndim
29        character*(*) name        character*(*) name
30        integer dlens(*), inds_beg(*), inds_end(*)        integer dlens(*), inds_beg(*), inds_end(*)
31        character*(*) dnames(*)        character*(*) dnames(*)
32    
33  C     Functions  C     !LOCAL VARIABLES:
       integer IFNBLNK, ILNBLNK  
   
 C     Local Variables  
34        integer i, nnf,nnl, indg        integer i, nnf,nnl, indg
35        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
36    CEOP
37    C     Functions
38          integer IFNBLNK, ILNBLNK
39    
40        nnf = IFNBLNK(name)        nnf = IFNBLNK(name)
41        nnl = ILNBLNK(name)        nnl = ILNBLNK(name)
# Line 62  C     Check that this name is not alread Line 69  C     Check that this name is not alread
69        END        END
70    
71  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
72    CBOP
73    C     !ROUTINE: MNC_CW_DUMP
74    
75    C     !INTERFACE:
76        SUBROUTINE MNC_CW_DUMP( myThid )        SUBROUTINE MNC_CW_DUMP( myThid )
77    
78    C     !DESCRIPTION:
79    C     Write a condensed view of the current state of the MNC look-up
80    C     tables for the convenience wrapper section.
81          
82    C     !USES:
83        implicit none        implicit none
84  #include "mnc_common.h"  #include "mnc_common.h"
85  #include "SIZE.h"  #include "SIZE.h"
86  #include "EEPARAMS.h"  #include "EEPARAMS.h"
87  #include "PARAMS.h"  #include "PARAMS.h"
88    
89  C     Arguments  C     !INPUT PARAMETERS:
90        integer myThid        integer myThid
91    
92  C     Local Variables  C     !LOCAL VARIABLES:
93        integer i,j, ntot        integer i,j, ntot
94        integer NBLNK        integer NBLNK
95        parameter ( NBLNK = 150 )        parameter ( NBLNK = 150 )
96        character s1*(NBLNK), blnk*(NBLNK)        character s1*(NBLNK), blnk*(NBLNK)
97    CEOP
98    
99        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
100                
# Line 173  C     Local Variables Line 188  C     Local Variables
188        END        END
189    
190  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
191    CBOP
192    C     !ROUTINE: MNC_CW_INIT
193    
194    C     !INTERFACE:
195        SUBROUTINE MNC_CW_INIT(        SUBROUTINE MNC_CW_INIT(
196       I     sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr,       I     sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr,
197       I     myThid )       I     myThid )
198    
199    C     !DESCRIPTION:
200    C     Create the pre-defined grid types and variable types
201          
202    C     !USES:
203        implicit none        implicit none
204  #include "mnc_common.h"  #include "mnc_common.h"
205  #include "EEPARAMS.h"  #include "EEPARAMS.h"
206    
207  C     Arguments  C     !INPUT PARAMETERS:
208        integer myThid        integer myThid
209        integer sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr        integer sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr
210    
211  C     Functions  C     !LOCAL VARIABLES:
       integer IFNBLNK, ILNBLNK  
   
 C     Local Variables  
212        integer CW_MAX_LOC        integer CW_MAX_LOC
213        parameter ( CW_MAX_LOC = 5 )        parameter ( CW_MAX_LOC = 5 )
214        integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot        integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
# Line 201  C     Local Variables Line 220  C     Local Variables
220       &     vert_dat(CW_MAX_LOC), time_dat(CW_MAX_LOC),       &     vert_dat(CW_MAX_LOC), time_dat(CW_MAX_LOC),
221       &     halo_dat(CW_MAX_LOC)       &     halo_dat(CW_MAX_LOC)
222        integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC)        integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC)
223    CEOP
224    C     Functions
225          integer IFNBLNK, ILNBLNK
226    
227  C     ......12345....12345....12345....12345....12345...  C     ......12345....12345....12345....12345....12345...
228        data horz_dat /        data horz_dat /
# Line 369  C               Time dimension Line 391  C               Time dimension
391        END        END
392    
393  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
394    CBOP
395    C     !ROUTINE: MNC_CW_ADD_VNAME
396    
397    C     !INTERFACE:
398        SUBROUTINE MNC_CW_ADD_VNAME(        SUBROUTINE MNC_CW_ADD_VNAME(
399       I     vname,       I     vname,
400       I     gname,       I     gname,
401       I     bi_dim, bj_dim,       I     bi_dim, bj_dim,
402       I     myThid )       I     myThid )
403    
404    C     !DESCRIPTION:
405    C     Add a variable type.
406          
407    C     !USES:
408        implicit none        implicit none
409  #include "mnc_common.h"  #include "mnc_common.h"
410  #include "EEPARAMS.h"  #include "EEPARAMS.h"
411    
412  C     Arguments  C     !INPUT PARAMETERS:
413        integer myThid, bi_dim, bj_dim        integer myThid, bi_dim, bj_dim
414        character*(*) vname, gname        character*(*) vname, gname
415    
416  C     Functions  C     !LOCAL VARIABLES:
       integer IFNBLNK, ILNBLNK  
   
 C     Local Variables  
417        integer i, nvf,nvl, ngf,ngl, indv,indg        integer i, nvf,nvl, ngf,ngl, indv,indg
418        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
419    CEOP
420    C     Functions
421          integer IFNBLNK, ILNBLNK
422    
423        nvf = IFNBLNK(vname)        nvf = IFNBLNK(vname)
424        nvl = ILNBLNK(vname)        nvl = ILNBLNK(vname)
# Line 431  C     Check that gname exists Line 460  C     Check that gname exists
460        END        END
461    
462  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
463    CBOP
464    C     !ROUTINE: MNC_CW_ADD_VATTR_TEXT
465    
466    C     !INTERFACE:
467        SUBROUTINE MNC_CW_ADD_VATTR_TEXT(        SUBROUTINE MNC_CW_ADD_VATTR_TEXT(
468       I     vname,       I     vname,
469       I     ntat,       I     ntat,
# Line 439  C---+----1----+----2----+----3----+----4 Line 471  C---+----1----+----2----+----3----+----4
471       I     tvals,       I     tvals,
472       I     myThid )       I     myThid )
473    
474    C     !DESCRIPTION:
475    C     Add a text attribute
476          
477    C     !USES:
478        implicit none        implicit none
479    
480  C     Arguments  C     !INPUT PARAMETERS:
481        integer myThid, ntat        integer myThid, ntat
482        character*(*) vname, tnames(*), tvals(*)        character*(*) vname, tnames(*), tvals(*)
483    CEOP
484    
485        CALL MNC_CW_ADD_VATTR_ANY(vname,        CALL MNC_CW_ADD_VATTR_ANY(vname,
486       &     ntat, 0, 0,       &     ntat, 0, 0,
# Line 454  C     Arguments Line 491  C     Arguments
491        END        END
492    
493  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
494    CBOP
495    C     !ROUTINE: MNC_CW_ADD_VATTR_INT
496    
497    C     !INTERFACE:
498        SUBROUTINE MNC_CW_ADD_VATTR_INT(        SUBROUTINE MNC_CW_ADD_VATTR_INT(
499       I     vname,       I     vname,
500       I     niat,       I     niat,
# Line 462  C---+----1----+----2----+----3----+----4 Line 502  C---+----1----+----2----+----3----+----4
502       I     ivals,       I     ivals,
503       I     myThid )       I     myThid )
504    
505    C     !DESCRIPTION:
506    
507    C     !USES:
508        implicit none        implicit none
509    
510  C     Arguments  C     !INPUT PARAMETERS:
511        integer myThid, niat        integer myThid, niat
512        character*(*) vname, inames(*)        character*(*) vname, inames(*)
513        integer ivals(*)        integer ivals(*)
514    CEOP
515    
516        CALL MNC_CW_ADD_VATTR_ANY(vname,        CALL MNC_CW_ADD_VATTR_ANY(vname,
517       &     0, niat, 0,       &     0, niat, 0,
# Line 478  C     Arguments Line 522  C     Arguments
522        END        END
523    
524  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
525    CBOP
526    C !ROUTINE: MNC_CW_ADD_VATTR_DBL
527    
528    C !INTERFACE:
529        SUBROUTINE MNC_CW_ADD_VATTR_DBL(        SUBROUTINE MNC_CW_ADD_VATTR_DBL(
530       I     vname,       I     vname,
531       I     ndat,       I     ndat,
# Line 486  C---+----1----+----2----+----3----+----4 Line 533  C---+----1----+----2----+----3----+----4
533       I     dvals,       I     dvals,
534       I     myThid )       I     myThid )
535    
536    C     !DESCRIPTION:
537    
538    C     !USES:
539        implicit none        implicit none
540    
541  C     Arguments  C     !INPUT PARAMETERS:
542        integer myThid, ndat        integer myThid, ndat
543        character*(*) vname, dnames(*)        character*(*) vname, dnames(*)
544        REAL*8 dvals(*)        REAL*8 dvals(*)
545    CEOP
546    
547        CALL MNC_CW_ADD_VATTR_ANY(vname,        CALL MNC_CW_ADD_VATTR_ANY(vname,
548       &     0, 0, ndat,       &     0, 0, ndat,
# Line 502  C     Arguments Line 553  C     Arguments
553        END        END
554    
555  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
556    CBOP
557    C     !ROUTINE: MNC_CW_ADD_VATTR_ANY
558    
559    C     !INTERFACE:
560        SUBROUTINE MNC_CW_ADD_VATTR_ANY(        SUBROUTINE MNC_CW_ADD_VATTR_ANY(
561       I     vname,       I     vname,
562       I     ntat,   niat,   ndat,       I     ntat,   niat,   ndat,
# Line 510  C---+----1----+----2----+----3----+----4 Line 564  C---+----1----+----2----+----3----+----4
564       I     tvals,  ivals,  dvals,       I     tvals,  ivals,  dvals,
565       I     myThid )       I     myThid )
566    
567    C     !DESCRIPTION:
568    
569    C     !USES:
570        implicit none        implicit none
571  #include "mnc_common.h"  #include "mnc_common.h"
572  #include "EEPARAMS.h"  #include "EEPARAMS.h"
573    
574  C     Arguments  C     !INPUT PARAMETERS:
575        integer myThid, ntat, niat, ndat        integer myThid, ntat, niat, ndat
576        character*(*) vname        character*(*) vname
577        character*(*) tnames(*), inames(*), dnames(*)        character*(*) tnames(*), inames(*), dnames(*)
# Line 522  C     Arguments Line 579  C     Arguments
579        integer ivals(*)        integer ivals(*)
580        REAL*8 dvals(*)        REAL*8 dvals(*)
581    
582  C     Functions  C     !LOCAL VARIABLES:
       integer IFNBLNK, ILNBLNK  
   
 C     Local Variables  
583        integer i, n, nvf,nvl, n1,n2, indv        integer i, n, nvf,nvl, n1,n2, indv
584        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
585    CEOP
586    C     Functions
587          integer IFNBLNK, ILNBLNK
588    
589        nvf = IFNBLNK(vname)        nvf = IFNBLNK(vname)
590        nvl = ILNBLNK(vname)        nvl = ILNBLNK(vname)
# Line 577  C     Double Attributes Line 634  C     Double Attributes
634        END        END
635    
636  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
637    CBOP
638    C     !ROUTINE: MNC_CW_GET_TILE_NUM
639    
640    C     !INTERFACE:
641        SUBROUTINE MNC_CW_GET_TILE_NUM(        SUBROUTINE MNC_CW_GET_TILE_NUM(
642       I     bi, bj,       I     bi, bj,
643       O     uniq_tnum,       O     uniq_tnum,
644       I     myThid )       I     myThid )
645    
646    C     !DESCRIPTION:
647    
648    C     !USES:
649        implicit none        implicit none
650  #include "EEPARAMS.h"  #include "EEPARAMS.h"
651  #include "SIZE.h"  #include "SIZE.h"
# Line 591  C---+----1----+----2----+----3----+----4 Line 654  C---+----1----+----2----+----3----+----4
654  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
655  #endif  #endif
656    
657  C     Arguments  C     !INPUT PARAMETERS:
658        integer myThid, bi,bj, uniq_tnum        integer myThid, bi,bj, uniq_tnum
659    
660  C     Local Variables  C     !LOCAL VARIABLES:
661        integer iG,jG        integer iG,jG
662    CEOP
663    
664        iG = 0        iG = 0
665        jG = 0        jG = 0
# Line 620  CEH3      write(*,*) 'iG,jG,uniq_tnum :' Line 684  CEH3      write(*,*) 'iG,jG,uniq_tnum :'
684        END        END
685    
686  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
687    CBOP
688    C     !ROUTINE: MNC_CW_FILE_AORC
689          
690    C     !INTERFACE:
691        SUBROUTINE MNC_CW_FILE_AORC(        SUBROUTINE MNC_CW_FILE_AORC(
692       I     fname,       I     fname,
693       O     indf,       O     indf,
694       I     myThid )       I     myThid )
695    
696    C     !DESCRIPTION:
697    
698    C     !USES:
699        implicit none        implicit none
700  #include "netcdf.inc"  #include "netcdf.inc"
701  #include "mnc_common.h"  #include "mnc_common.h"
702  #include "EEPARAMS.h"  #include "EEPARAMS.h"
703    
704  C     Arguments  C     !INPUT PARAMETERS:
705        integer myThid, indf        integer myThid, indf
706        character*(*) fname        character*(*) fname
707    
708  C     Local Variables  C     !LOCAL VARIABLES:
709        integer i, ierr        integer i, ierr
710        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
711    CEOP
712    
713  C     Check if the file is already open  C     Check if the file is already open
714        CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid)        CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22