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

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

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

revision 1.21 by edhill, Fri Mar 10 16:09:32 2006 UTC revision 1.24 by utke, Fri Jun 20 20:36:58 2008 UTC
# Line 108  C     context. Line 108  C     context.
108                
109  C     !USES:  C     !USES:
110        implicit none        implicit none
111  #include "netcdf.inc"  #include "MNC_COMMON.h"
 #include "mnc_common.h"  
112  #include "EEPARAMS.h"  #include "EEPARAMS.h"
113    #include "netcdf.inc"
114    
115  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
116        integer irv,myThid        integer irv,myThid
# Line 134  C     Strip trailing spaces Line 134  C     Strip trailing spaces
134        lenv = ILNBLNK(vname)        lenv = ILNBLNK(vname)
135    
136  C     Check that the file is open  C     Check that the file is open
137        CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid)        CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
138        IF (indf .LT. 1) THEN        IF (indf .LT. 1) THEN
139          nf = ILNBLNK( fname )          nf = ILNBLNK( fname )
140          write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf),          write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf),
# Line 149  C     Check for sufficient storage space Line 149  C     Check for sufficient storage space
149        IF (needed .GE. MNC_MAX_INFO) THEN        IF (needed .GE. MNC_MAX_INFO) THEN
150          write(msgbuf,'(2a,i7,a)') 'MNC ERROR: MNC_MAX_INFO exceeded',          write(msgbuf,'(2a,i7,a)') 'MNC ERROR: MNC_MAX_INFO exceeded',
151       &       ': please increase it to ', 2*MNC_MAX_INFO,       &       ': please increase it to ', 2*MNC_MAX_INFO,
152       &       ' in the file ''pkg/mnc/mnc_common.h'''       &       ' in the file ''pkg/mnc/MNC_COMMON.h'''
153          CALL print_error(msgbuf, mythid)          CALL print_error(msgbuf, mythid)
154          stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY'          stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY'
155        ENDIF        ENDIF
# Line 395  C     General subroutine for adding attr Line 395  C     General subroutine for adding attr
395                
396  C     !USES:  C     !USES:
397        implicit none        implicit none
398  #include "netcdf.inc"  #include "MNC_COMMON.h"
 #include "mnc_common.h"  
399  #include "EEPARAMS.h"  #include "EEPARAMS.h"
400    #include "netcdf.inc"
401    
402  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
403        integer myThid,atype,len        integer myThid,atype,len
# Line 581  C---+----1----+----2----+----3----+----4 Line 581  C---+----1----+----2----+----3----+----4
581       I     myThid )       I     myThid )
582    
583        implicit none        implicit none
584  #include "netcdf.inc"  #include "MNC_COMMON.h"
 #include "mnc_common.h"  
585  #include "EEPARAMS.h"  #include "EEPARAMS.h"
586    #include "netcdf.inc"
587    
588  C     Arguments  C     Arguments
589        integer myThid, vtype        integer myThid, vtype
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22