/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_readparams.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_readparams.F

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

revision 1.8 by jahn, Tue Apr 16 20:21:57 2013 UTC revision 1.9 by jahn, Wed Dec 4 21:21:32 2013 UTC
# Line 115  CEOP Line 115  CEOP
115       &        dic_pCO2, dic_int1, dic_int2, dic_int3, dic_int4       &        dic_pCO2, dic_int1, dic_int2, dic_int3, dic_int4
116  #endif  #endif
117    
118          _BEGIN_MASTER(myThid)
119    
120  C Set defaults values for parameters in DARWIN_IO.h  C Set defaults values for parameters in DARWIN_IO.h
121        darwin_iceFile=' '        darwin_iceFile=' '
122        darwin_ironFile=' '        darwin_ironFile=' '
# Line 197  c value >= 100 will be converted to inde Line 199  c value >= 100 will be converted to inde
199  #endif /* WAVEBANDS */  #endif /* WAVEBANDS */
200    
201  C Open and read the data.darwin file  C Open and read the data.darwin file
       _BEGIN_MASTER(myThid)  
202        WRITE(msgBuf,'(A)') ' DARWIN_READPARMS: opening data.darwin'        WRITE(msgBuf,'(A)') ' DARWIN_READPARMS: opening data.darwin'
203        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
204       &                   SQUEEZE_RIGHT , 1)       &                   SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22