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

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

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

revision 1.56 by edhill, Tue Sep 7 21:32:10 2004 UTC revision 1.57 by edhill, Fri Sep 10 12:19:29 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP
8  C     !ROUTINE: CONFIG_SUMMARY  C     !ROUTINE: CONFIG_SUMMARY
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE CONFIG_SUMMARY( myThid )        SUBROUTINE CONFIG_SUMMARY( myThid )
12  C     !DESCRIPTION: \bv  
13  C     *=========================================================*  C     !DESCRIPTION:
14  C     | SUBROUTINE CONFIG_SUMMARY                                  C     This routine summarizes the model parameter settings by writing a
15  C     | o Summarize model parameter settings.                      C     tabulated list of the kernel model configuration variables.  It
16  C     *=========================================================*  C     describes all the parameter settings in force and the meaning and
17  C     | This routine writes a tabulated summary of the kernel      C     units of those parameters. Individal packages report a similar
18  C     | model configuration. Information describes all the  C     table for each package using the same format as employed here. If
19  C     | parameter setting in force and the meaning and units of  C     parameters are missing or incorrectly described or dimensioned
20  C     | those parameters. Individal packages report a similar  C     please contact <MITgcm-support@mitgcm.org>
 C     | table for each package using the same format as employed  
 C     | here. If parameters are missing or incorrectly described  
 C     | or dimensioned please contact support@mitgcm.org  
 C     *=========================================================*  
 C     \ev  
21    
22  C     !USES:  C     !USES:
23        IMPLICIT NONE        IMPLICIT NONE
 C     === Global variables ===  
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27    #ifdef ALLOW_MNC
28    #include "MNC_PARAMS.h"
29    #endif
30  #include "EOS.h"  #include "EOS.h"
31  #include "GRID.h"  #include "GRID.h"
32  #include "DYNVARS.h"  #include "DYNVARS.h"
33    
34  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
35  C     == Routine arguments ==  C     myThid ::  Number of this instance of CONFIG_SUMMARY
 C     myThid -  Number of this instance of CONFIG_SUMMARY  
36        INTEGER myThid        INTEGER myThid
37  CEndOfInterface  CEOP
38    
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     == Local variables ==  
40  C     msgBuf :: Temp. for building output string.  C     msgBuf :: Temp. for building output string.
41  C     I,J,K  :: Loop counters.  C     I,J,K  :: Loop counters.
42  C     bi,bj  :: Tile loop counters.  C     bi,bj  :: Tile loop counters.
# Line 54  C     zcoord :: Line 51  C     zcoord ::
51        _RL                     rcoord(Nr+1)        _RL                     rcoord(Nr+1)
52        INTEGER coordLine        INTEGER coordLine
53        INTEGER tileLine        INTEGER tileLine
 CEOP  
54    
55    
56        _BARRIER        _BARRIER
# Line 365  CEOP Line 361  CEOP
361       &'   /* Permanent restart/checkpoint file interval ( s ). */')       &'   /* Permanent restart/checkpoint file interval ( s ). */')
362        CALL WRITE_0D_R8( chkPtFreq, INDEX_NONE,'chkPtFreq =',        CALL WRITE_0D_R8( chkPtFreq, INDEX_NONE,'chkPtFreq =',
363       &'   /* Rolling restart/checkpoint file interval ( s ). */')       &'   /* Rolling restart/checkpoint file interval ( s ). */')
364          CALL WRITE_0D_L(pickup_write_mdsio,INDEX_NONE,
365         &     'pickup_write_mdsio =', '   /* Model IO flag. */')
366          CALL WRITE_0D_L(pickup_read_mdsio,INDEX_NONE,
367         &     'pickup_read_mdsio =', '   /* Model IO flag. */')
368    #ifdef ALLOW_MNC
369          CALL WRITE_0D_L(pickup_write_mnc,INDEX_NONE,
370         &     'pickup_write_mnc =', '   /* Model IO flag. */')
371          CALL WRITE_0D_L(pickup_read_mnc,INDEX_NONE,
372         &     'pickup_read_mnc =', '   /* Model IO flag. */')
373    #endif
374          CALL WRITE_0D_L(pickup_write_immed,INDEX_NONE,
375         &     'pickup_write_immed =','   /* Model IO flag. */')
376        CALL WRITE_0D_R8( dumpFreq, INDEX_NONE,'dumpFreq =',        CALL WRITE_0D_R8( dumpFreq, INDEX_NONE,'dumpFreq =',
377       &'   /* Model state write out interval ( s ). */')       &'   /* Model state write out interval ( s ). */')
378          CALL WRITE_0D_L(snapshot_mdsio,INDEX_NONE,
379         &     'snapshot_mdsio =', '   /* Model IO flag. */')
380    #ifdef ALLOW_MNC
381          CALL WRITE_0D_L(snapshot_mnc,INDEX_NONE,
382         &     'snapshot_mnc =', '   /* Model IO flag. */')
383    #endif
384        CALL WRITE_0D_R8( monitorFreq, INDEX_NONE,'monitorFreq =',        CALL WRITE_0D_R8( monitorFreq, INDEX_NONE,'monitorFreq =',
385       &'   /* Monitor output interval ( s ). */')       &'   /* Monitor output interval ( s ). */')
386        CALL WRITE_0D_I( mon_iotype, INDEX_NONE,'mon_iotype =',        CALL WRITE_0D_L(monitor_mdsio,INDEX_NONE,
387       &'   /* Monitor IO flags. */')       &     'monitor_mdsio =', '   /* Model IO flag. */')
388    #ifdef ALLOW_MNC
389          CALL WRITE_0D_L(monitor_mnc,INDEX_NONE,
390         &     'monitor_mnc =', '   /* Model IO flag. */')
391    #endif
392        CALL WRITE_0D_R8( externForcingPeriod, INDEX_NONE,        CALL WRITE_0D_R8( externForcingPeriod, INDEX_NONE,
393       &   'externForcingPeriod =', '   /* forcing period (s) */')       &   'externForcingPeriod =', '   /* forcing period (s) */')
394        CALL WRITE_0D_R8( externForcingCycle, INDEX_NONE,        CALL WRITE_0D_R8( externForcingCycle, INDEX_NONE,
Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57
  ViewVC Help
Powered by ViewVC 1.1.22