Changeset 3628 for LMDZ6/branches/Ocean_skin/libf/phylmd/oasis.F90
- Timestamp:
- Feb 4, 2020, 10:36:32 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/oasis.F90
r3627 r3628 59 59 INTEGER, PARAMETER :: ids_qraiic = 28 60 60 INTEGER, PARAMETER :: ids_qsnoic = 29 61 INTEGER, PARAMETER :: ids_t_int = 30 62 63 INTEGER, PARAMETER :: maxsend = 3 0! Maximum number of fields to send61 INTEGER, PARAMETER :: ids_t_int = 30, ids_s_int = 31 62 63 INTEGER, PARAMETER :: maxsend = 31 ! Maximum number of fields to send 64 64 65 65 ! Id for fields received from ocean … … 193 193 infosend(ids_t_int)%action = .TRUE. 194 194 infosend(ids_t_int)%name = 'T_int' 195 infosend(ids_s_int)%action = .TRUE. 196 infosend(ids_s_int)%name = 'S_int' 195 197 end if 196 198
Note: See TracChangeset
for help on using the changeset viewer.