Changeset 4600 for LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90
- Timestamp:
- Jun 30, 2023, 8:18:43 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90
r4460 r4600 84 84 CALL xios_context_finalize() 85 85 CALL xios_finalize() 86 #ifdef CPP_MPI87 86 CALL MPI_Finalize(ierr) 88 #endif89 87 abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine' 90 88 CALL abort_physic(modname,abort_message,0) … … 102 100 CALL xios_context_finalize() 103 101 CALL xios_finalize() 104 #ifdef CPP_MPI105 102 CALL MPI_Finalize(ierr) 106 #endif107 103 ENDIF 108 104 !$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.