Hi ! I want to make a idealize model with PISCES, so I try to run a test case like SCM case with PISCE. but I meet something wrong:
ocean2pisces_.f90(885): warning #6843: A dummy argument with an explicit INTENT(OUT) declaration is not given an explicit value. [KIOMID]
SUBROUTINE iom_open( cdname, kiomid )
--------------------------------^
ocean2pisces_.f90(902): warning #6843: A dummy argument with an explicit INTENT(OUT) declaration is not given an explicit value. [PVAR]
SUBROUTINE iom_g3d( kiomid, kdom, cdvar, pvar, ktime )
--------------------------------------------^
ocean2pisces_.f90(894): warning #6843: A dummy argument with an explicit INTENT(OUT) declaration is not given an explicit value. [PVAR]
SUBROUTINE iom_g2d( kiomid, kdom, cdvar, pvar, ktime )
--------------------------------------------^
cpp -traditional -DLinux -DIfort -P -I/include -ICROCOFILES/AGRIF_INC -I/include trc.F90 > trc_.f90
mpif90 -c -O2 -mcmodel=medium -fno-alias -i4 -r8 -fp-model precise -I/include trc_.f90 -o trc.o
cpp -traditional -DLinux -DIfort -P -I/include -ICROCOFILES/AGRIF_INC -I/include sms_pisces.F90 > sms_pisces_.f90
mpif90 -c -O2 -mcmodel=medium -fno-alias -i4 -r8 -fp-model precise -I/include sms_pisces_.f90 -o sms_pisces.o
sms_pisces_.f90(500): error #6404: This name does not have a type, and must have an explicit type. [RMASK]
zvol(ji,jj,jk) = om_r(ji,jj)*on_r(ji,jj)*Hz(ji,jj,N+1-jk)*rmask(ji,jj)
--------------------------------------------------------------------------^
compilation aborted for sms_pisces_.f90 (code 1)
gmake: *** [Makedefs:22: sms_pisces.o] Error 1
here is my defs:
#elif defined SINGLE_COLUMN
/*
! Single Column Example
! ====== ====== =======
!
! Seven sets up are encompassed :
*/
undef KATO_PHILIPS /* erosion of linear strat by constant wind stress */
undef WILLIS_DEARDORFF /* erosion of linear strat by constant surf buoyancy loss */
undef DIURNAL_CYCLE /* erosion of linear strat by constant surf buoyancy loss */
undef FORCED_EKBBL /* forced Ekman bottom boundary layer */
undef FORCED_DBLEEK /* forced Ekman bottom and surface boundary layers */
define FORCED_NONROTBBL /* non rotating forced bottom boundary layer : Prandt layer */
undef FORCED_OSCNONROTBBL /* non rotating oscillatory forced bottom boundary layer */
undef OPENMP
define MPI
define UV_ADV
define NEW_S_COORD
define UV_COR
define SOLVE3D
undef LMD_MIXING
define GLS_MIXING
define ANA_GRID
define ANA_INITIAL
define ANA_SMFLUX
define ANA_SRFLUX
define ANA_STFLUX
define ANA_BTFLUX
define EW_PERIODIC
define NS_PERIODIC
undef RVTK_DEBUG
define BIOLOGY
define PISCES
ifdef PISCES
undef DIURNAL_INPUT_SRFLX
define key_pisces
define key_ligand
undef key_pisces_quota
undef key_sediment
endif
ifdef BIO_NChlPZD
define OXYGEN
endif
ifdef BIO_BioEBUS
define NITROUS_OXIDE
endif
/* Biology diagnostics */
define DIAGNOSTICS_BIO
if defined DIAGNOSTICS_BIO && defined PISCES
define key_trc_diaadd
endif
undef FLOATS
undef STATIONS
undef PASSIVE_TRACER
undef SEDIMENT
undef MUSTANG
undef BBL
can anyone help?