/[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.22 by edhill, Fri Mar 10 22:01:54 2006 UTC revision 1.23 by mlosch, Thu May 22 12:21:19 2008 UTC
# Line 109  C     context. Line 109  C     context.
109  C     !USES:  C     !USES:
110        implicit none        implicit none
111  #include "netcdf.inc"  #include "netcdf.inc"
112  #include "mnc_common.h"  #include "MNC_COMMON.h"
113  #include "EEPARAMS.h"  #include "EEPARAMS.h"
114    
115  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# 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 396  C     General subroutine for adding attr Line 396  C     General subroutine for adding attr
396  C     !USES:  C     !USES:
397        implicit none        implicit none
398  #include "netcdf.inc"  #include "netcdf.inc"
399  #include "mnc_common.h"  #include "MNC_COMMON.h"
400  #include "EEPARAMS.h"  #include "EEPARAMS.h"
401    
402  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 582  C---+----1----+----2----+----3----+----4 Line 582  C---+----1----+----2----+----3----+----4
582    
583        implicit none        implicit none
584  #include "netcdf.inc"  #include "netcdf.inc"
585  #include "mnc_common.h"  #include "MNC_COMMON.h"
586  #include "EEPARAMS.h"  #include "EEPARAMS.h"
587    
588  C     Arguments  C     Arguments
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22