Changeset 3594 for branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/TOP_SRC/SED/sedstp.F90

Timestamp:

2012-11-19T13:28:55+01:00 (11 years ago)

Author:

rfurner

Message:

code not tested through SETTEE, builds and runs, but has not been thoroughly tested, so will not be included in 2012 merge, however submitted back to keep record of work done for 2013 developments

File:

• branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/TOP_SRC/SED/sedstp.F90 (modified) (2 diffs)

branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/TOP_SRC/SED/sedstp.F90

@@ -52 +52 @@
       CALL sed_btb( kt )         ! Bioturbation
 
-      IF ( ( MOD( kt, nwrised ) == 0 ) .OR. ( MOD( kt, nstock ) == 0 ) .OR. ( kt == nitsedend )  )   &
+      IF ( ( MOD( kt, nwrised ) == 0 ) .OR. ( lrst_oce ) .OR. ( kt == nitsedend )  )   &
       CALL sed_co3( kt )         ! pH actualization for saving
       CALL sed_mbc( kt )         ! cumulation for mass balance calculation
@@ -58 +58 @@
       CALL sed_sfc( kt )         ! Give back new bottom wat chem to tracer model
 #endif
-      CALL sed_rst_wri( kt )   ! restart file output
+      IF ( lrst_oce )  CALL sed_rst_wri( kt )   ! restart file output
       CALL sed_wri( kt )         ! outputs