Changeset 2108 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA

Timestamp:

2010-09-21T21:52:56+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 add heat/salt/volume budgets

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (2 diffs)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -127 +127 @@
          qns(:,:) = qns(:,:) + qsr(:,:)      ! total heat flux in qns
          qsr(:,:) = 0.e0                     ! qsr set to zero
-         IF( kt == nit000 ) THEN             ! idem on before field at nit000
-            qsr_b(:,:) = 0.e0                     
-         ENDIF
+         ! IF( kt == nit000 ) THEN             ! idem on before field at nit000
+         !    qsr_b(:,:) = 0.e0                     
+         ! ENDIF
       ENDIF
       !                                          Set before sbc tracer content fields
@@ -186 +186 @@
       !                                          Write in the ocean restart file
       !                                          *******************************
-      IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'sbc : ocean surface tracer content forcing fields written in ocean restart file ',   &
-           &                    'at it= ', kt,' date= ', ndastp
-      IF(lwp) WRITE(numout,*) '~~~~'
-      CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_hc_n )
-      CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_sc_n )
+      IF( lrst_oce ) THEN
+         IF(lwp) WRITE(numout,*)
+         IF(lwp) WRITE(numout,*) 'sbc : ocean surface tracer content forcing fields written in ocean restart file ',   &
+            &                    'at it= ', kt,' date= ', ndastp
+         IF(lwp) WRITE(numout,*) '~~~~'
+         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_hc_n )
+         CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_sc_n )
+      ENDIF
       
       IF( l_trdtra ) THEN           ! save the sbc trends for diagnostic