!!---------------------------------------------------------------------- !! TOP 1.0, LOCEAN-IPSL (2005) !! $Header$ !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt !!---------------------------------------------------------------------- #if defined key_trc_p3zd IF(lwp) THEN WRITE(numout,*) ' use P3ZD biological model ' WRITE(numout,*) ' ' ENDIF ! Check number of tracers ! ----------------------- # if defined key_trc_biohamocc13 IF (jptra /= 11) THEN # else IF (jptra /= 10) THEN # endif IF (lwp) THEN WRITE (numout,*) ' ===>>>> : w a r n i n g ' WRITE (numout,*) ' ======= ============= ' WRITE (numout,*) & & ' STOP, change jptra to 10 or 11 key_trc_biohamocc13', & & ' in parameter.passivetrc.p3zd.h ' END IF STOP 'TRC_CTL' END IF ! check consistency of key_trc_hamocc3 and key_trc_p3zd ! ------------------------------------------------------ # if !defined key_trc_hamocc3 IF (lwp) THEN WRITE (numout,*) ' ===>>>> : w a r n i n g ' WRITE (numout,*) ' ======= ============= ' WRITE (numout,*) & & ' STOP, key_trc_p3zd requires key_trc_hamocc3' END IF STOP 'TRC_CTL' # endif # if defined key_trc_diaadd IF ( jpdia2d /= 12 .AND. jpdia3d /= 1 ) THEN IF (lwp) THEN WRITE (numout,*) ' ===>>>> : w a r n i n g ' WRITE (numout,*) ' ======= ============= ' WRITE (numout,*) & & ' STOP, change jpdia2d to 12 and jpdia3d to 1' & & ,' in parameter.passivetrc.h ' & & ,' (key_trc_p3zd and key_trc_diaadd)' END IF STOP 'TRC_CTL' END IF # endif #endif