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

Diff of /MITgcm/pkg/land/land_ini_vars.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.2 by jmc, Thu Jul 31 18:22:10 2003 UTC
# Line 28  C-- size for MITgcm & Land package : Line 28  C-- size for MITgcm & Land package :
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "PARAMS.h"  #include "PARAMS.h"
30  #include "LAND_PARAMS.h"  #include "LAND_PARAMS.h"
31    #include "LAND_VARS.h"
32    
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     == Routine Arguments ==        C     == Routine Arguments ==      
# Line 43  c     CHARACTER*(MAX_LEN_MBUF) msgBuf Line 44  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
44    
45  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
46    
47    
48        IF ( startTime.EQ.0. .AND. nIter0.EQ.0 ) THEN        IF ( startTime.EQ.0. .AND. nIter0.EQ.0 ) THEN
49    
50  C--   Define the initial state  C--   Define the initial state : read from file
51  C     for now, loaded from AIM surf. BC in S/R aim_land2aim         _BEGIN_MASTER( myThid )
52           IF ( land_grT_iniFile .NE. ' ' ) THEN
53            CALL MDSREADFIELD( land_grT_iniFile, readBinaryPrec, 'RL',
54         &                     land_nLev, land_groundT, 1, myThid)
55           ENDIF
56           IF ( land_grW_iniFile .NE. ' ' ) THEN
57            CALL MDSREADFIELD( land_grW_iniFile, readBinaryPrec, 'RL',
58         &                     land_nLev, land_groundW, 1, myThid)
59           ENDIF
60           _END_MASTER(myThid)
61    
 c     ELSE  
 C-    a trick to allow to start without a land pickup:  
62        ELSEIF ( land_calc_grT .OR. land_calc_grW ) THEN        ELSEIF ( land_calc_grT .OR. land_calc_grW ) THEN
63    
64  C--   Read Land package state variables from pickup file  C--   Read Land package state variables from pickup file
65          CALL LAND_READ_PICKUP( nIter0, myThid )          CALL LAND_READ_PICKUP( nIter0, myThid )
66    
67    c     ELSE
68    C-    a trick to allow to start without a land pickup:
69    C        load grT & grW from AIM surf. BC in S/R aim_land2aim
70        ENDIF        ENDIF
71    
72  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22