Changeset 1250 for trunk/NEMO/TOP_SRC/SED/sedstp.F90

Timestamp:

2009-01-13T10:41:45+01:00 (15 years ago)

Author:

cetlod

Message:

update modules of sediment model to take into account minor modifications, see ticket:297

File:

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

trunk/NEMO/TOP_SRC/SED/sedstp.F90

@@ -53 +53 @@
 
       IF ( ( MOD( kt, nwrised ) == 0 ) .OR. ( MOD( kt, nstock ) == 0 ) .OR. ( kt == nitsedend )  )   &
-      CALL sed_co3( kt )      ! pH actualization for saving
+      CALL sed_co3( kt )         ! pH actualization for saving
       CALL sed_mbc( kt )         ! cumulation for mass balance calculation
 #if ! defined key_sed_off
@@ -74 +74 @@
       WRITE(*,*) 'sed_stp: You should not have seen this print! error?', kt
    END SUBROUTINE sed_stp
-
-   !!======================================================================
 #endif