Changeset 5267 for LMDZ6/trunk/libf/phy_common/abort_physic.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phy_common/abort_physic.F90
r4600 r5267 2 2 SUBROUTINE abort_physic(modname, message, ierr) 3 3 4 #ifdef CPP_IOIPSL5 4 USE IOIPSL 6 #else 7 ! if not using IOIPSL, we still need to use (a local version of) getin_dump 8 USE ioipsl_getincom 9 #endif 5 10 6 USE mod_phys_lmdz_para 11 7 USE print_control_mod, ONLY: lunout … … 24 20 25 21 write(lunout,*) 'in abort_physic' 26 #ifdef CPP_IOIPSL27 22 !$OMP MASTER 28 23 call histclo … … 32 27 endif 33 28 !$OMP END MASTER 34 #endif35 29 36 30 write(lunout,*) 'Stopping in ', modname
Note: See TracChangeset
for help on using the changeset viewer.