/[MITgcm]/MITgcm/pkg/land/land_initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_initialise.F

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

revision 1.1 by jmc, Thu Jun 12 17:54:22 2003 UTC revision 1.3 by jmc, Mon Feb 14 00:41:07 2005 UTC
# Line 40  CEOP Line 40  CEOP
40    
41  C     == Local Variables ==  C     == Local Variables ==
42  C     msgBuf      :: Informational/error meesage buffer  C     msgBuf      :: Informational/error meesage buffer
 C     i,j,k,bi,bj :: loop indices  
43        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
       INTEGER i,j,k,bi,bj  
44    
45  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
46  C-    for now, Land package works only with AIM package:  C-    for now, Land package works only with AIM package:
# Line 61  C---+----1----+----2----+----3----+----4 Line 59  C---+----1----+----2----+----3----+----4
59  C--   Read LAND parameters (from file data.land):  C--   Read LAND parameters (from file data.land):
60        CALL LAND_READPARMS( myThid )        CALL LAND_READPARMS( myThid )
61    
62  C--   Initialize Land package variables        IF ( useDiagnostics ) CALL LAND_DIAGNOSTICS_INIT( myThid )
   
 C-    Over all tiles  
       DO bj = myByLo(myThid), myByHi(myThid)  
        DO bi = myBxLo(myThid), myBxHi(myThid)  
   
 C-      3D arrays  
         DO K=1,land_nLev  
          DO J=1-Oly,sNy+Oly  
           DO I=1-Olx,sNx+Olx  
            land_groundT(i,j,k,bi,bj) = 0. _d 0  
            land_groundW(i,j,k,bi,bj) = 0. _d 0  
           ENDDO  
          ENDDO  
         ENDDO  
   
 C-      2D arrays  
         DO J=1-Oly,sNy+Oly  
          DO I=1-Olx,sNx+Olx  
            land_runOff(i,j,bi,bj)  = 0. _d 0  
            land_HeatFLx(i,j,bi,bj) = 0. _d 0  
            land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0  
          ENDDO  
         ENDDO  
   
 C-     end bi,bj loops  
        ENDDO  
       ENDDO  
63    
64  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
65    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22