- Timestamp:
- 2013-01-23T15:33:04+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r3750 r3764 45 45 USE prtctl ! Print control (prt_ctl_init routine) 46 46 USE timing ! Timing 47 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 47 48 48 49 IMPLICIT NONE … … 342 343 & 'Compile with key_iomput enabled' ) 343 344 ! 345 IF( 1_wp /= SIGN(1._wp,-0._wp) ) CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ', & 346 & 'f2003 standard. ' , & 347 & 'Compile with key_nosignedzero enabled' ) 348 ! 344 349 END SUBROUTINE nemo_ctl 345 350
Note: See TracChangeset
for help on using the changeset viewer.