MODULE trcwri_pisces !!====================================================================== !! *** MODULE trcwri *** !! PISCES : Output of PISCES tracers !!====================================================================== !! History : 1.0 ! 2009-05 (C. Ethe) Original code !!---------------------------------------------------------------------- #if defined key_top && defined key_iomput && ( defined key_pisces || defined key_pisces_reduced ) !!---------------------------------------------------------------------- !! 'key_pisces or key_pisces_reduced' PISCES model !!---------------------------------------------------------------------- !! trc_wri_pisces : outputs of concentration fields !!---------------------------------------------------------------------- USE trc ! passive tracers common variables USE sms_pisces ! PISCES variables USE iom ! I/O manager IMPLICIT NONE PRIVATE PUBLIC trc_wri_pisces # include "top_substitute.h90" CONTAINS SUBROUTINE trc_wri_pisces !!--------------------------------------------------------------------- !! *** ROUTINE trc_wri_trc *** !! !! ** Purpose : output passive tracers fields !!--------------------------------------------------------------------- CHARACTER (len=20) :: cltra REAL(wp) :: zrfact INTEGER :: jn !!--------------------------------------------------------------------- ! write the tracer concentrations in the file ! --------------------------------------- #if defined key_pisces_reduced DO jn = jp_pcs0, jp_pcs1 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer IF( lk_vvl ) THEN CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) ) ELSE CALL iom_put( cltra, trn(:,:,:,jn) ) ENDIF CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) END DO #else DO jn = jp_pcs0, jp_pcs1 zrfact = 1.0e+6 IF( jn == jpno3 .OR. jn == jpnh4 ) zrfact = rno3 * 1.0e+6 IF( jn == jppo4 ) zrfact = po4r * 1.0e+6 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer IF( lk_vvl ) THEN CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) * zrfact ) ELSE CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) ENDIF END DO #endif ! END SUBROUTINE trc_wri_pisces #else !!---------------------------------------------------------------------- !! Dummy module : No passive tracer !!---------------------------------------------------------------------- PUBLIC trc_wri_pisces CONTAINS SUBROUTINE trc_wri_pisces ! Empty routine END SUBROUTINE trc_wri_pisces #endif !!---------------------------------------------------------------------- !! NEMO/TOP 3.3 , NEMO Consortium (2010) !! $Id: trcwri_pisces.F90 3160 2011-11-20 14:27:18Z cetlod $ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!====================================================================== END MODULE trcwri_pisces