/[MITgcm]/MITgcm/pkg/fizhi/update_ocean_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_ocean_exports.F

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

revision 1.5 by molod, Wed Jun 9 16:23:43 2004 UTC revision 1.6 by molod, Thu Jun 10 20:17:17 2004 UTC
# Line 24  c--------------------------------------- Line 24  c---------------------------------------
24         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
25         integer nSxglobal, nSyglobal         integer nSxglobal, nSyglobal
26         integer ksst,kice         integer ksst,kice
27         real        sstmin         _RL        sstmin
28         parameter ( sstmin = 273.16 )         parameter ( sstmin = 273.16 )
29    
30         idim1 = 1-OLx         idim1 = 1-OLx
# Line 125  C Maximum number of dates in one year fo Line 125  C Maximum number of dates in one year fo
125    
126        character*8  cname        character*8  cname
127        character*80 cdscrip        character*80 cdscrip
128        real fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef        _RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef
129        logical first, found, error        logical first, found, error
130        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc,npxbc,npybd        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc,npxbc,npybd
131        integer ndatebc,nhmsbc(ndmax), nhmsbc1, nhmsbc2,nrec        integer ndatebc,nhmsbc(ndmax), nhmsbc1, nhmsbc2,nrec
132        integer nymdbc(ndmax),nymdbc1,nymdbc2,nymdmod        integer nymdbc(ndmax),nymdbc1,nymdbc2,nymdmod
133    
134        real sicebc1(im2,jm2,nPx,nPy),sicebc2(im2,jm2,nPx,nPy)        _RL sicebc1(im2,jm2,nPx,nPy),sicebc2(im2,jm2,nPx,nPy)
135    
136  C--------- Variable Initialization ---------------------------------  C--------- Variable Initialization ---------------------------------
137    
# Line 370  C Maximum number of dates in one year fo Line 370  C Maximum number of dates in one year fo
370    
371        character*8  cname        character*8  cname
372        character*80 cdscrip        character*80 cdscrip
373        real fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef        _RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef
374        logical first, found, error        logical first, found, error
375        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc,npxbc,npybd        integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc,npxbc,npybd
376        integer ndatebc,nhmsbc(ndmax), nhmsbc1, nhmsbc2,nrec        integer ndatebc,nhmsbc(ndmax), nhmsbc1, nhmsbc2,nrec
377        integer nymdbc(ndmax),nymdbc1,nymdbc2,nymdmod        integer nymdbc(ndmax),nymdbc1,nymdbc2,nymdmod
378    
379        real sstbc1(im2,jm2,nPx,nPy),sstbc2(im2,jm2,nPx,nPy)        _RL sstbc1(im2,jm2,nPx,nPy),sstbc2(im2,jm2,nPx,nPy)
380    
381  C--------- Variable Initialization ---------------------------------  C--------- Variable Initialization ---------------------------------
382    
# Line 566  C!      field2(im,jm,nPx,nPy)  data fiel Line 566  C!      field2(im,jm,nPx,nPy)  data fiel
566  C  C
567  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
568        implicit none        implicit none
569    #include "CPP_OPTIONS.h"
570    
571        integer iunit,im,jm,nPx,nPy,nrec1,nrec2        integer iunit,im,jm,nPx,nPy,nrec1,nrec2
572    
573        real  field1(im,jm)        _RL  field1(im,jm)
574        real  field2(im,jm)        _RL  field2(im,jm)
575    
576        integer i,j,n1,n2        integer i,j,n1,n2
577        real*4 f1(im,jm,nPx,nPy), f1(im,jm,nPx,nPy)        real*4 f1(im,jm,nPx,nPy), f1(im,jm,nPx,nPy)
# Line 622  C!      error         logical TRUE if da Line 623  C!      error         logical TRUE if da
623  C  C
624  C--------------------------------------------------------------------------  C--------------------------------------------------------------------------
625        implicit none        implicit none
626    #include "CPP_OPTIONS.h"
627    
628        integer iunit, ndmax, nrec        integer iunit, ndmax, nrec
629    
630        character*8  cname        character*8  cname
631        character*80 cdscrip        character*80 cdscrip
632        integer im,jm,npx,npy,ndatebc,nymdbc(ndmax),nhmsbc(ndmax)        integer im,jm,npx,npy,ndatebc,nymdbc(ndmax),nhmsbc(ndmax)
633        real lat0,lon0,undef        _RL lat0,lon0,undef
634        logical error        logical error
635    
636        integer i,n        integer i,n
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22