/[MITgcm]/MITgcm/pkg/bling/bling_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/bling/bling_init_varia.F

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

revision 1.6 by mmazloff, Thu Mar 16 17:03:26 2017 UTC revision 1.7 by mmazloff, Wed Mar 29 15:47:49 2017 UTC
# Line 21  C     === Global variables === Line 21  C     === Global variables ===
21  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
22  #include "PTRACERS_PARAMS.h"  #include "PTRACERS_PARAMS.h"
23  #include "BLING_VARS.h"  #include "BLING_VARS.h"
24  #ifdef ALLOW_BLING_COST  
 # include "BLING_COST.h"  
 #endif  
25  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
26  C     myThid               :: thread number  C     myThid               :: thread number
27        INTEGER myThid        INTEGER myThid
# Line 157  C IF ABOVE TRUE phyto READ FROM PICKUP A Line 155  C IF ABOVE TRUE phyto READ FROM PICKUP A
155  C PICKUP CALLED FROM bling_carbonate_init.F  C PICKUP CALLED FROM bling_carbonate_init.F
156  C  C
157    
 # ifdef ALLOW_BLING_COST  
       totcost =  0. _d 0  
 # endif  
   
158  #endif /* ALLOW_BLING */  #endif /* ALLOW_BLING */
159    
160        RETURN        RETURN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22