1 |
#include "CPP_OPTIONS.h" |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
|
#include "MDSIO_OPTIONS.h" |
5 |
|
|
6 |
C The five "public" routines supplied here are: |
C The five "public" routines supplied here are: |
7 |
C |
C |
27 |
C |
C |
28 |
C To be modified to work with MITgcmuv message routines. |
C To be modified to work with MITgcmuv message routines. |
29 |
|
|
|
#undef SAFE_IO |
|
|
|
|
|
#ifdef SAFE_IO |
|
|
#define _NEW_STATUS 'new' |
|
|
#else |
|
|
#define _NEW_STATUS 'unknown' |
|
|
#endif |
|
|
|
|
|
#ifdef ALLOW_AUTODIFF_TAMC |
|
|
#define _OLD_STATUS 'unknown' |
|
|
#else |
|
|
#define _OLD_STATUS 'old' |
|
|
#endif |
|
|
|
|
30 |
C======================================================================= |
C======================================================================= |
31 |
SUBROUTINE MDSREADFIELD_XZ_GL( |
SUBROUTINE MDSREADFIELD_XZ_GL( |
32 |
I fName, |
I fName, |