New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4910 for branches/2014/dev_CNRS_2014 – NEMO

Ignore:
Timestamp:
2014-11-28T10:22:20+01:00 (9 years ago)
Author:
vancop
Message:

bugfixes for compilation on MetOffice? computers

Location:
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

    r4907 r4910  
    7575 
    7676      ! 1/area 
    77       z1_area = 1.0 / MAX( glob_sum( area(:,:) * tms(:,:) ), epsi06 ) 
    78  
    79       zinda = MAX( 0.0 , SIGN( 1.0 , glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) ) 
     77      z1_area = 1._wp / MAX( glob_sum( area(:,:) * tms(:,:) ), epsi06 ) 
     78 
     79      zinda = MAX( 0._wp , SIGN( 1._wp , glob_sum( area(:,:) * tms(:,:) ) - epsi06 ) ) 
    8080      ! ----------------------- ! 
    8181      ! 1 -  Content variations ! 
     
    244244      ! 2 - initial conservation variables ! 
    245245      ! ---------------------------------- ! 
    246       !frc_vol = 0.d0                                           ! volume       trend due to forcing 
    247       !frc_sal = 0.d0                                           ! salt content   -    -   -    -          
    248       !bg_grme = 0.d0                                           ! ice growth + melt volume trend 
     246      !frc_vol = 0._wp                                          ! volume       trend due to forcing 
     247      !frc_sal = 0._wp                                          ! salt content   -    -   -    -          
     248      !bg_grme = 0._wp                                          ! ice growth + melt volume trend 
    249249      ! 
    250250      CALL lim_diahsb_rst( nstart, 'READ' )  !* read or initialize all required files 
     
    280280           IF(lwp) WRITE(numout,*) ' lim_diahsb at initial state ' 
    281281           IF(lwp) WRITE(numout,*) '~~~~~~~' 
    282            frc_vol  = 0.d0                                            
    283            frc_sal  = 0.d0                                                   
    284            bg_grme  = 0.d0                                         
    285        ENDIF    
     282           frc_vol  = 0._wp                                           
     283           frc_sal  = 0._wp                                                  
     284           bg_grme  = 0._wp                                        
     285       ENDIF 
    286286 
    287287     ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
  • branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r4902 r4910  
    296296         IF ( ztests .NE. 4 ) THEN 
    297297            WRITE(numout,*) 
    298             WRITE(numout,*), ' !!!! ALERT                  !!! ' 
    299             WRITE(numout,*), ' !!!! Something is wrong in the LIM3 initialization procedure ' 
    300             WRITE(numout,*) 
    301             WRITE(numout,*), ' *** ztests is not equal to 4 ' 
    302             WRITE(numout,*), ' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4 
    303             WRITE(numout,*), ' zat_i_ini : ', zat_i_ini(i_hemis) 
    304             WRITE(numout,*), ' zht_i_ini : ', zht_i_ini(i_hemis) 
     298            WRITE(numout,*)  ' !!!! ALERT                  !!! ' 
     299            WRITE(numout,*)  ' !!!! Something is wrong in the LIM3 initialization procedure ' 
     300            WRITE(numout,*  
     301            WRITE(numout,*)  ' *** ztests is not equal to 4 ' 
     302            WRITE(numout,*)  ' *** ztest_i (i=1,4) = ', ztest_1, ztest_2, ztest_3, ztest_4 
     303            WRITE(numout,*)  ' zat_i_ini : ', zat_i_ini(i_hemis) 
     304            WRITE(numout,*)  ' zht_i_ini : ', zht_i_ini(i_hemis) 
    305305         ENDIF ! ztests .NE. 4 
    306306      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.