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

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

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

revision 1.195 by dimitri, Sat Apr 14 18:32:32 2007 UTC revision 1.196 by heimbach, Mon May 14 22:52:41 2007 UTC
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "PARAMS.h"  #include "PARAMS.h"
21  c#include "GRID.h"  c#include "GRID.h"
22  #include "EOS.h"  #include "EOS.h"
23    #include "EESUPPORT.h"
24    
25  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
26  C     myThid :: Number of this instance of INI_PARMS  C     myThid :: Number of this instance of INI_PARMS
# Line 45  C     xxxDefault :: Default value for va Line 46  C     xxxDefault :: Default value for va
46        _RL deltaTtracer        _RL deltaTtracer
47        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
48        CHARACTER*(MAX_LEN_PREC) record        CHARACTER*(MAX_LEN_PREC) record
49          CHARACTER*(MAX_LEN_FNAM) mmdir
50        LOGICAL forcing_In_AB        LOGICAL forcing_In_AB
51        INTEGER goptCount        INTEGER goptCount
52        INTEGER K, i, j, IL, iUnit        INTEGER K, i, j, IL, pIL, iUnit
53        INTEGER errIO        INTEGER errIO
54        INTEGER  IFNBLNK        INTEGER  IFNBLNK
55        EXTERNAL IFNBLNK        EXTERNAL IFNBLNK
# Line 1235  C--   Stop if they were Line 1237  C--   Stop if they were
1237         STOP 'ABNORMAL END: S/R INI_PARMS'         STOP 'ABNORMAL END: S/R INI_PARMS'
1238        ENDIF        ENDIF
1239    
1240    CMM(  now we make local directories with myProcessStr appended
1241          IF ( mdsioLocalDir .NE. ' ' ) THEN
1242             pIL = ILNBLNK( mdsioLocalDir )
1243             mmdir(1:pIL) = mdsioLocalDir(1:pIL)
1244             WRITE(mdsioLocalDir,'(3a)') mmdir(1:pIL),myProcessStr(1:6),'/'
1245          ENDIF
1246    CMM )
1247    
1248        _END_MASTER(myThid)        _END_MASTER(myThid)
1249    
1250  C--   Everyone else must wait for the parameters to be loaded  C--   Everyone else must wait for the parameters to be loaded
Legend:
Removed from v.1.195  
changed lines
  Added in v.1.196
  ViewVC Help
Powered by ViewVC 1.1.22