- Timestamp:
- Apr 22, 2016, 9:02:11 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_data.F90
r1521 r1543 1 1 ! 2 !$Id: mod_phys_lmdz_omp_data.F90 1575 2011-09-21 13:57:48Z jghattas$2 !$Id: mod_phys_lmdz_omp_data.F90 2326 2015-07-10 12:24:29Z emillour $ 3 3 ! 4 4 MODULE mod_phys_lmdz_omp_data … … 20 20 CONTAINS 21 21 22 SUBROUTINE init_phys_lmdz_omp_data(klon_mpi)22 SUBROUTINE Init_phys_lmdz_omp_data(klon_mpi) 23 23 USE dimphy 24 24 IMPLICIT NONE … … 85 85 klon_omp_end=klon_omp_para_end(omp_rank) 86 86 87 CALL print_module_data87 CALL Print_module_data 88 88 89 END SUBROUTINE init_phys_lmdz_omp_data89 END SUBROUTINE Init_phys_lmdz_omp_data 90 90 91 SUBROUTINE print_module_data91 SUBROUTINE Print_module_data 92 92 IMPLICIT NONE 93 93 INCLUDE "iniprint.h" … … 106 106 !$OMP END CRITICAL 107 107 108 END SUBROUTINE print_module_data108 END SUBROUTINE Print_module_data 109 109 END MODULE mod_phys_lmdz_omp_data
Note: See TracChangeset
for help on using the changeset viewer.