/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

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

revision 1.42 by mlosch, Mon Jul 25 08:20:44 2011 UTC revision 1.43 by jmc, Thu Apr 5 00:00:22 2012 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
5    
6    C--  File ctrl_init.F:
7    C--   Contents
8    C--   o CTRL_INIT
9    C--   o CTRL_INIT_REC
10    
11    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
12    
13        subroutine ctrl_init( mythid )        subroutine ctrl_init( mythid )
14    
15  c     ==================================================================  c     ==================================================================
# Line 68  c     == global variables == Line 75  c     == global variables ==
75  #include "ctrl.h"  #include "ctrl.h"
76  #include "optim.h"  #include "optim.h"
77    
 #ifdef ALLOW_CAL  
 # include "cal.h"  
 #endif  
78  #ifdef ALLOW_DIC_CONTROL  #ifdef ALLOW_DIC_CONTROL
79  # include "DIC_CTRL.h"  # include "DIC_CTRL.h"
80  #endif  #endif
# Line 798  c--------------------------------------- Line 802  c---------------------------------------
802        return        return
803        end        end
804    
805    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
806    
807        subroutine ctrl_init_rec(        subroutine ctrl_init_rec(
808       I     fldstartdate1, fldstartdate2, fldperiod, nfac,       I     fldstartdate1, fldstartdate2, fldperiod, nfac,
809       O     fldstartdate, diffrec, startrec, endrec,       O     fldstartdate, diffrec, startrec, endrec,
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22