/[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.23 by edhill, Thu Oct 21 13:38:45 2004 UTC revision 1.24 by edhill, Fri Oct 22 21:30:31 2004 UTC
# Line 93  C     !USES: Line 93  C     !USES:
93  #include "netcdf.inc"  #include "netcdf.inc"
94  #include "mnc_common.h"  #include "mnc_common.h"
95  #include "SIZE.h"  #include "SIZE.h"
96    #include "MNC_SIZE.h"
97  #include "EEPARAMS.h"  #include "EEPARAMS.h"
98  #include "PARAMS.h"  #include "PARAMS.h"
99  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
# Line 116  C     !LOCAL VARIABLES: Line 117  C     !LOCAL VARIABLES:
117        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
118        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
119        character*(MNC_MAX_CHAR) path_fname        character*(MNC_MAX_CHAR) path_fname
120        REAL*8  resh_d( sNx + 2*OLx + sNy + 2*OLy )        REAL*8  resh_d( MNC_MAX_BUFF )
121        REAL*4  resh_r( sNx + 2*OLx + sNy + 2*OLy )        REAL*4  resh_r( MNC_MAX_BUFF )
122        INTEGER resh_i( sNx + 2*OLx + sNy + 2*OLy )        INTEGER resh_i( MNC_MAX_BUFF )
123  #ifdef HAVE_STAT  #ifdef HAVE_STAT
124        integer ntotenc, ncenc, nbytes, fs_isdone        integer ntotenc, ncenc, nbytes, fs_isdone
125        character*(200) cenc        character*(200) cenc
# Line 427  C         Write the variable one vector Line 428  C         Write the variable one vector
428        vstart(1) = udo(1) + 1        vstart(1) = udo(1) + 1
429        vcount(1) = e(1) - s(1) + 1        vcount(1) = e(1) - s(1) + 1
430    
431          IF (vcount(1) .GT. MNC_MAX_BUFF) THEN
432            write(msgbuf,'(2a,I7,a)') 'MNC_MAX_BUFF is too small',
433         &       '--please increase to at least ',
434         &       vcount(1), ' in ''MNC_SIZE.h'''
435            CALL PRINT_ERROR(msgBuf , 1)
436            STOP 'ABNORMAL END: S/R MNC_CW_RX_W_OFFSET'
437          ENDIF
438    
439        IF (stype(1:1) .EQ. 'D') THEN        IF (stype(1:1) .EQ. 'D') THEN
440          DO j1 = s(1),e(1)          DO j1 = s(1),e(1)
441            k1 = k2 + j1            k1 = k2 + j1
# Line 530  C     !USES: Line 539  C     !USES:
539  #include "netcdf.inc"  #include "netcdf.inc"
540  #include "mnc_common.h"  #include "mnc_common.h"
541  #include "SIZE.h"  #include "SIZE.h"
542    #include "MNC_SIZE.h"
543  #include "EEPARAMS.h"  #include "EEPARAMS.h"
544  #include "PARAMS.h"  #include "PARAMS.h"
545  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
# Line 552  C     !LOCAL VARIABLES: Line 562  C     !LOCAL VARIABLES:
562        character*(MNC_MAX_CHAR) fname        character*(MNC_MAX_CHAR) fname
563        character*(MNC_MAX_CHAR) path_fname        character*(MNC_MAX_CHAR) path_fname
564        integer indfg, fg1,fg2        integer indfg, fg1,fg2
565        REAL*8  resh_d( sNx + 2*OLx + sNy + 2*OLy )        REAL*8  resh_d( MNC_MAX_BUFF )
566        REAL*4  resh_r( sNx + 2*OLx + sNy + 2*OLy )        REAL*4  resh_r( MNC_MAX_BUFF )
567        INTEGER resh_i( sNx + 2*OLx + sNy + 2*OLy )        INTEGER resh_i( MNC_MAX_BUFF )
568    
569  C     Functions  C     Functions
570        integer IFNBLNK, ILNBLNK        integer IFNBLNK, ILNBLNK
# Line 788  C         Read the variable one vector a Line 798  C         Read the variable one vector a
798        kr = 0        kr = 0
799        vstart(1) = udo(1) + 1        vstart(1) = udo(1) + 1
800        vcount(1) = e(1) - s(1) + 1        vcount(1) = e(1) - s(1) + 1
801          
802          IF (vcount(1) .GT. MNC_MAX_BUFF) THEN
803            write(msgbuf,'(2a,I7,a)') 'MNC_MAX_BUFF is too small',
804         &       '--please increase to at least ',
805         &       vcount(1), ' in ''MNC_SIZE.h'''
806            CALL PRINT_ERROR(msgBuf , 1)
807            STOP 'ABNORMAL END: S/R MNC_CW_RX_R_OFFSET'
808          ENDIF
809    
810        IF (stype(1:1) .EQ. 'D') THEN        IF (stype(1:1) .EQ. 'D') THEN
811          err = NF_GET_VARA_DOUBLE(fid, idv, vstart, vcount, resh_d)          err = NF_GET_VARA_DOUBLE(fid, idv, vstart, vcount, resh_d)
812          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22