/[MITgcm]/MITgcm/pkg/seaice/seaice_cost_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_cost_init_fixed.F

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

revision 1.1 by heimbach, Thu Aug 25 16:10:42 2005 UTC revision 1.2 by heimbach, Thu Sep 1 05:34:31 2005 UTC
# Line 59  c     == end of interface == Line 59  c     == end of interface ==
59        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
60    
61  c--   Sea-ice cost function start and stop times in model seconds.  c--   Sea-ice cost function start and stop times in model seconds.
62    c
63          call cal_FullDate  ( costIceStart1 , costIceStart2,          call cal_FullDate  ( costIceStart1 , costIceStart2,
64       &                       tempDate1     , mythid )       &                       tempDate1     , mythid )
65          call cal_TimePassed( modelstartdate, tempDate1    ,          call cal_TimePassed( modelstartdate, tempDate1    ,
66       &                       tempDate2     , mythid )       &                       tempDate2     , mythid )
67          call cal_ToSeconds ( tempDate2 , costIceStart , mythid )          call cal_ToSeconds ( tempDate2 , costIceStart , mythid )
68          costIceStart = costIceStart + startTime          costIceStart = costIceStart + startTime
69    c
70          call cal_FullDate  ( costIceEnd1   , costIceEnd2  ,          call cal_FullDate  ( costIceEnd1   , costIceEnd2  ,
71       &                       tempDate1     , mythid )       &                       tempDate1     , mythid )
72          call cal_TimePassed( modelstartdate, tempDate1    ,          call cal_TimePassed( modelstartdate, tempDate1    ,
73       &                       tempDate2     , mythid )       &                       tempDate2     , mythid )
74          call cal_ToSeconds ( tempDate2 , costIceEnd , mythid )          call cal_ToSeconds ( tempDate2 , costIceEnd , mythid )
75          costIceEnd = costIceEnd + startTime          costIceEnd = costIceEnd + startTime
76    c--
77            call cal_FullDate( smrareastartdate1, smrareastartdate2,
78         &                 smrareastartdate, mythid )
79    
80        _END_MASTER( mythid )        _END_MASTER( mythid )
81    
# Line 80  c--   Sea-ice cost function start and st Line 83  c--   Sea-ice cost function start and st
83    
84  c--   Get the weights that are to be used for the individual cost  c--   Get the weights that are to be used for the individual cost
85  c--   function contributions.  c--   function contributions.
86  cph      call seaice_cost_weights( mythid )        call seaice_cost_weights( mythid )
87    
88  c--   Initialise adjoint of monthly mean files calculated  c--   Initialise adjoint of monthly mean files calculated
89  c--   in cost_averagesfields (and their ad...).  c--   in cost_averagesfields (and their ad...).
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22