parclimf.F90

Go to the documentation of this file.

MODULE parclimf

#include "tsmbkind.h"

USE parcli


IMPLICIT NONE

SAVE

!------------------------------------------------------------------------------
!     JPNCHS : Number of *N108* fields (depending on JPNMOI).
!     JPNCHF : Number of final  fields (depending on JPNMOI).

integer_m, PARAMETER :: jpnchs=jpnmos*jpnmoi+jpnfis
integer_m, PARAMETER :: jpnchf=jpnmof*jpnmoi+jpnfif

END MODULE parclimf