Changeset 3851 for LMDZ6/branches/LMDZ-tracers/libf/phylmd/oasis.F90
- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/oasis.F90
r3465 r3851 59 59 INTEGER, PARAMETER :: ids_qraiic = 28 60 60 INTEGER, PARAMETER :: ids_qsnoic = 29 61 INTEGER, PARAMETER :: maxsend = 29 ! Maximum number of fields to send 61 INTEGER, PARAMETER :: ids_delta_sst = 30, ids_delta_sal = 31 62 63 INTEGER, PARAMETER :: maxsend = 31 ! Maximum number of fields to send 62 64 63 65 ! Id for fields received from ocean 66 64 67 INTEGER, PARAMETER :: idr_sisutw = 1 65 68 INTEGER, PARAMETER :: idr_icecov = 2 … … 70 73 INTEGER, PARAMETER :: idr_curenz = 7 71 74 INTEGER, PARAMETER :: idr_oceco2 = 8 72 INTEGER, PARAMETER :: maxrecv = 8 ! Maximum number of fields to receive 75 76 INTEGER, PARAMETER :: idr_sss = 9 77 ! bulk salinity of the surface layer of the ocean, in ppt 78 79 INTEGER, PARAMETER :: maxrecv = 9 ! Maximum number of fields to receive 73 80 74 81 … … 110 117 USE geometry_mod, ONLY: ind_cell_glo 111 118 USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi_para_nb 112 113 119 use config_ocean_skin_m, only: activate_ocean_skin 114 120 115 121 ! Local variables … … 183 189 infosend(ids_calvin)%action = .TRUE. ; infosend(ids_calvin)%name = 'COCALVIN' 184 190 191 if (activate_ocean_skin == 2) then 192 infosend(ids_delta_sst)%action = .TRUE. 193 infosend(ids_delta_sst)%name = 'CODELSST' 194 infosend(ids_delta_sal)%action = .TRUE. 195 infosend(ids_delta_sal)%name = 'CODELSSS' 196 end if 197 185 198 IF (version_ocean=='nemo') THEN 186 199 infosend(ids_shftot)%action = .TRUE. ; infosend(ids_shftot)%name = 'COQSRMIX' … … 219 232 inforecv(idr_icealw)%action = .TRUE. ; inforecv(idr_icealw)%name = 'SIICEALW' 220 233 inforecv(idr_icetem)%action = .TRUE. ; inforecv(idr_icetem)%name = 'SIICTEMW' 234 235 if (activate_ocean_skin >= 1) then 236 inforecv(idr_sss)%action = .TRUE. 237 inforecv(idr_sss)%name = 'SISUSALW' 238 end if 221 239 222 240 IF (cpl_current ) THEN
Note: See TracChangeset
for help on using the changeset viewer.