/[MITgcm]/MITgcm/pkg/ecco/cost_readgeoid.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_readgeoid.F

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

revision 1.1 by heimbach, Thu May 5 23:47:57 2005 UTC revision 1.2 by heimbach, Mon May 23 16:11:38 2005 UTC
# Line 9  C $Header$ Line 9  C $Header$
9       &                   )       &                   )
10    
11  c     ==================================================================  c     ==================================================================
12  c     SUBROUTINE cost_geoid  c     SUBROUTINE cost_readgeoid
13  c     ==================================================================  c     ==================================================================
14  c  c
15  c     o Evaluate the cost function of the geoid contribution.  c     o Evaluate the cost function of the geoid contribution.
# Line 27  c              heimbach@mit.edu 05-May-2 Line 27  c              heimbach@mit.edu 05-May-2
27  c              - debugged and restructuted  c              - debugged and restructuted
28  c  c
29  c     ==================================================================  c     ==================================================================
30  c     SUBROUTINE cost_geoid  c     SUBROUTINE cost_readgeoid
31  c     ==================================================================  c     ==================================================================
32    
33        implicit none        implicit none
# Line 46  c     == routine arguments == Line 46  c     == routine arguments ==
46        character*(MAX_LEN_FNAM) geoid_covariancefile        character*(MAX_LEN_FNAM) geoid_covariancefile
47        integer reclength        integer reclength
48        integer jrec        integer jrec
49    #ifndef ALLOW_SPHERE
50    c--   dummy declaration
51          integer ncshc
52          parameter ( ncshc = 1 )
53    #endif
54        Real*8  pinv( ncshc )        Real*8  pinv( ncshc )
55        integer mythid        integer mythid
56    
# Line 66  c     == external functions == Line 71  c     == external functions ==
71    
72  c     == end of interface ==  c     == end of interface ==
73    
74    #ifndef ALLOW_SPHERE
75          print *, 'WARNING: this routine assumes package sphere'
76          print *, 'enable sphere in packages.conf when using '
77          print *, 'CPP option ALLOW_EGM96_ERROR_COV'
78          STOP 'in S/R cost_readgeoid'
79    #endif
80    
81  c--   Only the master thread is doing I/O  c--   Only the master thread is doing I/O
82        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
83    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22