/[MITgcm]/MITgcm/pkg/icefront/icefront_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/icefront/icefront_init_varia.F

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

revision 1.9 by jmc, Tue Mar 20 14:56:05 2012 UTC revision 1.10 by yunx, Sun Nov 10 02:58:34 2013 UTC
# Line 19  C     === Global variables === Line 19  C     === Global variables ===
19  #include "PARAMS.h"  #include "PARAMS.h"
20  #include "GRID.h"  #include "GRID.h"
21  #include "ICEFRONT.h"  #include "ICEFRONT.h"
 #ifdef ALLOW_SUBGLACIAL_RUNOFF  
 # include "EXF_PARAM.h"  
 #endif  
22    
23  C     === Routine arguments ===  C     === Routine arguments ===
24  C     myThid -  Number of this instance of ICEFRONT_INIT_VARIA  C     myThid -  Number of this instance of ICEFRONT_INIT_VARIA
# Line 47  CEOP Line 44  CEOP
44         ENDDO         ENDDO
45        ENDDO        ENDDO
46    
 #ifdef ALLOW_SUBGLACIAL_RUNOFF  
       CALL EXF_INIT_RUNOFF (  
      &     sgrunofffile, sgrunoffperiod,  
      &     exf_inscal_sgrunoff, sgrunoffmask, sgrunoffconst,  
      &     sgrunoff, sgrunoff0, sgrunoff1, myThid )  
 #endif /* ALLOW_SUBGLACIAL_RUNOFF */  
   
47  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
48    
49        RETURN        RETURN
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22