Changeset 14221 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/IOM/prtctl.F90
- Timestamp:
- 2020-12-18T20:25:45+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/IOM/prtctl.F90
r14219 r14221 310 310 WRITE(numout,*) '~~~~~~~~~~~~~' 311 311 ENDIF 312 IF( nn_ictls+nn_ictle+nn_jctls+nn_jctle == 0 ) THEN ! print control done over the default area 312 IF( nn_ictls+nn_ictle+nn_jctls+nn_jctle == 0 ) THEN ! print control done over the default area 313 313 nn_isplt = MAX(1, nn_isplt) ! number of processors following i-direction 314 314 nn_jsplt = MAX(1, nn_jsplt) ! number of processors following j-direction
Note: See TracChangeset
for help on using the changeset viewer.