Changeset 13158


Ignore:
Timestamp:
2020-06-26T10:05:17+02:00 (2 weeks ago)
Author:
jwhile
Message:

Update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_1d_bugfixes/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

    r13088 r13158  
    671671       gauss = gauss * rn_sd 
    672672       coeff = coeff * ( 1._wp + gauss ) 
    673 #ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
     673#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
    674674       WHERE( coeff > 1._wp ) coeff = 1._wp 
    675675       WHERE( coeff < 0._wp ) coeff = 0._wp 
     
    683683       gauss = gauss * zsd + xme 
    684684       coeff = exp(gauss) * coeff 
    685 #ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
     685#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
    686686       WHERE( coeff > 1._wp ) coeff = 1._wp 
    687687       WHERE( coeff < 0._wp ) coeff = 0._wp 
     
    695695       gauss = gauss * zsd + xme 
    696696       coeff = exp(gauss) * coeff 
    697 #ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
     697#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
    698698       WHERE( coeff > 1._wp ) coeff = 1._wp 
    699699       WHERE( coeff < 0._wp ) coeff = 0._wp 
     
    807807       CALL ctl_stop('Unrecognized SPP parameter: add it or turn off diagnostics') 
    808808   END SELECT 
    809 #ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
     809#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d 
    810810   mi = MINVAL(rcf) 
    811811   ma = MAXVAL(rcf) 
Note: See TracChangeset for help on using the changeset viewer.