/[MITgcm]/MITgcm/pkg/rw/read_mflds.F
ViewVC logotype

Diff of /MITgcm/pkg/rw/read_mflds.F

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

revision 1.1 by jmc, Mon Oct 22 13:20:07 2007 UTC revision 1.2 by jmc, Tue Oct 23 15:17:24 2007 UTC
# Line 68  C     by reading the corresponding meta Line 68  C     by reading the corresponding meta
68  C     the meta-file content is stored in common block (header: RW_MFLDS.h)  C     the meta-file content is stored in common block (header: RW_MFLDS.h)
69  C     to be reachable by all threads  C     to be reachable by all threads
70    
71    C Note: 1) Output arguments should not be shared variables (= not in common block)
72    C       2) Only master-thread returns a valid filePrec (others just return 0)
73    
74  C     !USES:  C     !USES:
75        IMPLICIT NONE        IMPLICIT NONE
76  #include "SIZE.h"  #include "SIZE.h"
# Line 112  C-    for debug print: Line 115  C-    for debug print:
115    
116  C-----  C-----
117    
118    C-    Initialise output arguments:
119          nbFields = 0
120          filePrec = 0
121    
122  #ifdef RW_SAFE_MFLDS  #ifdef RW_SAFE_MFLDS
123        i = ILNBLNK(mFldsFile)        i = ILNBLNK(mFldsFile)
124        IF ( i.NE.0 ) THEN        IF ( i.NE.0 ) THEN
# Line 174  C-    here we have a problem Line 181  C-    here we have a problem
181  c       IF ( nFl3D.EQ.0 ) nFl3D = nFlds  c       IF ( nFl3D.EQ.0 ) nFl3D = nFlds
182        ENDIF        ENDIF
183    
 C-    set output arguments:  
       nbFields = nFlds  
   
184  C-    write to Standard Output  C-    write to Standard Output
185        IF ( debugLevel.GE.debLevA ) THEN        IF ( debugLevel.GE.debLevA ) THEN
186          ioUnit = standardMessageUnit          ioUnit = standardMessageUnit
# Line 219  C-    write to Standard Output Line 223  C-    write to Standard Output
223        _END_MASTER( myThid )        _END_MASTER( myThid )
224        _BARRIER        _BARRIER
225    
226    C-    set output arguments:
227          nbFields = nFlds
228    
229        RETURN        RETURN
230        END        END
231    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22