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	!
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	!