libf/phylmd/param_cou.h

!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/param_cou.h,v 1.2 2005/02/07 16:41:55 fairhead Exp $
!
! $Id: param_cou.h,v 1.2 2005/02/07 16:41:55 fairhead Exp $
!
! -- param_cou.h
!
        INTEGER jpmaxfld
       PARAMETER(jpmaxfld = 40)        ! Maximum number of fields exchanged
                                        ! between ocean and atmosphere
! -- LOOP
       INTEGER jpflda2o1
       PARAMETER(jpflda2o1 = 13)        ! Number of fields exchanged from
                                         ! atmosphere to ocean via flx.F
! -- LOOP
       INTEGER jpflda2o2
       PARAMETER(jpflda2o2 = 6)         ! Number of fields exchanged from
                                         ! atmosphere to ocean via tau.F
!
       INTEGER jpfldo2a
       PARAMETER(jpfldo2a = 4)          ! Number of fields exchanged from
                                         ! ocean to atmosphere
!
1	guez	3	!
2			! $Header: /home/cvsroot/LMDZ4/libf/phylmd/param_cou.h,v 1.2 2005/02/07 16:41:55 fairhead Exp $
3			!
4			! $Id: param_cou.h,v 1.2 2005/02/07 16:41:55 fairhead Exp $
5			!
6			! -- param_cou.h
7			!
8			INTEGER jpmaxfld
9			PARAMETER(jpmaxfld = 40) ! Maximum number of fields exchanged
10			! between ocean and atmosphere
11			! -- LOOP
12			INTEGER jpflda2o1
13			PARAMETER(jpflda2o1 = 13) ! Number of fields exchanged from
14			! atmosphere to ocean via flx.F
15			! -- LOOP
16			INTEGER jpflda2o2
17			PARAMETER(jpflda2o2 = 6) ! Number of fields exchanged from
18			! atmosphere to ocean via tau.F
19			!
20			INTEGER jpfldo2a
21			PARAMETER(jpfldo2a = 4) ! Number of fields exchanged from
22			! ocean to atmosphere
23			!