/[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.17 by heimbach, Mon Mar 6 19:16:53 2006 UTC revision 1.18 by heimbach, Thu Mar 23 23:06:48 2006 UTC
# Line 353  c                  function contribution Line 353  c                  function contribution
353       &                objf_diffkr,       &                objf_diffkr,
354       &                objf_theta_ini_fin,       &                objf_theta_ini_fin,
355       &                objf_salt_ini_fin,       &                objf_salt_ini_fin,
356       &                objf_eddytau       &                objf_eddytau,
357         &                objf_profiles
358    
359        _RL  objf_hflux  (nsx,nsy)        _RL  objf_hflux  (nsx,nsy)
360        _RL  objf_hfluxm (nsx,nsy)        _RL  objf_hfluxm (nsx,nsy)
# Line 428  c                  function contribution Line 429  c                  function contribution
429        _RL  objf_theta_ini_fin(nsx,nsy)        _RL  objf_theta_ini_fin(nsx,nsy)
430        _RL  objf_salt_ini_fin(nsx,nsy)        _RL  objf_salt_ini_fin(nsx,nsy)
431        _RL  objf_eddytau(nsx,nsy)        _RL  objf_eddytau(nsx,nsy)
432          _RL  objf_profiles(50,10,nsx,nsy)
433    
434        common /ecco_cost_num/        common /ecco_cost_num/
435       &                num_hflux,       &                num_hflux,
# Line 489  c                  function contribution Line 491  c                  function contribution
491       &                num_diffkr,       &                num_diffkr,
492       &                num_theta_ini_fin,       &                num_theta_ini_fin,
493       &                num_salt_ini_fin,       &                num_salt_ini_fin,
494       &                num_eddytau       &                num_eddytau,
495         &                num_profiles
496    
497        _RL  num_hflux  (nsx,nsy)        _RL  num_hflux  (nsx,nsy)
498        _RL  num_hfluxm (nsx,nsy)        _RL  num_hfluxm (nsx,nsy)
# Line 551  c                  function contribution Line 554  c                  function contribution
554        _RL  num_theta_ini_fin(nsx,nsy)        _RL  num_theta_ini_fin(nsx,nsy)
555        _RL  num_salt_ini_fin(nsx,nsy)        _RL  num_salt_ini_fin(nsx,nsy)
556        _RL  num_eddytau(nsx,nsy)        _RL  num_eddytau(nsx,nsy)
557          _RL  num_profiles(50,10,nsx,nsy)
558    
559        common /ecco_cost_aux_r/        common /ecco_cost_aux_r/
560       &                    mult_hflux,       &                    mult_hflux,
# Line 600  c                  function contribution Line 604  c                  function contribution
604       &                    mult_ini_fin,       &                    mult_ini_fin,
605       &                    mult_eddytau,       &                    mult_eddytau,
606       &                    mult_smooth_ic,       &                    mult_smooth_ic,
607       &                    mult_smooth_bc       &                    mult_smooth_bc,
608         &                    mult_profiles
609    
610        _RL  mult_hflux        _RL  mult_hflux
611        _RL  mult_sflux        _RL  mult_sflux
# Line 650  c                  function contribution Line 655  c                  function contribution
655        _RL  mult_eddytau        _RL  mult_eddytau
656        _RL  mult_smooth_ic        _RL  mult_smooth_ic
657        _RL  mult_smooth_bc        _RL  mult_smooth_bc
658          _RL  mult_profiles(50,10)
659    
660  c     Record counters relevant for the cost function evaluation.  c     Record counters relevant for the cost function evaluation.
661  c     ==========================================================  c     ==========================================================
# Line 1051  c     driftfile     - reference data fil Line 1057  c     driftfile     - reference data fil
1057       &                     udriftfile,       &                     udriftfile,
1058       &                     vdriftfile,       &                     vdriftfile,
1059       &                     curmtrufile,       &                     curmtrufile,
1060       &                     curmtrvfile       &                     curmtrvfile,
1061         &                     profilesfiles
1062    
1063        character*(MAX_LEN_FNAM) tdatfile        character*(MAX_LEN_FNAM) tdatfile
1064        character*(MAX_LEN_FNAM) sdatfile        character*(MAX_LEN_FNAM) sdatfile
# Line 1076  c     driftfile     - reference data fil Line 1083  c     driftfile     - reference data fil
1083        character*(MAX_LEN_FNAM) vdriftfile              character*(MAX_LEN_FNAM) vdriftfile      
1084        character*(MAX_LEN_FNAM) curmtrufile        character*(MAX_LEN_FNAM) curmtrufile
1085        character*(MAX_LEN_FNAM) curmtrvfile        character*(MAX_LEN_FNAM) curmtrvfile
1086          character*(MAX_LEN_FNAM) profilesfiles(50)
1087    
1088    
1089  c     Flags used in the model-data comparison:  c     Flags used in the model-data comparison:
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22