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

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

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

revision 1.2 by stephd, Mon May 2 17:55:00 2011 UTC revision 1.3 by jahn, Thu Sep 22 16:01:30 2011 UTC
# Line 184  c  no temp/nutrient limitation Line 184  c  no temp/nutrient limitation
184  #endif  #endif
185  c ANNA endif  c ANNA endif
186    
187           _BEGIN_MASTER(myThid)           IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN
188  c write out initial phyto characteristics  c write out initial phyto characteristics
189  #ifndef GEIDER  #ifndef GEIDER
190           CALL MDSFINDUNIT( IniUnit1, mythid )           CALL MDSFINDUNIT( IniUnit1, mythid )
# Line 279  c ANNA outputs mQyield as 10^(4) mmol C Line 279  c ANNA outputs mQyield as 10^(4) mmol C
279           close(IniUnit1)           close(IniUnit1)
280   110     format(3f4.0,f6.2,4f4.0,f5.1,4f7.3,2e11.2,2f9.4,f6.1,2i5)   110     format(3f4.0,f6.2,4f4.0,f5.1,4f7.3,2e11.2,2f9.4,f6.1,2i5)
281   111     format(3f4.0,f6.2,4f4.0,f5.1,4f7.3,2f6.1,2f9.4,f6.1,2i5)   111     format(3f4.0,f6.2,4f4.0,f5.1,4f7.3,2f6.1,2f9.4,f6.1,2i5)
282    c       myProcId and myThid
283            ENDIF
284    
285           CALL LEF_ZERO( fice,myThid )           CALL LEF_ZERO( fice,myThid )
286           CALL LEF_ZERO( inputFe,myThid )           CALL LEF_ZERO( inputFe,myThid )
# Line 410  c         CALL TIMEAVE_RESET(SURave,   1 Line 412  c         CALL TIMEAVE_RESET(SURave,   1
412  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
413    
414  #ifdef CHECK_CONS  #ifdef CHECK_CONS
415           IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN
416  coj find unused units for darwin_cons output  coj find unused units for darwin_cons output
417          CALL MDSFINDUNIT( DAR_cons_unit1, mythid )          CALL MDSFINDUNIT( DAR_cons_unit1, mythid )
418          open(DAR_cons_unit1,file='darwin_cons_P.txt',status='unknown')          open(DAR_cons_unit1,file='darwin_cons_P.txt',status='unknown')
# Line 427  coj find unused units for darwin_cons ou Line 430  coj find unused units for darwin_cons ou
430          CALL MDSFINDUNIT( DAR_cons_unit7, mythid )          CALL MDSFINDUNIT( DAR_cons_unit7, mythid )
431          open(DAR_cons_unit7,file='darwin_cons_O.txt',status='unknown')          open(DAR_cons_unit7,file='darwin_cons_O.txt',status='unknown')
432  #endif  #endif
433    c      myProcId and myThid
434           ENDIF
435  #endif  #endif
          _END_MASTER(myThid)  
436    
437  c test....................  c test....................
438  c       write(6,*)'finishing darwin_init_vari '  c       write(6,*)'finishing darwin_init_vari '
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22