Ignore:
Timestamp:
2010-11-19T17:47:13+01:00 (10 years ago)
Author:
cetlod
Message:

Small changes to get a better behavior of NEMO on IDRIS/IBM SP6 machine with fortran compiler xlf 13.1.0.3, see ticket #761

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_2/limthd_2.F90

    r1924 r2411  
    485485      ENDIF 
    486486 
    487       ztmp(:,:) = 1. - AINT( frld(:,:), wp )                        ! return 1 as soon as there is ice 
     487!! ce     ztmp(:,:) = 1. - AINT( frld(:,:), wp )                        ! return 1 as soon as there is ice 
     488!! ce     A big warning because the model crashes on IDRIS/IBM SP6 with xlf 13.1.0.3, see ticket #761 
     489!! ce     We Unroll the loop and everything works fine  
     490      DO jj = 1, jpj 
     491         DO ji = 1, jpi 
     492            ztmp(ji,jj) = 1. - AINT( frld(ji,jj), wp )                ! return 1 as soon as there is ice 
     493         END DO 
     494      END DO 
     495      ! 
    488496      CALL iom_put( 'ice_pres'  , ztmp                            )   ! Ice presence                          [-] 
    489497      CALL iom_put( 'ist_ipa'   , ( sist(:,:) - rt0 ) * ztmp(:,:) )   ! Ice surface temperature               [Celius] 
Note: See TracChangeset for help on using the changeset viewer.