/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_init_fixed.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_init_fixed.F

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

revision 1.9 by stephd, Thu Jul 26 21:40:10 2012 UTC revision 1.10 by jahn, Wed Dec 4 21:21:32 2013 UTC
# Line 39  C     /--------------------------------- Line 39  C     /---------------------------------
39  C     |  initialise common block biochemical parameters               |  C     |  initialise common block biochemical parameters               |
40  C     \--------------------------------------------------------------/  C     \--------------------------------------------------------------/
41    
42          _BEGIN_MASTER(myThid)
43    
44        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
45       &'// ======================================================='       &'// ======================================================='
46        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 397  COJ set up diagnostics Line 399  COJ set up diagnostics
399  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
400  COJ  COJ
401    
402          _END_MASTER(myThid)
403    
404          RETURN
405          RETURN        END
         END  
406  C============================================================================  C============================================================================
407  #endif  #endif
408  #endif  #endif
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22