Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/SWE/nemogcm.F90
- Timestamp:
- 2020-12-17T15:36:44+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/SWE/nemogcm.F90
r14053 r14200 33 33 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 34 34 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 35 USE halo_mng ! Halo manager35 USE halo_mng ! halo manager 36 36 37 37 IMPLICIT NONE … … 127 127 IF( nstop /= 0 .AND. lwp ) THEN ! error print 128 128 WRITE(ctmp1,*) ' ==>>> nemo_gcm: a total of ', nstop, ' errors have been found' 129 CALL ctl_stop( ctmp1 ) 129 WRITE(ctmp2,*) ' Look for "E R R O R" messages in all existing ocean_output* files' 130 CALL ctl_stop( ' ', ctmp1, ' ', ctmp2 ) 130 131 ENDIF 131 132 ! … … 216 217 WRITE(numout,*) ' NEMO team' 217 218 WRITE(numout,*) ' Ocean General Circulation Model' 218 WRITE(numout,*) ' NEMO version 4.0 (2019) ' 219 WRITE(numout,*) ' NEMO version 4.0 (2020) ' 220 WRITE(numout,*) 221 WRITE(numout,*) ' Shallow Water Equation' 222 WRITE(numout,*) ' ======================' 219 223 WRITE(numout,*) 220 224 WRITE(numout,*) " ._ ._ ._ ._ ._ " … … 232 236 WRITE(numout,*) " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 233 237 WRITE(numout,*) 234 235 ! Print the working precision to ocean.output 236 IF (wp == dp) THEN 237 WRITE(numout,*) "Working precision = double-precision" 238 ELSE 239 WRITE(numout,*) "Working precision = single-precision" 238 ! 239 WRITE(numout,cform_aaa) ! Flag AAAAAAA 240 ! 241 ! ! Control print of the working precision 242 WRITE(numout,*) 243 IF( wp == dp ) THEN ; WRITE(numout,*) "par_kind : wp = Working precision = dp = double-precision" 244 ELSE ; WRITE(numout,*) "par_kind : wp = Working precision = sp = single-precision" 240 245 ENDIF 241 WRITE(numout,*) 242 ! 243 WRITE(numout,cform_aaa) ! Flag AAAAAAA 246 WRITE(numout,*) "~~~~~~~~ ****************" 247 WRITE(numout,*) 244 248 ! 245 249 ENDIF … … 280 284 ! !-------------------------------! 281 285 282 CALL nemo_ctl ! Control prints 286 CALL nemo_ctl ! Control prints of namctl and namcfg 283 287 ! 284 288 ! ! General initialization … … 429 433 END SUBROUTINE nemo_alloc 430 434 431 435 432 436 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto ) 433 437 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.