1 |
C $Header$ |
C $Header$ |
2 |
|
|
3 |
#include "CPP_OPTIONS.h" |
#include "MDSIO_OPTIONS.h" |
4 |
|
|
5 |
C The five "public" routines supplied here are: |
C The five "public" routines supplied here are: |
6 |
C |
C |
26 |
C |
C |
27 |
C To be modified to work with MITgcmuv message routines. |
C To be modified to work with MITgcmuv message routines. |
28 |
|
|
|
#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 |
|
|
|
|
29 |
C======================================================================= |
C======================================================================= |
30 |
SUBROUTINE MDSREADFIELD_3D_GL( |
SUBROUTINE MDSREADFIELD_3D_GL( |
31 |
I fName, |
I fName, |