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" |
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 |
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 |
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" |
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 |
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) |