/[MITgcm]/MITgcm/verification/global_with_CFC11/code1x1/external_forcing_tr.F
ViewVC logotype

Diff of /MITgcm/verification/global_with_CFC11/code1x1/external_forcing_tr.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1.2.1 by dimitri, Thu Aug 25 16:22:17 2005 UTC revision 1.1.2.2 by dimitri, Thu Aug 25 18:21:17 2005 UTC
# Line 90  C   For low-resolution, less that 1-deg, Line 90  C   For low-resolution, less that 1-deg,
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 )
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2
  ViewVC Help
Powered by ViewVC 1.1.22