/[MITgcm]/MITgcm/pkg/mnc/mnc_var.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_var.F

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

revision 1.10 by edhill, Sun Jan 25 00:22:57 2004 UTC revision 1.11 by edhill, Tue Jan 27 05:47:33 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3                
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8        SUBROUTINE MNC_VAR_INIT_DBL(        SUBROUTINE MNC_VAR_INIT_DBL(
9       I     myThid,       I     myThid,
# Line 23  C     Arguments Line 23  C     Arguments
23        RETURN        RETURN
24        END        END
25    
26  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
27    
28        SUBROUTINE MNC_VAR_INIT_REAL(        SUBROUTINE MNC_VAR_INIT_REAL(
29       I     myThid,       I     myThid,
# Line 43  C     Arguments Line 43  C     Arguments
43        RETURN        RETURN
44        END        END
45    
46  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
47    
48        SUBROUTINE MNC_VAR_INIT_INT(        SUBROUTINE MNC_VAR_INIT_INT(
49       I     myThid,       I     myThid,
# Line 63  C     Arguments Line 63  C     Arguments
63        RETURN        RETURN
64        END        END
65    
66  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
67    
68        SUBROUTINE MNC_VAR_INIT_ANY(        SUBROUTINE MNC_VAR_INIT_ANY(
69       I     myThid,       I     myThid,
# Line 173  C     Add the units Line 173  C     Add the units
173        RETURN        RETURN
174        END        END
175    
176  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
177    
178        SUBROUTINE MNC_VAR_ADD_ATTR_STR(        SUBROUTINE MNC_VAR_ADD_ATTR_STR(
179       I     myThid,       I     myThid,
# Line 191  C     Arguments Line 191  C     Arguments
191       &     1, sval, 0, 0.0D0, 0.0, 0)       &     1, sval, 0, 0.0D0, 0.0, 0)
192        RETURN        RETURN
193        END        END
194  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
195    
196        SUBROUTINE MNC_VAR_ADD_ATTR_DBL(        SUBROUTINE MNC_VAR_ADD_ATTR_DBL(
197       I     myThid,       I     myThid,
# Line 212  C     Arguments Line 212  C     Arguments
212        RETURN        RETURN
213        END        END
214    
215  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
216    
217        SUBROUTINE MNC_VAR_ADD_ATTR_REAL(        SUBROUTINE MNC_VAR_ADD_ATTR_REAL(
218       I     myThid,       I     myThid,
# Line 233  C     Arguments Line 233  C     Arguments
233        RETURN        RETURN
234        END        END
235    
236  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
237    
238        SUBROUTINE MNC_VAR_ADD_ATTR_INT(        SUBROUTINE MNC_VAR_ADD_ATTR_INT(
239       I     myThid,       I     myThid,
# Line 254  C     Arguments Line 254  C     Arguments
254        RETURN        RETURN
255        END        END
256    
257  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
258    
259        SUBROUTINE MNC_VAR_ADD_ATTR_ANY(        SUBROUTINE MNC_VAR_ADD_ATTR_ANY(
260       I     myThid,       I     myThid,
# Line 325  C     Set the attribute Line 325  C     Set the attribute
325        RETURN        RETURN
326        END        END
327    
328  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
329    
330        SUBROUTINE MNC_VAR_WRITE_DBL(        SUBROUTINE MNC_VAR_WRITE_DBL(
331       I     myThid,       I     myThid,
# Line 343  C     Arguments Line 343  C     Arguments
343        RETURN        RETURN
344        END        END
345    
346  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
347    
348        SUBROUTINE MNC_VAR_WRITE_REAL(        SUBROUTINE MNC_VAR_WRITE_REAL(
349       I     myThid,       I     myThid,
# Line 361  C     Arguments Line 361  C     Arguments
361        RETURN        RETURN
362        END        END
363    
364  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
365    
366        SUBROUTINE MNC_VAR_WRITE_INT(        SUBROUTINE MNC_VAR_WRITE_INT(
367       I     myThid,       I     myThid,
# Line 379  C     Arguments Line 379  C     Arguments
379        RETURN        RETURN
380        END        END
381    
382  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
383    
384        SUBROUTINE MNC_VAR_APPEND_DBL(        SUBROUTINE MNC_VAR_APPEND_DBL(
385       I     myThid,       I     myThid,
# Line 398  C     Arguments Line 398  C     Arguments
398        RETURN        RETURN
399        END        END
400    
401  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
402    
403        SUBROUTINE MNC_VAR_APPEND_REAL(        SUBROUTINE MNC_VAR_APPEND_REAL(
404       I     myThid,       I     myThid,
# Line 417  C     Arguments Line 417  C     Arguments
417        RETURN        RETURN
418        END        END
419    
420  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
421    
422        SUBROUTINE MNC_VAR_APPEND_INT(        SUBROUTINE MNC_VAR_APPEND_INT(
423       I     myThid,       I     myThid,
# Line 436  C     Arguments Line 436  C     Arguments
436        RETURN        RETURN
437        END        END
438    
439  C==================================================================  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
440    
441        SUBROUTINE MNC_VAR_WRITE_ANY(        SUBROUTINE MNC_VAR_WRITE_ANY(
442       I     myThid,       I     myThid,
# Line 532  C     Check for the unlimited dimension Line 532  C     Check for the unlimited dimension
532        RETURN        RETURN
533        END        END
534    
535    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
536    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22