/[MITgcm]/MITgcm/pkg/ecco/ecco_cost.h
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_cost.h

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

revision 1.9 by heimbach, Sat Aug 6 11:02:01 2005 UTC revision 1.10 by heimbach, Thu Aug 25 16:10:41 2005 UTC
# Line 8  c       fields and counters associated w Line 8  c       fields and counters associated w
8  c  c
9  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
10  c  c
 c     added sea-ice term: menemenlis@jpl.nasa.gov 26-Feb-2003  
 c  
11  c     ==================================================================  c     ==================================================================
12  c     HEADER AVERAGES  c     HEADER AVERAGES
13  c     ==================================================================  c     ==================================================================
# Line 274  c     objf_scatxm - time-mean zonal SCAT Line 272  c     objf_scatxm - time-mean zonal SCAT
272  c     objf_scatym - time-mean meridional SCAT  contribution  c     objf_scatym - time-mean meridional SCAT  contribution
273  c     objf_scatx  - zonal SCAT  contribution  c     objf_scatx  - zonal SCAT  contribution
274  c     objf_scaty  - meridional SCAT  contribution  c     objf_scaty  - meridional SCAT  contribution
 c     objf_ice    - sea-ice volume  
275  c     objf_kapgm  - kappa GM contribution  c     objf_kapgm  - kappa GM contribution
276  c     objf_diffkr - diffusion contribution  c     objf_diffkr - diffusion contribution
277  c     objf_theta_ini_fin - final vs. initial theta misfit  c     objf_theta_ini_fin - final vs. initial theta misfit
# Line 339  c                  function contribution Line 336  c                  function contribution
336       &                objf_obcsvol,       &                objf_obcsvol,
337       &                objf_curmtr,       &                objf_curmtr,
338       &                objf_ageos,       &                objf_ageos,
      &                objf_ice,  
339       &                objf_kapgm,       &                objf_kapgm,
340       &                objf_diffkr,       &                objf_diffkr,
341       &                objf_theta_ini_fin,       &                objf_theta_ini_fin,
# Line 401  c                  function contribution Line 397  c                  function contribution
397        _RL  objf_obcsvol        _RL  objf_obcsvol
398        _RL  objf_curmtr(nsx,nsy)        _RL  objf_curmtr(nsx,nsy)
399        _RL  objf_ageos(nsx,nsy)        _RL  objf_ageos(nsx,nsy)
       _RL  objf_ice  (nsx,nsy)  
400        _RL  objf_kapgm(nsx,nsy)        _RL  objf_kapgm(nsx,nsy)
401        _RL  objf_diffkr(nsx,nsy)        _RL  objf_diffkr(nsx,nsy)
402        _RL  objf_theta_ini_fin(nsx,nsy)        _RL  objf_theta_ini_fin(nsx,nsy)
# Line 464  c                  function contribution Line 459  c                  function contribution
459       &                num_obcsvol,       &                num_obcsvol,
460       &                num_curmtr,       &                num_curmtr,
461       &                num_ageos,       &                num_ageos,
      &                num_ice,  
462       &                num_kapgm,       &                num_kapgm,
463       &                num_diffkr,       &                num_diffkr,
464       &                num_theta_ini_fin,       &                num_theta_ini_fin,
# Line 526  c                  function contribution Line 520  c                  function contribution
520        _RL  num_obcsvol        _RL  num_obcsvol
521        _RL  num_curmtr(nsx,nsy)        _RL  num_curmtr(nsx,nsy)
522        _RL  num_ageos(nsx,nsy)        _RL  num_ageos(nsx,nsy)
       _RL  num_ice  (nsx,nsy)  
523        _RL  num_kapgm(nsx,nsy)        _RL  num_kapgm(nsx,nsy)
524        _RL  num_diffkr(nsx,nsy)        _RL  num_diffkr(nsx,nsy)
525        _RL  num_theta_ini_fin(nsx,nsy)        _RL  num_theta_ini_fin(nsx,nsy)
# Line 574  c                  function contribution Line 567  c                  function contribution
567       &                    mult_obcsvol,       &                    mult_obcsvol,
568       &                    mult_curmtr,       &                    mult_curmtr,
569       &                    mult_ageos,       &                    mult_ageos,
      &                    mult_ice,  
570       &                    mult_kapgm,       &                    mult_kapgm,
571       &                    mult_diffkr,       &                    mult_diffkr,
572       &                    mult_ini_fin,       &                    mult_ini_fin,
# Line 620  c                  function contribution Line 612  c                  function contribution
612        _RL  mult_obcsvol        _RL  mult_obcsvol
613        _RL  mult_curmtr        _RL  mult_curmtr
614        _RL  mult_ageos        _RL  mult_ageos
       _RL  mult_ice  
615        _RL  mult_kapgm        _RL  mult_kapgm
616        _RL  mult_diffkr        _RL  mult_diffkr
617        _RL  mult_ini_fin        _RL  mult_ini_fin
# Line 1092  c     sshperiod      - sampling interval Line 1083  c     sshperiod      - sampling interval
1083       &                           ersstartdate1,       &                           ersstartdate1,
1084       &                           ersstartdate2,       &                           ersstartdate2,
1085       &                           scatstartdate1,       &                           scatstartdate1,
1086       &                           scatstartdate2,       &                           scatstartdate2
      &                           costIceStart1,  
      &                           costIceStart2,  
      &                           costIceEnd1,  
      &                           costIceEnd2  
1087    
1088        integer tmistartdate1        integer tmistartdate1
1089        integer tmistartdate2        integer tmistartdate2
# Line 1114  c     sshperiod      - sampling interval Line 1101  c     sshperiod      - sampling interval
1101        integer ersstartdate2        integer ersstartdate2
1102        integer scatstartdate1        integer scatstartdate1
1103        integer scatstartdate2        integer scatstartdate2
       integer costIceStart1  
       integer costIceStart2  
       integer costIceEnd1  
       integer costIceEnd2  
1104    
1105        common /ecco_cost_data_times_r/        common /ecco_cost_data_times_r/
1106       &                           topexperiod,       &                           topexperiod,
1107       &                           ersperiod,       &                           ersperiod,
1108       &                           scatperiod,       &                           scatperiod
      &                           costIceStart,  
      &                           costIceEnd  
1109        _RL topexperiod        _RL topexperiod
1110        _RL ersperiod        _RL ersperiod
1111        _RL scatperiod        _RL scatperiod
       _RL costIceStart  
       _RL costIceEnd  
   
 c     cost_ice_flag  - cost_ice flag (see cost_ice.F)  
   
       common /ecco_cost_ice_i/ cost_ice_flag  
       integer cost_ice_flag  
1112    
1113  c     ==================================================================  c     ==================================================================
1114  c     END OF HEADER COST  c     END OF HEADER COST
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22