Changeset 3558


Ignore:
Timestamp:
2012-11-14T20:15:05+01:00 (8 years ago)
Author:
rblod
Message:

Fix issues when using key_nosignedzeo, see ticket #996

Location:
trunk/NEMOGCM/NEMO
Files:
47 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limadv_2.F90

    r3294 r3558  
    2525   USE wrk_nemo           ! work arrays 
    2626   USE prtctl             ! Print control 
     27   USE lib_fortran        ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     28 
    2729 
    2830   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90

    r3294 r3558  
    3030   USE in_out_manager ! I/O manager 
    3131   USE prtctl         ! Print control 
     32   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3233 
    3334   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

    r3294 r3558  
    3737   USE iom              ! I/O library 
    3838   USE prtctl           ! Print control 
     39   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3940   USE cpl_oasis3, ONLY : lk_cpl 
    4041 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r3294 r3558  
    3333   USE limtab_2 
    3434   USE prtctl          ! Print control 
     35   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3536   USE cpl_oasis3, ONLY : lk_cpl 
    3637   USE diaar5, ONLY :   lk_diaar5 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r3294 r3558  
    1616   USE lib_mpp          ! MPP library 
    1717   USE wrk_nemo         ! work arrays 
     18   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    1819 
    1920   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r3294 r3558  
    2121   USE lib_mpp          ! MPP library 
    2222   USE wrk_nemo         ! work arrays 
     23   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2324   USE cpl_oasis3, ONLY : lk_cpl 
    2425       
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r3294 r3558  
    2828   USE lib_mpp         ! MPP library 
    2929   USE wrk_nemo        ! work arrays 
     30   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3031 
    3132   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r3294 r3558  
    3131   USE lib_mpp         ! MPP library 
    3232   USE wrk_nemo        ! work arrays 
     33   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3334   USE iom 
    3435   USE ioipsl 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90

    r3294 r3558  
    1414    !!  modif : 03/06/98 
    1515    !!------------------------------------------------------------------- 
    16     USE  diadimg                ! use of dia_wri_dimg 
     16    USE  diadimg       ! use of dia_wri_dimg 
     17    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    1718 
    1819    INTEGER, INTENT(in) ::   kt     ! number of iteration 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limadv.F90

    r3294 r3558  
    2323   USE lib_mpp          ! MPP library 
    2424   USE wrk_nemo         ! work arrays 
     25   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2526 
    2627   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90

    r2715 r3558  
    2323   USE in_out_manager  ! I/O manager 
    2424   USE lib_mpp         ! MPP library 
     25   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2526    
    2627   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r3294 r3558  
    2828   USE wrk_nemo         ! work arrays 
    2929   USE prtctl           ! Print control 
     30   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3031 
    3132   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

    r3294 r3558  
    3434   USE lib_mpp          ! MPP library 
    3535   USE wrk_nemo         ! work arrays 
     36   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3637 
    3738   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

    r3294 r3558  
    2727   USE in_out_manager   ! I/O manager 
    2828   USE prtctl           ! Print control 
     29   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2930#if defined key_lim3 
    3031   USE ice              ! LIM-3: ice variables 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r3294 r3558  
    2525   USE lib_mpp          ! MPP library 
    2626   USE wrk_nemo         ! work arrays 
     27   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2728 
    2829   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r3294 r3558  
    3333   USE wrk_nemo         ! work arrays 
    3434   USE prtctl           ! Print control 
     35   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3536   USE cpl_oasis3, ONLY : lk_cpl 
    3637 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r3294 r3558  
    3939   USE in_out_manager  ! I/O manager 
    4040   USE prtctl          ! Print control 
     41   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    4142 
    4243   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r3294 r3558  
    2424   USE lib_mpp          ! MPP library 
    2525   USE wrk_nemo         ! work arrays 
     26   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2627 
    2728   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

    r3351 r3558  
    2323   USE lib_mpp          ! MPP library 
    2424   USE wrk_nemo         ! work arrays 
     25   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2526 
    2627   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r3294 r3558  
    2929   USE lib_mpp          ! MPP library 
    3030   USE wrk_nemo         ! work arrays 
     31   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3132 
    3233   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r3294 r3558  
    2929   USE lib_mpp          ! MPP library 
    3030   USE wrk_nemo         ! work arrays 
     31   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3132 
    3233   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r3294 r3558  
    2424   USE lib_mpp          ! MPP library 
    2525   USE wrk_nemo         ! work arrays 
     26   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2627 
    2728   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r3554 r3558  
    2727   USE wrk_nemo        ! work arrays 
    2828   USE prtctl          ! Print control 
     29   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2930 
    3031   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limupdate.F90

    r3294 r3558  
    3636   USE lbclnk           ! lateral boundary condition - MPP exchanges 
    3737   USE wrk_nemo         ! work arrays 
     38   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3839 
    3940   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r3294 r3558  
    5353   USE lib_mpp          ! MPP library 
    5454   USE wrk_nemo         ! work arrays 
     55   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    5556 
    5657   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r3294 r3558  
    2525   USE wrk_nemo        ! work arrays 
    2626   USE par_ice 
     27   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2728 
    2829   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri_dimg.h90

    r2715 r3558  
    1515   !!------------------------------------------------------------------- 
    1616   USE  diawri, ONLY : dia_wri_dimg 
     17   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
     18 
    1719   REAL(wp),DIMENSION(1) ::   zdept 
    1820 
  • trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3294 r3558  
    4545   USE prtctl          ! Print control                    (prt_ctl_init routine) 
    4646   USE timing          ! Timing 
     47   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    4748 
    4849   IMPLICIT NONE 
     
    336337         &                                               'Compile with key_iomput enabled' ) 
    337338      ! 
     339      IF( 1_wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ',  & 
     340         &                                               'f2003 standard. '                              ,  & 
     341         &                                               'Compile with key_nosignedzero enabled' ) 
     342      ! 
    338343   END SUBROUTINE nemo_ctl 
    339344 
  • trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r3294 r3558  
    3333   USE wrk_nemo        ! work arrays 
    3434   USE timing          ! Timing 
     35   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3536 
    3637   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r3294 r3558  
    2020   USE lib_mpp         ! MPP library 
    2121   USE wrk_nemo        ! work arrays 
     22   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2223 
    2324   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r3294 r3558  
    3333   USE albedo 
    3434   USE prtctl          ! Print control 
     35   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3536#if defined key_lim3 
    3637   USE ice 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r3294 r3558  
    2121   USE in_out_manager  ! I/O manager 
    2222   USE lib_mpp         ! MPP library 
     23   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2324 
    2425   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r3294 r3558  
    2222   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2323   USE timing          ! Timing 
     24   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2425 
    2526   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90

    r3294 r3558  
    2727   USE wrk_nemo        ! Memory Allocation 
    2828   USE timing          ! Timing 
     29   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2930 
    3031   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl2.F90

    r3294 r3558  
    2525   USE wrk_nemo        ! Memory Allocation 
    2626   USE timing          ! Timing 
     27   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2728 
    2829 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r3301 r3558  
    2828   USE wrk_nemo        ! Memory Allocation 
    2929   USE timing          ! Timing 
     30   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3031 
    3132   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r3294 r3558  
    3434   USE wrk_nemo        ! Memory Allocation 
    3535   USE timing          ! Timing 
     36   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3637 
    3738   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90

    r3294 r3558  
    2424   USE wrk_nemo        ! Memory Allocation 
    2525   USE timing          ! Timing 
     26   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2627 
    2728   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r3294 r3558  
    3131   USE iom            ! I/O manager library 
    3232   USE timing         ! Timing 
     33   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3334 
    3435   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r3294 r3558  
    3535   USE trdtra          ! tracers trends 
    3636   USE timing          ! Timing 
     37   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3738 
    3839   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r3294 r3558  
    2929   USE wrk_nemo              ! work arrays 
    3030   USE timing                ! Timing 
     31   USE lib_fortran           ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3132 
    3233   USE eosbn2, ONLY : nn_eos 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r3406 r3558  
    5252   USE wrk_nemo       ! work arrays 
    5353   USE timing         ! Timing 
     54   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    5455 
    5556   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r3294 r3558  
    2727   USE wrk_nemo        ! work arrays 
    2828   USE timing          ! Timing 
     29   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2930 
    3031   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3352 r3558  
    6060   USE diadct          ! sections transports           (dia_dct_init routine) 
    6161   USE diaobs          ! Observation diagnostics       (dia_obs_init routine) 
     62   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    6263   USE step            ! NEMO time-stepping                 (stp     routine) 
    6364#if defined key_oasis3 
     
    469470         &                                               'Compile with key_iomput enabled' ) 
    470471      ! 
     472      IF( 1_wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ',  & 
     473         &                                               'f2003 standard. '                              ,  & 
     474         &                                               'Compile with key_nosignedzero enabled' ) 
     475      ! 
    471476   END SUBROUTINE nemo_ctl 
    472477 
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zrem.F90

    r3295 r3558  
    2626   USE p4zint          !  interpolation and computation of various fields 
    2727   USE prtctl_trc      !  print control for debugging 
     28   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2829 
    2930   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90

    r3404 r3558  
    1919   USE prtctl_trc      !  print control for debugging 
    2020   USE iom             !  I/O manager 
     21   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    2122 
    2223   IMPLICIT NONE 
  • trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedchem.F90

    r2761 r3558  
    77   !!====================================================================== 
    88   !!   modules used 
    9    USE sed     ! sediment global variable 
     9   USE sed            ! sediment global variable 
    1010   USE sedarr 
     11   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    1112 
    1213   !! * Accessibility 
Note: See TracChangeset for help on using the changeset viewer.