Changeset 2761 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedmbc.F90

Timestamp:

2011-05-03T12:49:22+02:00 (13 years ago)

Author:

cetlod

Message:

Changes in sediment model to use with dynamic memory, see ticket #821

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedmbc.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedmbc.F90

@@ -20 +20 @@
 
    !! * Module variables
-   REAL(wp), DIMENSION(jpsol) :: &
-      rain_tot     ,  &      !
-      fromsed_tot  ,  &      ! 
-      tosed_tot    ,  &      !
-      rloss_tot              !
-
-   REAL(wp), DIMENSION(jpwat) :: &
-      diss_in_tot  ,  &      !
-      diss_out_tot           !
-
-   REAL(wp)  :: &
-      cons_tot_o2  ,  &      !
-      sour_tot_no3 ,  &      !
-      cons_tot_no3 ,  &      !
-      sour_tot_c13           !
-
-   REAL(wp) ::  &
-      src13p  , &
-      src13ca
+   REAL(wp), DIMENSION(jpsol) :: rain_tot      ! total input rain
+   REAL(wp), DIMENSION(jpsol) :: fromsed_tot   ! tota input from sediment
+   REAL(wp), DIMENSION(jpsol) :: tosed_tot     ! total output from sediment
+   REAL(wp), DIMENSION(jpsol) :: rloss_tot     ! total rain loss
+
+   REAL(wp), DIMENSION(jpwat) :: diss_in_tot   ! total input in pore water
+   REAL(wp), DIMENSION(jpwat) :: diss_out_tot  ! total output from pore water
+
+   REAL(wp)  :: cons_tot_o2                   ! cumulative o2 consomation
+   REAL(wp)  :: sour_tot_no3                  ! cumulative no3 source
+   REAL(wp)  :: cons_tot_no3                  ! cumulative no3 consomation
+   REAL(wp)  :: sour_tot_c13                  ! cumulative o2 source
+
+   REAL(wp)  :: src13p  
+   REAL(wp)  :: src13ca  
 
 CONTAINS
@@ -60 +56 @@
 
       !! Arguments
-      INTEGER, INTENT(in) :: &
-         kt
+      INTEGER, INTENT(in) :: kt     ! time step
 
       !! local declarations
-      INTEGER  :: &
-         ji, js, jw, jk
-
-      REAL(wp) ::  &
-         zinit, zfinal, &
-         zinput, zoutput
-
-      REAL(wp) ::  &
-         zdsw, zvol
-
-      REAL, DIMENSION(jpsol) ::  &
-         zsolcp_inv_i, zsolcp_inv_f
-
-      REAL, DIMENSION(jpwat) ::  &
-         zpwcp_inv_i, zpwcp_inv_f
-       
-      REAL(wp) :: &
-         zdelta_sil, zdelta_clay, &
-         zdelta_co2, zdelta_oxy,  &
-         zdelta_po4, zdelta_no3,  &
-         zdelta_c13, zdelta_c13b
+      INTEGER  :: ji,js, jw, jk
+      REAL(wp) :: zinit, zfinal 
+      REAL(wp) :: zinput, zoutput
+      REAL(wp) :: zdsw, zvol
+      REAL, DIMENSION(jpsol) :: zsolcp_inv_i, zsolcp_inv_f
+      REAL, DIMENSION(jpwat) :: zpwcp_inv_i, zpwcp_inv_f
+      REAL(wp) ::  zdelta_sil, zdelta_clay
+      REAL(wp) ::  zdelta_co2, zdelta_oxy
+      REAL(wp) ::  zdelta_po4, zdelta_no3
+      REAL(wp) ::  zdelta_c13, zdelta_c13b
 
       !!----------------------------------------------------------------------