Changeset 5540 for ICOSA_LMDZ


Ignore:
Timestamp:
Feb 13, 2025, 6:59:47 PM (7 days ago)
Author:
yann meurdesoif
Message:

Add oasis initialization in driver when using xios3
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ICOSA_LMDZ/src/wrapper.f90

    r4855 r5540  
    2323
    2424END SUBROUTINE external_physics
     25
     26SUBROUTINE initialize_third_party_coupler( comp_id, comm_icosa, ierr )
     27 USE mod_oasis
     28 IMPLICIT NONE
     29 CHARACTER(len=*), INTENT(IN) :: comp_id
     30 INTEGER, INTENT(OUT) :: comm_icosa
     31 INTEGER, INTENT(OUT) :: ierr
     32
     33 INTEGER :: ncomp_id
     34 CALL oasis_init_comp ( ncomp_id, comp_id, ierr )
     35 CALL oasis_get_localcomm ( comm_icosa, ierr )
     36
     37END SUBROUTINE initialize_third_party_coupler
     38
     39
     40SUBROUTINE finalize_third_party_coupler( ierr )
     41 USE mod_oasis
     42 IMPLICIT NONE
     43 INTEGER, INTENT(OUT) :: ierr
     44
     45 PRINT*, "FINALIZING THROUGH WRAPPER"
     46 CALL oasis_terminate( ierr )
     47
     48END SUBROUTINE finalize_third_party_coupler
Note: See TracChangeset for help on using the changeset viewer.