/[MITgcm]/MITgcm/pkg/bling/bling_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/bling/bling_init_varia.F

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

revision 1.4 by mmazloff, Fri Jan 20 00:31:49 2017 UTC revision 1.5 by mmazloff, Fri Jan 27 23:11:31 2017 UTC
# Line 55  C--   Initialise global variables Line 55  C--   Initialise global variables
55            alpha_photo2d(i,j,bi,bj) = alpha_photo            alpha_photo2d(i,j,bi,bj) = alpha_photo
56            k_Fe2d(i,j,bi,bj)        = k_Fe            k_Fe2d(i,j,bi,bj)        = k_Fe
57            k_Fe_diaz2d(i,j,bi,bj)   = k_Fe_diaz            k_Fe_diaz2d(i,j,bi,bj)   = k_Fe_diaz
58              gamma_POM2d(i,j,bi,bj)   = gamma_POM
59              wsink0_2d(i,j,bi,bj)     = wsink0
60              phi_DOM2d(i,j,bi,bj)     = phi_DOM
61              phi_sm2d(i,j,bi,bj)      = phi_sm
62              phi_lg2d(i,j,bi,bj)      = phi_lg
63           ENDDO           ENDDO
64          ENDDO          ENDDO
65         ENDDO         ENDDO
# Line 85  C Read in 2d bio related variables Line 90  C Read in 2d bio related variables
90       &                          k_Fe_diaz2d, 0, myThid )       &                          k_Fe_diaz2d, 0, myThid )
91          _EXCH_XY_RL(k_Fe_diaz2d,myThid)          _EXCH_XY_RL(k_Fe_diaz2d,myThid)
92          ENDIF          ENDIF
93            IF ( bling_gamma_POM2dFile .NE. ' ' ) THEN
94               CALL READ_FLD_XY_RL( bling_gamma_POM2dFile, ' ',
95         &                          gamma_POM2d, 0, myThid )
96            _EXCH_XY_RL(gamma_POM2d,myThid)
97            ENDIF
98            IF ( bling_wsink0_2dFile .NE. ' ' ) THEN
99               CALL READ_FLD_XY_RL( bling_wsink0_2dFile, ' ',
100         &                          wsink0_2d, 0, myThid )
101            _EXCH_XY_RL(wsink0_2d,myThid)
102            ENDIF
103            IF ( bling_phi_DOM2dFile .NE. ' ' ) THEN
104               CALL READ_FLD_XY_RL( bling_phi_DOM2dFile, ' ',
105         &                          phi_DOM2d, 0, myThid )
106            _EXCH_XY_RL(phi_DOM2d,myThid)
107            ENDIF
108            IF ( bling_phi_sm2dFile .NE. ' ' ) THEN
109               CALL READ_FLD_XY_RL( bling_phi_sm2dFile, ' ',
110         &                          phi_sm2d, 0, myThid )
111            _EXCH_XY_RL(phi_sm2d,myThid)
112            ENDIF
113            IF ( bling_phi_lg2dFile .NE. ' ' ) THEN
114               CALL READ_FLD_XY_RL( bling_phi_lg2dFile, ' ',
115         &                          phi_lg2d, 0, myThid )
116            _EXCH_XY_RL(phi_lg2d,myThid)
117            ENDIF
118    
119  C     Now read phyto plankton abundance ICs and exchange  C     Now read phyto plankton abundance ICs and exchange
120        IF (nIter0.EQ.PTRACERS_Iter0) THEN        IF (nIter0.EQ.PTRACERS_Iter0) THEN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22