--- MITgcm/pkg/ptracers/ptracers_mnc_init.F 2004/10/10 06:08:49 1.4 +++ MITgcm/pkg/ptracers/ptracers_mnc_init.F 2007/11/05 18:48:04 1.5 @@ -1,15 +1,15 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/ptracers_mnc_init.F,v 1.4 2004/10/10 06:08:49 edhill Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ptracers/ptracers_mnc_init.F,v 1.5 2007/11/05 18:48:04 jmc Exp $ C $Name: $ #include "PTRACERS_OPTIONS.h" C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| CBOP -C !ROUTINE: - +C !ROUTINE: + C !INTERFACE: SUBROUTINE PTRACERS_MNC_INIT( myThid ) - + C !DESCRIPTION: C Initialize PTRACERS parameters, read in data.ptracers @@ -18,7 +18,7 @@ #include "SIZE.h" #include "EEPARAMS.h" #include "PTRACERS_SIZE.h" -#include "PTRACERS.h" +#include "PTRACERS_PARAMS.h" #include "PARAMS.h" C !INPUT PARAMETERS: @@ -70,9 +70,9 @@ CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),'units', & PTRACERS_units(ii),myThid) ENDIF - + ENDDO - + ENDIF #endif /* ALLOW_MNC */ #endif /* ALLOW_PTRACERS */