Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/phylmd/oasis.F90
- Timestamp:
- Dec 6, 2022, 12:01:16 AM (19 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/oasis.F90
r4020 r4368 24 24 USE mod_prism_get_proto 25 25 USE mod_prism_put_proto 26 #endif 27 #ifdef CPP_CPLOCNINCA 28 USE incaoasis, ONLY : inforcv 26 29 #endif 27 30 #endif … … 80 83 INTEGER, PARAMETER :: maxrecv = 9 ! Maximum number of fields to receive 81 84 85 #ifdef CPP_CPLOCNINCA 86 INTEGER, PARAMETER :: idr_ocedms = 1 87 INTEGER, PARAMETER :: maxrcv = 1 88 #endif 82 89 83 90 TYPE, PUBLIC :: FLD_CPL ! Type for coupling field information … … 254 261 inforecv(idr_oceco2)%action = .TRUE. ; inforecv(idr_oceco2)%name = 'SICO2FLX' 255 262 ENDIF 263 #ifdef CPP_CPLOCNINCA 264 inforcv(idr_ocedms)%action = .TRUE. ; inforcv(idr_ocedms)%name = 'SIDMSFLX' 265 #endif 256 266 257 267 !************************************************************************************ … … 338 348 ENDIF 339 349 END DO 340 350 351 ! Now, if also coupling CPL with INCA, initialize here fields to be exchanged. 352 #ifdef CPP_CPLOCNINCA 353 DO jf=1,maxrcv 354 IF (inforcv(jf)%action) THEN 355 CALL prism_def_var_proto(inforcv(jf)%nid, inforcv(jf)%name, il_part_id, & 356 il_var_nodims, PRISM_In, il_var_actual_shape, il_var_type, & 357 ierror) 358 IF (ierror .NE. PRISM_Ok) THEN 359 WRITE(lunout,*) 'inicma : Problem with prism_def_var_proto for field : ',& 360 inforcv(jf)%name 361 abort_message=' Problem in call to prism_def_var_proto for fields to receive' 362 CALL abort_physic(modname,abort_message,1) 363 ENDIF 364 ENDIF 365 END DO 366 #endif 367 341 368 !************************************************************************************ 342 369 ! Atmospheric Fields to send
Note: See TracChangeset
for help on using the changeset viewer.