/[MITgcm]/MITgcm/pkg/atm_phys/atm_phys_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_phys/atm_phys_init_varia.F

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

revision 1.1 by jmc, Wed May 8 22:14:14 2013 UTC revision 1.2 by jmc, Thu Sep 25 19:44:33 2014 UTC
# Line 36  C     === Local variables === Line 36  C     === Local variables ===
36        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
37         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
38    
39  C     Initialize arrays in common blocks :  C--   Initialize arrays in common blocks :
40  C     3-dim.  C     3-dim.
41          DO k=1,Nr          DO k=1,Nr
42           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
# Line 60  C- end bi,bj loops Line 60  C- end bi,bj loops
60         ENDDO         ENDDO
61        ENDDO        ENDDO
62    
63        IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0  C--   Initialize Boundary conditions:
64       &                           .AND. pickupSuff.EQ.' ' ) THEN        IF ( atmPhys_SSTFile .NE. ' ' ) THEN
   
 C     Prevent loading of new data before everyone has finished initialisation  
 C     this is done within IO routines => no longer needed  
 c      _BARRIER  
   
        IF ( atmPhys_SSTFile .NE. ' ' ) THEN  
65           CALL READ_FLD_XY_RL( atmPhys_SSTFile,' ',           CALL READ_FLD_XY_RL( atmPhys_SSTFile,' ',
66       &                        atmPhys_SST, 0, myThid )       &                        atmPhys_SST, 0, myThid )
67           CALL EXCH_XY_RL( atmPhys_SST, myThid )           CALL EXCH_XY_RL( atmPhys_SST, myThid )
68         ENDIF        ENDIF
69    
70    C--   Initialize ATM_PHYS State Variables:
71          IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0
72         &                           .AND. pickupSuff.EQ.' ' ) THEN
73    C-    start new run from iter-zero:
74    
75        ELSE        ELSE
76  C--   restart from a pickup:  C-    restart from a pickup:
77           CALL ATM_PHYS_READ_PICKUP( nIter0, myThid )           CALL ATM_PHYS_READ_PICKUP( nIter0, myThid )
78    
79  C--   end start-from-iter-zero if/else block  C-    end start-from-iter-zero if/else block
80        ENDIF        ENDIF
81    
82  #endif /* ALLOW_ATM_PHYS */  #endif /* ALLOW_ATM_PHYS */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22