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