--- MITgcm/pkg/mnc/mnc_init.F 2006/03/10 22:01:54 1.23 +++ MITgcm/pkg/mnc/mnc_init.F 2008/05/22 08:29:06 1.24 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mnc/mnc_init.F,v 1.23 2006/03/10 22:01:54 edhill Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mnc/mnc_init.F,v 1.24 2008/05/22 08:29:06 mlosch Exp $ C $Name: $ #include "MNC_OPTIONS.h" @@ -16,11 +16,12 @@ C that the lookup tables start in a well-defined state. C !USES: -#include "mnc_common.h" #include "SIZE.h" #include "EEPARAMS.h" #include "EESUPPORT.h" #include "PARAMS.h" +#include "mnc_common.h" +#include "MNC_PARAMS.h" C !INPUT PARAMETERS: integer myThid @@ -99,6 +100,12 @@ mnc_cw_cit(3,i) = -1 ENDDO + DO i = 1,2 + mnc_def_imv(i) = UNSET_I + mnc_def_rmv(i) = UNSET_FLOAT4 + mnc_def_dmv(i) = UNSET_FLOAT8 + ENDDO + C The default for all file types is to add the iter to the name and C grow them in "lock step" together mnc_cw_cit(1,1) = 1