/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_init_fixed.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_init_fixed.F

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

revision 1.1 by jscott, Fri Aug 11 18:55:49 2006 UTC revision 1.2 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 3  Line 3 
3  #  include "ATM2D_OPTIONS.h"  #  include "ATM2D_OPTIONS.h"
4  #endif  #endif
5  C  C
6  #ifdef OCEAN_3D  #ifndef OCEAN_3D
       SUBROUTINE ATM2D_INIT_FIXED(myThid)  
 #else  
7        SUBROUTINE ATM2D_INIT_FIXED(nCouplePer, myThid)        SUBROUTINE ATM2D_INIT_FIXED(nCouplePer, myThid)
8    #else
9          SUBROUTINE ATM2D_INIT_FIXED(myThid)
10  #endif  #endif
11  C     |==========================================================|  C     |==========================================================|
12  C     | Initialization steps prior to any pickup info loaded     |  C     | Initialization steps prior to any pickup info loaded.    |
13  C     \==========================================================/  C     \==========================================================/
14        IMPLICIT NONE        IMPLICIT NONE
15    
# Line 25  C     !INPUT/OUTPUT PARAMETERS: Line 25  C     !INPUT/OUTPUT PARAMETERS:
25  C     == Routine arguments ==  C     == Routine arguments ==
26  C     nCouplePer - total number of coupled periods for this run  C     nCouplePer - total number of coupled periods for this run
27  C     myThid - thread number for this instance of the routine.  C     myThid - thread number for this instance of the routine.
28        INTEGER nCouplePer    !not an output parm for OCEAN_3D  #ifndef OCEAN_3D
29          INTEGER nCouplePer    !not a subroutine parm for OCEAN_3D
30    #endif
31        INTEGER myThid        INTEGER myThid
32    
33        NAMELIST /COUPLE_PARM/        NAMELIST /COUPLE_PARM/
34       &        dtcouple, dtatm, dtocn, startYear, endYear, taveDump       &        dtcouple, dtatm, dtocn, startYear, endYear, taveDump
35    
36  C     === Local variables ===  C     === Local variables ===
37    #ifdef OCEAN_3D
38          INTEGER nCouplePer    !not a subroutine parm for OCEAN_3D
39    #endif
40    
41        CALL CHECK_SETTINGS        CALL CHECK_SETTINGS
42    
# Line 43  C     set default values for these parms Line 48  C     set default values for these parms
48        endYear = 100        endYear = 100
49        taveDump=100        taveDump=100
50    
51    C     Next lines done in stand-alone ML model, so don't use any
52    C     MITGCM helper routines; hopefully no unit conflict...
53        OPEN(514,file='couple.nml',status='old')        OPEN(514,file='couple.nml',status='old')
54        READ(514,COUPLE_PARM)        READ(514,COUPLE_PARM)
55        CLOSE(514)        CLOSE(514)
# Line 75  C     set default values for these parms Line 82  C     set default values for these parms
82        CLOSE (961)        CLOSE (961)
83  #endif  #endif
84    
 C     assign defacto thread id  
 C      myThid = 1  
   
85  #ifdef OCEAN_3D  #ifdef OCEAN_3D
 Cmove MPI init somewhere into MITGCM code? run for atmos processor, mpi-on  
86  #  ifdef ATM2D_MPI_ON  #  ifdef ATM2D_MPI_ON
87    
88        CALL INITIALISE        CALL INITIALISE
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22