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

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

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

revision 1.17 by molod, Wed Sep 1 18:32:33 2004 UTC revision 1.18 by molod, Tue Sep 28 19:30:24 2004 UTC
# Line 34  c--------------------------------------- Line 34  c---------------------------------------
34  #include "gridalt_mapping.h"  #include "gridalt_mapping.h"
35  #include "GRID.h"  #include "GRID.h"
36  #include "PARAMS.h"  #include "PARAMS.h"
37    #ifdef ALLOW_MNC
38    #include "MNC_PARAMS.h"
39    #endif
40    
41         integer myThid         integer myThid
42    
# Line 55  c--------------------------------------- Line 58  c---------------------------------------
58         nymdb = nymd0         nymdb = nymd0
59         nhmsb = nhms0         nhmsb = nhms0
60    
61    #ifdef ALLOW_MNC
62           if (useMNC) then
63            call fizhi_mnc_init(myThid)
64           endif
65    #endif
66    
67         call fizhi_alarms(nymdb,nhmsb,deltaTClock)         call fizhi_alarms(nymdb,nhmsb,deltaTClock)
68    
69         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22