Changeset 1445 for trunk/NEMO/TOP_SRC/TRP

Timestamp:

2009-05-13T16:35:02+02:00 (15 years ago)

Author:

cetlod

Message:

add the use of bio-optical retroaction on dynamics when coupling with PISCES, see ticket:428

File:

• trunk/NEMO/TOP_SRC/TRP/trctrp.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -128 +128 @@
          &                     CALL zps_hde_trc( kt, trb, gtru, gtrv )       ! tracers at the bottom ocean level
       !
-      IF(ln_ctl) THEN      ! print mean trends (used for debugging)
-         WRITE(charout, FMT="('TRP')")
-         CALL prt_ctl_trc_info( charout )
-         CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm )
-      ENDIF
-      !
    END SUBROUTINE trc_trp