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

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

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

revision 1.78 by jmc, Tue Apr 6 20:58:44 2010 UTC revision 1.79 by jmc, Sat Nov 27 23:08:17 2010 UTC
# Line 64  C       |-- PROFILES_INIT_VARIA Line 64  C       |-- PROFILES_INIT_VARIA
64  C       |  C       |
65  C       |-- FLT_INIT_VARIA  C       |-- FLT_INIT_VARIA
66  C       |  C       |
 C       |-- OBCS_INIT_VARIABLES  
 C       |  
67  C       |-- BULKF_INIT_VARIA  C       |-- BULKF_INIT_VARIA
68  C       |  C       |
69  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
# Line 92  C       | Line 90  C       |
90  C       |-- CHEAPAML_INIT_VARIA  C       |-- CHEAPAML_INIT_VARIA
91  C       |  C       |
92  C       |-- MYPACKAGE_INIT_VARIA  C       |-- MYPACKAGE_INIT_VARIA
93    C       |
94    C       |-- OBCS_INIT_VARIABLES
95    
96  C     !USES:  C     !USES:
97        IMPLICIT NONE        IMPLICIT NONE
# Line 107  C     === Global variables === Line 107  C     === Global variables ===
107    
108  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
109  C     === Routine arguments ===  C     === Routine arguments ===
110  C     myThid -  Number of this instances  C     myThid  :: my Thread Id number
111        INTEGER myThid        INTEGER myThid
112  CEOP  CEOP
113    
# Line 228  cph# endif Line 228  cph# endif
228        ENDIF        ENDIF
229  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
230    
 cph-- moved further down  
 cph#ifdef ALLOW_OBCS  
 cphC--   Open boundaries data  
 cph      IF (useOBCS) THEN  
 cph        CALL OBCS_INIT_VARIABLES( myThid )  
 cph      ENDIF  
 cph#endif  
   
231  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
232  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
233        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
# Line 342  c--   Initialise float position Line 334  c--   Initialise float position
334        ENDIF        ENDIF
335  #endif /* ALLOW_FLT */  #endif /* ALLOW_FLT */
336    
 #ifdef ALLOW_OBCS  
 C--   Open boundaries data  
       IF (useOBCS) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)  
 # endif  
         CALL OBCS_INIT_VARIABLES( myThid )  
       ENDIF  
 #endif /* ALLOW_OBCS */  
   
337  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
338        IF (useBulkForce) THEN        IF (useBulkForce) THEN
339          CALL BULKF_INIT_VARIA( myThid )          CALL BULKF_INIT_VARIA( myThid )
# Line 460  C Initialize FIZHI state variables Line 442  C Initialize FIZHI state variables
442        ENDIF        ENDIF
443  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
444    
445    #ifdef ALLOW_OBCS
446    C--   put this call in last position (needs to come after few {PKG}_init_varia)
447          IF (useOBCS) THEN
448    # ifdef ALLOW_DEBUG
449            IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
450    # endif
451            CALL OBCS_INIT_VARIABLES( myThid )
452          ENDIF
453    #endif /* ALLOW_OBCS */
454    
455  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
456        IF (debugMode)        IF (debugMode)
457       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79
  ViewVC Help
Powered by ViewVC 1.1.22