/[MITgcm]/MITgcm/model/src/read_write.F
ViewVC logotype

Diff of /MITgcm/model/src/read_write.F

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

revision 1.13 by cnh, Fri Nov 6 22:44:48 1998 UTC revision 1.14 by adcroft, Wed Dec 9 16:11:53 1998 UTC
# Line 24  C     | o Controlling routine for IO to Line 24  C     | o Controlling routine for IO to
24  C     |==========================================================|  C     |==========================================================|
25  C     | Read model checkpoint files for use in restart.          |  C     | Read model checkpoint files for use in restart.          |
26  C     \==========================================================/  C     \==========================================================/
27          IMPLICIT NONE
28    
29  C     == Global variables ===  C     == Global variables ===
30  #include "SIZE.h"  #include "SIZE.h"
# Line 162  C     |================================= Line 163  C     |=================================
163  C     | Call low-level routines to read a 2d model field.        |  C     | Call low-level routines to read a 2d model field.        |
164  C     | Handles _RL type data ( generally _RL == REAL*8 )        |  C     | Handles _RL type data ( generally _RL == REAL*8 )        |
165  C     \==========================================================/  C     \==========================================================/
166          IMPLICIT NONE
167    
168  C     == Global variables ==  C     == Global variables ==
169  #include "SIZE.h"  #include "SIZE.h"
# Line 332  C     |================================= Line 334  C     |=================================
334  C     | Call low-level routines to read a 2d model field.        |  C     | Call low-level routines to read a 2d model field.        |
335  C     | Handles _RS type data ( generally _RS == REAL*4 )        |  C     | Handles _RS type data ( generally _RS == REAL*4 )        |
336  C     \==========================================================/  C     \==========================================================/
337          IMPLICIT NONE
338    
339  C     == Global variables ==  C     == Global variables ==
340  #include "SIZE.h"  #include "SIZE.h"
# Line 509  C     |================================= Line 512  C     |=================================
512  C     | Call low-level routines to read a 3d model field.        |  C     | Call low-level routines to read a 3d model field.        |
513  C     | Handles _RL type data ( generally _RL == REAL*8 )        |  C     | Handles _RL type data ( generally _RL == REAL*8 )        |
514  C     \==========================================================/  C     \==========================================================/
515          IMPLICIT NONE
516    
517  C     == Global variables ==  C     == Global variables ==
518  #include "SIZE.h"  #include "SIZE.h"
# Line 688  C     |================================= Line 692  C     |=================================
692  C     | Call low-level routines to read a 3d model field.        |  C     | Call low-level routines to read a 3d model field.        |
693  C     | Handles _RS type data ( generally _RS == REAL*4 )        |  C     | Handles _RS type data ( generally _RS == REAL*4 )        |
694  C     \==========================================================/  C     \==========================================================/
695          IMPLICIT NONE
696    
697  C     == Global variables ==  C     == Global variables ==
698  #include "SIZE.h"  #include "SIZE.h"
# Line 870  C     | one-dimensional INTEGER data in Line 875  C     | one-dimensional INTEGER data in
875  C     | is designed to be readily parsed by a post-processing    |  C     | is designed to be readily parsed by a post-processing    |
876  C     | utility.                                                 |  C     | utility.                                                 |
877  C     \==========================================================/  C     \==========================================================/
878          IMPLICIT NONE
879    
880  C     == Global data ==  C     == Global data ==
881  #include "SIZE.h"  #include "SIZE.h"
# Line 915  C     | one-dimensional LOGICAL data in Line 921  C     | one-dimensional LOGICAL data in
921  C     | is designed to be readily parsed by a post-processing    |  C     | is designed to be readily parsed by a post-processing    |
922  C     | utility.                                                 |  C     | utility.                                                 |
923  C     \==========================================================/  C     \==========================================================/
924          IMPLICIT NONE
925    
926  C     == Global data ==  C     == Global data ==
927  #include "SIZE.h"  #include "SIZE.h"
# Line 960  C     | one-dimensional real*8 data in t Line 967  C     | one-dimensional real*8 data in t
967  C     | is designed to be readilya parsed by a post-processing   |  C     | is designed to be readilya parsed by a post-processing   |
968  C     | utility.                                                 |  C     | utility.                                                 |
969  C     \==========================================================/  C     \==========================================================/
970          IMPLICIT NONE
971    
972  C     == Global data ==  C     == Global data ==
973  #include "SIZE.h"  #include "SIZE.h"
# Line 1002  C     |================================= Line 1010  C     |=================================
1010  C     | Call low-level routines to write a model 2d model field. |  C     | Call low-level routines to write a model 2d model field. |
1011  C     | Handles _RL type data ( generally _RL == REAL*8 )        |  C     | Handles _RL type data ( generally _RL == REAL*8 )        |
1012  C     \==========================================================/  C     \==========================================================/
1013          IMPLICIT NONE
1014    
1015  C     == Global variables ==  C     == Global variables ==
1016  #include "SIZE.h"  #include "SIZE.h"
# Line 1160  C     |================================= Line 1169  C     |=================================
1169  C     | Call low-level routines to write a model 3d model field. |  C     | Call low-level routines to write a model 3d model field. |
1170  C     | Handles _RL type data ( generally _RL == REAL*8 )        |  C     | Handles _RL type data ( generally _RL == REAL*8 )        |
1171  C     \==========================================================/  C     \==========================================================/
1172          IMPLICIT NONE
1173    
1174  C     == Global variables ==  C     == Global variables ==
1175  #include "SIZE.h"  #include "SIZE.h"
# Line 1338  C     | the current timestep number. Thi Line 1348  C     | the current timestep number. Thi
1348  C     | be used to provided a snap-shot from which the model     |  C     | be used to provided a snap-shot from which the model     |
1349  C     | can be rerun.                                            |  C     | can be rerun.                                            |
1350  C     \==========================================================/  C     \==========================================================/
1351          IMPLICIT NONE
1352    
1353  C     == Global variables ===  C     == Global variables ===
1354  #include "SIZE.h"  #include "SIZE.h"
# Line 1502  C     |================================= Line 1513  C     |=================================
1513  C     | Write model state files for post-processing. This file   |  C     | Write model state files for post-processing. This file   |
1514  C     | includes code for diagnosing W and RHO for output.       |  C     | includes code for diagnosing W and RHO for output.       |
1515  C     \==========================================================/  C     \==========================================================/
1516          IMPLICIT NONE
1517    
1518  C     == Global variables ===  C     == Global variables ===
1519  #include "SIZE.h"  #include "SIZE.h"
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22