Changeset 3558 for trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

Timestamp:

2012-11-14T20:15:05+01:00 (11 years ago)

Author:

rblod

Message:

Fix issues when using key_nosignedzeo, see ticket #996

File:

• trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -45 +45 @@
    USE prtctl          ! Print control                    (prt_ctl_init routine)
    USE timing          ! Timing
+   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
 
    IMPLICIT NONE
@@ -336 +337 @@
          &                                               'Compile with key_iomput enabled' )
       !
+      IF( 1_wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ',  &
+         &                                               'f2003 standard. '                              ,  &
+         &                                               'Compile with key_nosignedzero enabled' )
+      !
    END SUBROUTINE nemo_ctl