90 |
C separately because of sea-ice fraction. |
C separately because of sea-ice fraction. |
91 |
C Caution: CFC_USE_INTERP as used is not thread-safe. |
C Caution: CFC_USE_INTERP as used is not thread-safe. |
92 |
#ifdef CFC_USE_INTERP |
#ifdef CFC_USE_INTERP |
93 |
CALL NEW_INTERP( FiceFile,readBinaryPrec,fice0,intime0, |
CALL EXF_INTERP( FiceFile,readBinaryPrec,fice0,intime0, |
94 |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,mythid ) |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,1,mythid ) |
95 |
CALL NEW_INTERP( FiceFile,readBinaryPrec,fice1,intime1, |
CALL EXF_INTERP( FiceFile,readBinaryPrec,fice1,intime1, |
96 |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,mythid ) |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,1,mythid ) |
97 |
CALL NEW_INTERP( XkwFile,readBinaryPrec,xkw0,intime0, |
CALL EXF_INTERP( XkwFile,readBinaryPrec,xkw0,intime0, |
98 |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,mythid ) |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,1,mythid ) |
99 |
CALL NEW_INTERP( XkwFile,readBinaryPrec,xkw1,intime1, |
CALL EXF_INTERP( XkwFile,readBinaryPrec,xkw1,intime1, |
100 |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,mythid ) |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,1,mythid ) |
101 |
CALL NEW_INTERP( PatmFile,readBinaryPrec,patm0,intime0, |
CALL EXF_INTERP( PatmFile,readBinaryPrec,patm0,intime0, |
102 |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,mythid ) |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,1,mythid ) |
103 |
CALL NEW_INTERP( PatmFile,readBinaryPrec,patm1,intime1, |
CALL EXF_INTERP( PatmFile,readBinaryPrec,patm1,intime1, |
104 |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,mythid ) |
& xC,yC,lon0,lon_inc,lat0,lat_inc,nlon,nlat,1,mythid ) |
105 |
#else |
#else |
106 |
CALL MDSREADFIELD ( FiceFile, readBinaryPrec, |
CALL MDSREADFIELD ( FiceFile, readBinaryPrec, |
107 |
& 'RS', 1, fice0, intime0, myThid ) |
& 'RS', 1, fice0, intime0, myThid ) |