/[MITgcm]/MITgcm/pkg/aim_compon_interf/cpl_ini_vars.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_compon_interf/cpl_ini_vars.F

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

revision 1.3 by jmc, Wed Apr 6 18:33:04 2005 UTC revision 1.4 by jmc, Mon Jun 18 21:28:53 2007 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: CPL_INI_VARS
8    C     !INTERFACE:
9        SUBROUTINE CPL_INI_VARS( myThid )        SUBROUTINE CPL_INI_VARS( myThid )
10  C     /==========================================================\  
11  C     | SUBROUTINE CPL_INI_VARS                                  |  C     !DESCRIPTION: \bv
12  C     | o Initialisation routine for arrays that are used to     |  C     *==========================================================*
13  C     |   buffer data that interfaces to the coupling layer.     |  C     | SUBROUTINE CPL_INI_VARS
14  C     | - Atmospheric version -                                  |  C     | o Initialisation routine for arrays that are used to
15  C     |==========================================================|  C     |   buffer data that interfaces to the coupling layer.
16  C     | For now this routine sets these arrays to the right      |  C     | - Atmospheric version -
17  C     | state for an initial start-up. Eventually it should      |  C     *==========================================================*
18  C     | include some way to load this data from non-volatile     |  C     | For now this routine sets these arrays to the right
19  C     | external storage if they are needed during a restart.    |  C     | state for an initial start-up. Eventually it should
20  C     \==========================================================/  C     | include some way to load this data from non-volatile
21    C     | external storage if they are needed during a restart.
22    C     *==========================================================*
23    C     \ev
24    
25    C     !USES:
26        IMPLICIT NONE        IMPLICIT NONE
27    
28  C     == Global variables ==  C     == Global variables ==
# Line 26  C     == Global variables == Line 33  C     == Global variables ==
33  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
34  #include "ATMCPL.h"  #include "ATMCPL.h"
35    
36    C     !INPUT/OUTPUT PARAMETERS:
37  C     == Routine arguments ==  C     == Routine arguments ==
38  C     myThid - Thread number for this instance of the routine  C     myThid :: Thread number for this instance of the routine
39        INTEGER myThid        INTEGER myThid
40  CEndOfInterface  CEOP
41    
42  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
43  C     == Local variables ==  C     == Local variables ==
44  C     I,J,bi,bj - Loop counters  C     I,J,bi,bj :: Loop counters
45        INTEGER I,J,bi,bj        INTEGER I,J,bi,bj
46    
47        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
# Line 56  c         vVelGround(I,J,bi,bj) = 0. Line 64  c         vVelGround(I,J,bi,bj) = 0.
64            RunOffEnFx(I,J,bi,bj) = 0.            RunOffEnFx(I,J,bi,bj) = 0.
65            iceSaltFlx(I,J,bi,bj) = 0.            iceSaltFlx(I,J,bi,bj) = 0.
66            seaIceMass(I,J,bi,bj) = 0.            seaIceMass(I,J,bi,bj) = 0.
67              airCO2    (I,J,bi,bj) = 0.
68              sWSpeed   (I,J,bi,bj) = 0.
69              fracIce   (I,J,bi,bj) = 0.
70  C-        Import field  C-        Import field
71  c         ocMxlD (I,J,bi,bj)    = 0.  c         ocMxlD   (I,J,bi,bj)  = 0.
72            SSTocn (I,J,bi,bj)    = 0.            SSTocn   (I,J,bi,bj)  = 0.
73            SSSocn (I,J,bi,bj)    = 0.            SSSocn   (I,J,bi,bj)  = 0.
74            vSqocn (I,J,bi,bj)    = 0.            vSqocn   (I,J,bi,bj)  = 0.
75              flxCO2ocn(I,J,bi,bj)  = 0.
76           ENDDO           ENDDO
77          ENDDO          ENDDO
78          atmSLPrTime(bi,bj)    = 0.          atmSLPrTime(bi,bj)    = 0.
# Line 78  c       vVelGroundTime(bi,bj) = 0. Line 90  c       vVelGroundTime(bi,bj) = 0.
90          ROEnFxTime(bi,bj)     = 0.          ROEnFxTime(bi,bj)     = 0.
91          saltFxTime(bi,bj)     = 0.          saltFxTime(bi,bj)     = 0.
92          seaIceTime(bi,bj)     = 0.          seaIceTime(bi,bj)     = 0.
93            airCO2Time(bi,bj)     = 0.
94            sWSpeedTime(bi,bj)    = 0.
95            fracIceTime(bi,bj)    = 0.
96         ENDDO         ENDDO
97        ENDDO        ENDDO
98    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22