- Timestamp:
- 2019-07-22T10:32:59+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/IOM/in_out_manager.F90
r10817 r11317 167 167 CHARACTER(lc) :: ctmp7, ctmp8, ctmp9 !: temporary characters 7 to 9 168 168 CHARACTER(lc) :: ctmp10 !: temporary character 10 169 CHARACTER(lc) :: cform_err = "(/,' ===>>> : E R R O R', /,' ===========',/)" !:170 CHARACTER(lc) :: cform_war = "(/,' ===>>> : W A R N I N G', /,' ===============',/)" !:171 169 LOGICAL :: lwm = .FALSE. !: boolean : true on the 1st processor only (always) 172 170 LOGICAL :: lwp = .FALSE. !: boolean : true on the 1st processor only .OR. ln_ctl
Note: See TracChangeset
for help on using the changeset viewer.