/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_fe_chem.F
ViewVC logotype

Contents of /MITgcm_contrib/darwin2/pkg/darwin/darwin_fe_chem.F

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

Revision 1.1 - (show annotations) (download)
Wed Apr 13 18:56:24 2011 UTC (14 years, 6 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt63l_20120405, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt62v_20110413, ctrb_darwin2_ckpt65v_20160409, ctrb_darwin2_ckpt65s_20160114, ctrb_darwin2_ckpt65_20140718, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt66d_20170214, ctrb_darwin2_ckpt64r_20131210, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt63f_20111201, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt65e_20140929, ctrb_darwin2_ckpt64o_20131024, ctrb_darwin2_ckpt64v_20140411, ctrb_darwin2_ckpt64z_20140711, ctrb_darwin2_ckpt65l_20150504, ctrb_darwin2_ckpt65z_20160929, ctrb_darwin2_ckpt65n_20150729, ctrb_darwin2_ckpt62y_20110526, ctrb_darwin2_ckpt64y_20140622, ctrb_darwin2_ckpt65d_20140915, ctrb_darwin2_ckpt64t_20140202, ctrb_darwin2_ckpt66h_20170602, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt62x_20110513, ctrb_darwin2_ckpt64s_20140105, ctrb_darwin2_ckpt62w_20110426, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt63o_20120629, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt63c_20111011, ctrb_darwin2_ckpt63i_20120124, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt63m_20120506, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt63e_20111107, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt63b_20110830, ctrb_darwin2_ckpt63j_20120217, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt63g_20111220, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt63a_20110804, ctrb_darwin2_ckpt66b_20161219, ctrb_darwin2_ckpt64u_20140308, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt65i_20150123, ctrb_darwin2_ckpt66j_20170815, ctrb_darwin2_ckpt65y_20160801, ctrb_darwin2_ckpt63h_20111230, ctrb_darwin2_ckpt63p_20120707, ctrb_darwin2_ckpt66c_20170121, ctrb_darwin2_ckpt65a_20140728, ctrb_darwin2_ckpt65b_20140812, ctrb_darwin2_ckpt65t_20160221, ctrb_darwin2_ckpt64p_20131118, ctrb_darwin2_ckpt63d_20111107, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt63_20110728, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, ctrb_darwin2_ckpt64_20121012, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_baseline, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt65u_20160315, ctrb_darwin2_ckpt65r_20151221, ctrb_darwin2_ckpt66i_20170718, ctrb_darwin2_ckpt63n_20120604, ctrb_darwin2_ckpt63k_20120317, ctrb_darwin2_ckpt65c_20140830, ctrb_darwin2_ckpt62z_20110622, ctrb_darwin2_ckpt66l_20171025, ctrb_darwin2_ckpt65h_20141217, ctrb_darwin2_ckpt66m_20171213, HEAD 
darwin2 initial checkin
1 C $Header$
2 C $Name$
3
4 c#include "DIC_OPTIONS.h"
5 #include "DARWIN_OPTIONS.h"
6
7 CStartOfInterFace
8 SUBROUTINE DARWIN_Fe_CHEM(
9 I bi,bj,iMin,iMax,jMin,jMax,
10 U fe,
11 O freefe,
12 I myIter, myThid )
13 C /==========================================================\
14 C | SUBROUTINE Fe_chem |
15 C | |
16 C | o Calculate L,FeL,Fe concentration |
17 C | Stephanie Dutkiewicz, 2004
18 C | following from code by Payal Parekh
19 C |==========================================================|
20 IMPLICIT NONE
21
22 C == GLobal variables ==
23 #include "SIZE.h"
24 #include "DYNVARS.h"
25 #include "EEPARAMS.h"
26 #include "PARAMS.h"
27 #include "GRID.h"
28 #include "DARWIN_PARAMS.h"
29
30 C == Routine arguments ==
31 C bi, bj, iMin, iMax, jMin, jMax - Range of points for which calculation
32 C results will be set.
33 C myThid - Instance number for this innvocation of CALC_GT
34 _RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
35 _RL fe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
36 INTEGER bi,bj,iMin,iMax,jMin,jMax
37 INTEGER myIter,myThid
38 CEndOfInterface
39
40
41 INTEGER I,J,K
42 _RL lig, FeL
43
44 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc
45 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc
46 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc
47 CC
48 CC ADAPTED FROM PAYAL
49 CC
50 CC
51 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc
52 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc
53 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc
54
55 C ligand balance in surface layer
56 C in surface layer
57
58 DO j=jmin,jmax
59 DO i=imin,imax
60 DO k=1,nR
61 IF(hFacC(i,j,k,bi,bj) .gt. 0.0 _d 0)THEN
62
63 C Ligand,FeL,Fe calculation
64
65 lig=(-ligand_stab*fe (i,j,k)+
66 & ligand_stab*ligand_tot-1. _d 0
67 & +((ligand_stab*fe (i,j,k)
68 & -ligand_stab*ligand_tot+1. _d 0)**2+4. _d 0
69 & *ligand_stab*ligand_tot)**0.5 _d 0)
70 & /(2. _d 0*ligand_stab)
71
72 FeL = ligand_tot-lig
73 freefe(i,j,k) = fe (i,j,k)-FeL
74 #ifdef MINFE
75 freefe(i,j,k) = min(freefe(i,j,k),freefemax)
76 fe(i,j,k) = FeL+freefe(i,j,k)
77 #endif
78 END IF
79 ENDDO
80 ENDDO
81 ENDDO
82 c
83 RETURN
84 END
  ViewVC Help
Powered by ViewVC 1.1.22