/[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.14 by edhill, Tue Jul 6 03:55:53 2004 UTC revision 1.15 by edhill, Tue Jul 6 21:04:28 2004 UTC
# Line 70  C     Check that this name is not alread Line 70  C     Check that this name is not alread
70        END        END
71    
72  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
73    CBOP 0
74    C     !ROUTINE: MNC_CW_DEL_GNAME
75    
76    C     !INTERFACE:
77          SUBROUTINE MNC_CW_DEL_GNAME(
78         I     name,
79         I     myThid )
80    
81    C     !DESCRIPTION:
82    C     Delete a grid name from the MNC convenience wrapper layer.
83          
84    C     !USES:
85          implicit none
86    #include "mnc_common.h"
87    #include "EEPARAMS.h"
88    
89    C     !INPUT PARAMETERS:
90          integer myThid
91          character*(*) name
92    CEOP
93    
94    C     !LOCAL VARIABLES:
95          integer nnf,nnl, indg
96    
97    C     Functions
98          integer IFNBLNK, ILNBLNK
99    
100          nnf = IFNBLNK(name)
101          nnl = ILNBLNK(name)
102    
103    C     Check that this name is not already defined
104          CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid)
105          IF (indg .LT. 1) THEN
106            RETURN
107          ENDIF
108    
109          mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
110          mnc_cw_ndim(indg) = 0
111    
112          RETURN
113          END
114    
115    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
116  CBOP 1  CBOP 1
117  C     !ROUTINE: MNC_CW_DUMP  C     !ROUTINE: MNC_CW_DUMP
118    
# Line 552  C     Check that gname exists Line 595  C     Check that gname exists
595    
596        RETURN        RETURN
597        END        END
598    
599    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
600    CBOP 0
601    C     !ROUTINE: MNC_CW_DEL_VNAME
602    
603    C     !INTERFACE:
604          SUBROUTINE MNC_CW_DEL_VNAME(
605         I     vname,
606         I     myThid )
607    
608    C     !DESCRIPTION:
609    C     Delete a variable type from the MNC CW layer.
610      
611    C     !USES:
612          implicit none
613    #include "mnc_common.h"
614    #include "EEPARAMS.h"
615    
616    C     !INPUT PARAMETERS:
617          integer myThid
618          character*(*) vname
619    CEOP
620    
621    C     !LOCAL VARIABLES:
622          integer i, indv
623    
624    C     Check that this vname is not already defined
625          CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid)
626          IF (indv .LT. 1) THEN
627            RETURN
628          ENDIF
629    
630          mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
631          mnc_cw_vgind(indv) = 0
632          DO i = 1,3
633            mnc_cw_vnat(i,indv) = 0
634          ENDDO
635    
636          RETURN
637          END
638    
639  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
640  CBOP 0  CBOP 0
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22